diff options
author | ivan <ivan> | 2007-04-12 02:42:32 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-04-12 02:42:32 +0000 |
commit | b611f02e479f4a7f9840f59f773d282b1c13b62f (patch) | |
tree | 2d483a51116383adc9721fdba36cd62b9cb3779a | |
parent | caf9f9932406e627207197c577c211f3fda0be20 (diff) |
quiet "Use of uninitialized value in string eq at /usr/local/share/perl/5.8.4/FS/svc_Common.pm line 131". i think.
-rw-r--r-- | FS/FS/svc_Common.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |