fix warning
authorMark Wells <mark@freeside.biz>
Wed, 30 Jan 2013 00:27:17 +0000 (16:27 -0800)
committerMark Wells <mark@freeside.biz>
Wed, 30 Jan 2013 20:09:29 +0000 (12:09 -0800)
FS/FS/cust_main/Billing.pm

index deb5e84..69fbda4 100644 (file)
@@ -1819,8 +1819,9 @@ sub due_cust_event {
 
   #???
   #my $DEBUG = $opt{'debug'}
+  $opt{'debug'} ||= 0; # silence some warnings
   local($DEBUG) = $opt{'debug'}
-    if defined($opt{'debug'}) && $opt{'debug'} > $DEBUG;
+    if $opt{'debug'} > $DEBUG;
   $DEBUG = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG;
 
   warn "$me due_cust_event called with options ".