diff options
| author | khoff <khoff> | 2007-05-11 19:51:11 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2007-05-11 19:51:11 +0000 |
| commit | bf33a68cb21ef3a4596cafe0996f0f9e61367500 (patch) | |
| tree | d0dfd84dfe357679dda9d09ac77dc592b6ea0c12 | |
| parent | 61f09c650da6381ae366ce3cff47721593771e7d (diff) | |
Quiet "Use of uninitialized value in string eq". (Backport)
| -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; } |