From bf33a68cb21ef3a4596cafe0996f0f9e61367500 Mon Sep 17 00:00:00 2001 From: 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