diff options
author | ivan <ivan> | 2009-05-04 01:17:24 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-05-04 01:17:24 +0000 |
commit | e9b930f5813d6df9e13d89c36ca0d7fc7973d2bc (patch) | |
tree | 9590c09d1e85bc4d5e1d63f59eec2b42dba623f6 /FS/FS/svc_acct.pm | |
parent | 9f73c5d4c0954b3a03bfcb5e010fc288a7071209 (diff) |
eliminate Argument "" isn't numeric in addition (+) warning
Diffstat (limited to 'FS/FS/svc_acct.pm')
-rw-r--r-- | FS/FS/svc_acct.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 9ab9034..955547b 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -1711,7 +1711,7 @@ my %op2condition = ( $self->$column - $amount <= 0; }, '+' => sub { my($self, $column, $amount) = @_; - $self->$column + $amount > 0; + ($self->$column || 0) + $amount > 0; }, ); my %op2warncondition = ( @@ -1720,7 +1720,7 @@ my %op2warncondition = ( $self->$column - $amount <= $self->$threshold + 0; }, '+' => sub { my($self, $column, $amount) = @_; - $self->$column + $amount > 0; + ($self->$column || 0) + $amount > 0; }, ); |