diff options
| author | ivan <ivan> | 1999-10-04 08:23:26 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-10-04 08:23:26 +0000 |
| commit | 7c7bc66bd24874e7ccd4fd3445f1da7f88e9679d (patch) | |
| tree | c124852d7a2c74365092926042d23502f46095b0 | |
| parent | 145eb4372ae27ef1b884a80666b70283eadfbaf8 (diff) | |
silly 'use of unitialized value' errors
| -rwxr-xr-x | FS/bin/freeside-bill | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/bin/freeside-bill b/FS/bin/freeside-bill index a251df4d5..417df767b 100755 --- a/FS/bin/freeside-bill +++ b/FS/bin/freeside-bill @@ -28,6 +28,9 @@ my($time)= $main::opt_d ? str2time($main::opt_d) : $^T; my($cust_main,%saw); foreach $cust_main ( map { + unless ( exists $saw{ $_->custnum } && defined $saw{ $_->custnum} ) { + $saw{ $_->custnum } = 0; # to avoid 'use of uninitialized value' errors + } if ( ( $main::opt_a || ( ( $_->getfield('bill') || 0 ) <= $time ) ) && $bill_only{ $_->custnum } @@ -109,7 +112,7 @@ customers. Otherwise, bills all customers. =head1 VERSION -$Id: freeside-bill,v 1.2 1999-08-11 20:51:54 ivan Exp $ +$Id: freeside-bill,v 1.3 1999-10-04 08:23:26 ivan Exp $ =head1 BUGS |