noise reduction

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index c5e5ba0..b40f18a 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -7875,7 +7875,8 @@ sub geocode {
                ? 'ship_'
                : '';
 
-  my ($zip,$plus4) = split /-/, $self->get("${prefix}zip")
+  my ($zip,$plus4) = ( '', '' );
+  ($zip,$plus4) = split /-/, $self->get("${prefix}zip")
     if $self->country eq 'US';
 
   #CCH specific location stuff