From d5ac80a134c2c2ab9f1fb36828b59bcdc7a9b0f6 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 30 Dec 2009 06:05:42 +0000
Subject: [PATCH] noise reduction

---
 FS/FS/cust_main.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index de836257e..023504730 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -7986,7 +7986,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
-- 
2.11.0