projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
silence "use of uninitialized value in split" warning
[freeside.git]
/
FS
/
FS
/
cust_bill_pkg.pm
diff --git
a/FS/FS/cust_bill_pkg.pm
b/FS/FS/cust_bill_pkg.pm
index
4058f1f
..
094313f
100644
(file)
--- a/
FS/FS/cust_bill_pkg.pm
+++ b/
FS/FS/cust_bill_pkg.pm
@@
-19,7
+19,7
@@
use FS::cust_tax_adjustment;
@ISA = qw( FS::cust_main_Mixin FS::Record );
@ISA = qw( FS::cust_main_Mixin FS::Record );
-$DEBUG =
1
;
+$DEBUG =
0
;
$me = '[FS::cust_bill_pkg]';
=head1 NAME
$me = '[FS::cust_bill_pkg]';
=head1 NAME
@@
-627,7
+627,8
@@
sub disintegrate {
}
#split usage from recur
}
#split usage from recur
- my $usage = sprintf( "%.2f", $cust_bill_pkg{recur}->usage );
+ my $usage = sprintf( "%.2f", $cust_bill_pkg{recur}->usage )
+ if exists($cust_bill_pkg{recur});
warn "usage is $usage\n" if $DEBUG > 1;
if ($usage) {
my $cust_bill_pkg_usage =
warn "usage is $usage\n" if $DEBUG > 1;
if ($usage) {
my $cust_bill_pkg_usage =