diff options
-rw-r--r-- | FS/FS/svc_Common.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index d5083fd79..962e36a07 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -51,8 +51,8 @@ sub new { $self->{'Hash'} = { map { $_ => $newhash->{$_} } qw(svcnum svcpart) }; $self->setdefault; $self->{'Hash'}{$_} = $newhash->{$_} - foreach grep length($newhash->{$_}), - keys %$newhash; + foreach grep { defined($newhash->{$_}) && length($newhash->{$_}) } + keys %$newhash; foreach my $field ( grep !defined($self->{'Hash'}{$_}), $self->fields ) { $self->{'Hash'}{$field}=''; |