rename our internal VERSION sub to avoid conflict with Perl's needs (thanks to ETHER...

diff --git a/Changes b/Changes
index 8a50ce6..c1a5ff9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,8 @@ Revision history for Perl extension Business::OnlinePayment::PPIPayMover.
 
 0.02 unreleased
         - add Net::SSLeay to PREREQ_PM
+        - rename our internal VERSION sub to avoid conflict with Perl's needs
+          (thanks to ETHER for the report)
 
 0.01  Fri Jun 30 04:25:46 2006
        - original version; created by h2xs 1.23 with options

diff --git a/lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm b/lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm
index cef6a99..930861e 100644 (file)
--- a/lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm
+++ b/lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm
@@ -37,7 +37,7 @@ sub doTransaction # take three arguements
   #$PostString .= "&";\r
   \r
   # write out version_id ...\r
-  my $temp = VERSION;\r
+  my $temp = PPI_VERSION;\r
   $temp =~ tr/ /+/;\r
   $PostString .= "version_id=$temp";\r
   $PostString .= "&";\r

diff --git a/lib/Business/OnlinePayment/PPIPayMover/constants.pm b/lib/Business/OnlinePayment/PPIPayMover/constants.pm
index 0015c74..c3cf68f 100644 (file)
--- a/lib/Business/OnlinePayment/PPIPayMover/constants.pm
+++ b/lib/Business/OnlinePayment/PPIPayMover/constants.pm
@@ -6,7 +6,7 @@ use Exporter;
 \r
 @ISA = qw(Exporter);\r
 \r
-@EXPORT = qw(VERSION\r
+@EXPORT = qw(PPI_VERSION\r
   PAY_HOST\r
   PAY_HOST_PATH\r
   PAY_HOST_PORT\r
@@ -107,7 +107,7 @@ use Exporter;
   NO_CHECK\r
 );\r
 \r
-sub VERSION { "Perl Plug v1.8.0" }\r
+sub PPI_VERSION { "Perl Plug v1.8.0" }\r
 \r
 #**\r
 # * Payment Host Information\r