From b611f02e479f4a7f9840f59f773d282b1c13b62f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 12 Apr 2007 02:42:32 +0000
Subject: [PATCH] quiet "Use of uninitialized value in string eq at
 /usr/local/share/perl/5.8.4/FS/svc_Common.pm line 131".  i think.

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

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index 52226d20b..fd3a46aa6 100644
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -128,7 +128,7 @@ sub virtual_fields {
     my %flags = map { $_->columnname, $_->columnflag } (
         qsearch ('part_svc_column', { svcpart => $svcpart } )
       );
-    return grep { not ($flags{$_} eq 'X') } @vfields;
+    return grep { not ( defined($flags{$_}) && $flags{$_} eq 'X') } @vfields;
   } else { # Case 3
     return @vfields;
   } 
-- 
2.11.0