diff options
| author | ivan <ivan> | 2009-06-22 10:45:26 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-06-22 10:45:26 +0000 |
| commit | 93e8083843fb810d74962fa1b0c5ce677f2ad8b9 (patch) | |
| tree | 59747cf2302374e8719b7d586de0ecd7be9fea87 /FS | |
| parent | cd48e8003490f6ac502ca1465a7d3c4ae2577444 (diff) | |
eliminate harmless upgrade error:
Argument "" isn't numeric in numeric eq (==) at /usr/local/share/perl/5.8.8/FS/part_pkg.pm line 371.
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_pkg.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index efaa4ef83..1ea941fd6 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -369,7 +369,7 @@ sub replace { foreach my $part_svc ( qsearch('part_svc', {} ) ) { my $quantity = $pkg_svc->{$part_svc->svcpart} || 0; my $primary_svc = - ( defined($options->{'primary_svc'}) + ( defined($options->{'primary_svc'}) && $options->{'primary_svc'} && $options->{'primary_svc'} == $part_svc->svcpart ) ? 'Y' |