diff options
| author | ivan <ivan> | 2009-05-04 01:17:26 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-05-04 01:17:26 +0000 |
| commit | d83a396941b780eddcfd21c7e90c4b653cb97420 (patch) | |
| tree | 8eddb942619682c6e47d12614cbe899addb39a53 | |
| parent | a83cf8c5387969eaae9e45a9f407ec583e5872dc (diff) | |
eliminate Argument "" isn't numeric in addition (+) warning
| -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 584274dc5..03678c570 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -1639,7 +1639,7 @@ my %op2condition = ( $self->$column - $amount <= 0; }, '+' => sub { my($self, $column, $amount) = @_; - $self->$column + $amount > 0; + ($self->$column || 0) + $amount > 0; }, ); my %op2warncondition = ( @@ -1648,7 +1648,7 @@ my %op2warncondition = ( $self->$column - $amount <= $self->$threshold + 0; }, '+' => sub { my($self, $column, $amount) = @_; - $self->$column + $amount > 0; + ($self->$column || 0) + $amount > 0; }, ); |