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.

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index efaa4ef..1ea941f 100644 (file)
--- 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'