From 8db92b7dd0700481a71bff0b4bc22ad46de57c2d Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Thu, 31 Dec 2009 02:50:57 +0000
Subject: [PATCH 1/1] really reduce the noise

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

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index b40f18afb..3c47bef3d 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -7875,10 +7875,11 @@ sub geocode {
                ? 'ship_'
                : '';
 
-  my ($zip,$plus4) = ( '', '' );
-  ($zip,$plus4) = split /-/, $self->get("${prefix}zip")
+  my($zip,$plus4) = split /-/, $self->get("${prefix}zip")
     if $self->country eq 'US';
 
+  $zip ||= '';
+  $plus4 ||= '';
   #CCH specific location stuff
   my $extra_sql = "AND plus4lo <= '$plus4' AND plus4hi >= '$plus4'";
 
-- 
2.11.0