From: ivan <ivan>
Date: Wed, 3 Aug 2005 00:57:06 +0000 (+0000)
Subject: Fix inadvertant clobbering of zip code, patch from <phil@perkpartners.com>, CPAN... 
X-Git-Tag: BUSINESS_ONLINEPAYMENT_PAYFLOWPRO_0_03
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PayflowPro.git;a=commitdiff_plain;h=0c7b01010edc4223bdf74649592731e8268e708c

Fix inadvertant clobbering of zip code, patch from <phil@perkpartners.com>, CPAN bug #13896
---

diff --git a/Changes b/Changes
index c7602a5..3cc52ee 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Business::OnlinePayment::PayflowPro.
 
+0.03  Tue Aug  2 17:56:11 PDT 2005
+	- Fix inadvertant clobbering of zip code, patch from
+	  <phil@perkpartners.com>, CPAN bug #13896
+
 0.02  Thu Oct  7 15:58:44 PDT 2004
 	- sponsored by Pro Softnet Corp. / ibackup.com:
 	  - cvv2 support
diff --git a/PayflowPro.pm b/PayflowPro.pm
index 86a43a0..0051fb9 100644
--- a/PayflowPro.pm
+++ b/PayflowPro.pm
@@ -125,7 +125,7 @@ sub submit {
         $month = '0'. $month if $month =~ /^\d$/;
       }
 
-      $zip = $content{'zip'} =~ s/\D//;
+      ( $zip = $content{'zip'} ) =~ s/\D//g;
     #}
 
     #$content{'address'} =~ /^(\S+)\s/;