From 6bd91fa5feb41ea3294bdaee5fe1c1134f19c330 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Tue, 29 Jan 2013 16:27:17 -0800 Subject: [PATCH] fix warning --- FS/FS/cust_main/Billing.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/FS/FS/cust_main/Billing.pm b/FS/FS/cust_main/Billing.pm index deb5e84d1..69fbda42e 100644 --- a/FS/FS/cust_main/Billing.pm +++ b/FS/FS/cust_main/Billing.pm @@ -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 ". -- 2.11.0