diff options
author | ivan <ivan> | 2008-02-03 02:24:03 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-02-03 02:24:03 +0000 |
commit | 7fdc1929df3892209161a355ba1747bc4f692073 (patch) | |
tree | a4857b5e391c40924a766e1c56282302364af3c2 /FS/FS | |
parent | e8384f16694d6c7f094bdc7a1506c29dbf7f1417 (diff) |
should eliminate "Use of uninitialized value in length at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 5194." warnings
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cust_main.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 09a0cfd99..398ff0487 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -5190,8 +5190,8 @@ sub _money_table_where { my @where = (); push @where, "cust_main.custnum = $table.custnum" unless $opt{'total'}; if ( $table eq 'cust_bill' || $opt{'unapplied_date'} ) { - push @where, "$table._date <= $start" if length($start); - push @where, "$table._date > $end" if length($end); + push @where, "$table._date <= $start" if defined($start) && length($start); + push @where, "$table._date > $end" if defined($end) && length($end); } push @where, @{$opt{'where'}} if $opt{'where'}; my $where = scalar(@where) ? 'WHERE '. join(' AND ', @where ) : ''; |