From 93e8083843fb810d74962fa1b0c5ce677f2ad8b9 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 22 Jun 2009 10:45:26 +0000
Subject: [PATCH] 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.

---
 FS/FS/part_pkg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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'
-- 
2.11.0