diff options
Diffstat (limited to 'FS')
| -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 b58b11cfa..d5083fd79 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -51,7 +51,7 @@ sub new { $self->{'Hash'} = { map { $_ => $newhash->{$_} } qw(svcnum svcpart) }; $self->setdefault; $self->{'Hash'}{$_} = $newhash->{$_} - foreach #grep length($newhash->{$_}), + foreach grep length($newhash->{$_}), keys %$newhash; foreach my $field ( grep !defined($self->{'Hash'}{$_}), $self->fields ) { |