X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Foption_Common.pm;h=8c690890f69cbfe8ce19bb418900824c6d3ea32e;hp=74adbede8b3cd9b3784082bc0bcb01b0b0e5bac7;hb=389b6f1116c3309c2ee57a6c295ed1a793503095;hpb=cf69a36faa57cdb544948c905059cf1e1ac73e07

diff --git a/FS/FS/option_Common.pm b/FS/FS/option_Common.pm
index 74adbede8..8c690890f 100644
--- a/FS/FS/option_Common.pm
+++ b/FS/FS/option_Common.pm
@@ -3,6 +3,7 @@ package FS::option_Common;
 use strict;
 use base qw( FS::Record );
 use vars qw( $DEBUG );
+use Carp qw( cluck );
 use Scalar::Util qw( blessed );
 use FS::Record qw( qsearch qsearchs dbh );
 
@@ -344,7 +345,7 @@ sub option {
       $pkey    => $self->get($pkey),
       $namecol => shift,
   };
-  warn "$self -> option: searching for ".
+  cluck "$self -> option: searching for ".
          join(' / ', map { "$_ => ". $hashref->{$_} } keys %$hashref )
     if $DEBUG;
   my $obj = qsearchs($option_table, $hashref);