From 7e849b9ceaccba63eaeab7e724e531b7a26ff8f6 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 28 Nov 2005 16:59:55 +0000
Subject: [PATCH] allow defaults to override empty values for new objects

---
 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 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 ) { 
-- 
2.11.0