From bf33a68cb21ef3a4596cafe0996f0f9e61367500 Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Fri, 11 May 2007 19:51:11 +0000
Subject: [PATCH] Quiet "Use of uninitialized value in string eq".  (Backport)

---
 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.20.1