From 0c7b01010edc4223bdf74649592731e8268e708c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 3 Aug 2005 00:57:06 +0000
Subject: Fix inadvertant clobbering of zip code, patch from
 <phil@perkpartners.com>, CPAN bug #13896

---
 PayflowPro.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'PayflowPro.pm')

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/;
-- 
cgit v1.2.1