diff options
| author | ivan <ivan> | 2009-01-26 01:07:19 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-01-26 01:07:19 +0000 |
| commit | 6ab0c477f897f423347e328929c373b73f965472 (patch) | |
| tree | 560dbbb89b0c49fe67c197301563aaa49a1bea4c | |
| parent | dae1d4ab33e5aee1ca8fcba89c8cf4ce4cbd1810 (diff) | |
fix harmless warning, RT#4681: Argument "" isn't numeric in numeric eq (==) at /usr/local/share/perl/5.8.8/FS/cust_pkg.pm line 443.
| -rw-r--r-- | FS/FS/cust_pkg.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 52148aaf1..885eef18f 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -440,7 +440,9 @@ replace methods. sub check { my $self = shift; - $self->locationnum('') if $self->locationnum == 0 || $self->locationnum == -1; + $self->locationnum('') + if defined($self->locationnum) && length($self->locationnum) + && ( $self->locationnum == 0 || $self->locationnum == -1 ); my $error = $self->ut_numbern('pkgnum') |