From 227b900b0cc756a7f16248ee26ea1d2a92e25bcb Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Fri, 2 Mar 2007 01:13:55 +0000
Subject: [PATCH] - zip now allows alphanumerics for non-US zips

---
 Changes       | 3 +++
 PayflowPro.pm | 8 ++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index db329c2..e88ab9f 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Business::OnlinePayment::PayflowPro.
 
+0.06  Thu Mar  1 10:01:33 EST 2007
+	- zip now allows alphanumerics for non-US zips
+
 0.05  Mon Jan 22 00:58:04 EST 2007
 	[Jan 22 2007 by Phil Lobbes <phil at perkpartners.com>]
 	- Test cases: new tests and cleanup of existing tests
diff --git a/PayflowPro.pm b/PayflowPro.pm
index b8415b9..576aabc 100644
--- a/PayflowPro.pm
+++ b/PayflowPro.pm
@@ -8,7 +8,7 @@ use base qw(Business::OnlinePayment);
 # Payflow Pro SDK
 use PFProAPI qw( pfpro );
 
-$VERSION = '0.05';
+$VERSION = '0.06';
 $VERSION = eval $VERSION;
 
 sub set_defaults {
@@ -104,7 +104,7 @@ sub submit {
         $month = '0' . $month if $month =~ /^\d$/;
     }
 
-    ( $zip = $content{'zip'} ) =~ s/\D//g;
+    ( $zip = $content{'zip'} ) =~ s/[^[:alnum:]]//g;
 
     $self->server('test-payflow.verisign.com') if $self->test_transaction;
 
@@ -135,7 +135,7 @@ sub submit {
         STREET      => 'address',
         CITY        => 'city',
         STATE       => 'state',
-        ZIP         => \$zip,               # 'zip' with non-numbers removed
+        ZIP         => \$zip,               # 'zip' with non-alnums removed
         COUNTRY     => 'country',
     );
 
@@ -375,7 +375,7 @@ from content(%content):
       STREET      => 'address',
       CITY        => 'city',
       STATE       => 'state',
-      ZIP         => \$zip, # 'zip' with non-numbers removed
+      ZIP         => \$zip, # 'zip' with non-alphanumerics removed
       COUNTRY     => 'country',
 
 The required Payflow Pro parameters for credit card transactions are:
-- 
2.11.0