From 9f22ed1ea0f6682c609c8cb455f1b9189012a819 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Tue, 7 Jul 2015 11:20:02 -0700 Subject: [PATCH] rename our internal VERSION sub to avoid conflict with Perl's needs (thanks to ETHER for the report) --- Changes | 2 ++ lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm | 2 +- lib/Business/OnlinePayment/PPIPayMover/constants.pm | 4 ++-- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 8a50ce6..c1a5ff9 100644 --- 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 --- a/lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm +++ b/lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm @@ -37,7 +37,7 @@ sub doTransaction # take three arguements #$PostString .= "&"; # write out version_id ... - my $temp = VERSION; + my $temp = PPI_VERSION; $temp =~ tr/ /+/; $PostString .= "version_id=$temp"; $PostString .= "&"; diff --git a/lib/Business/OnlinePayment/PPIPayMover/constants.pm b/lib/Business/OnlinePayment/PPIPayMover/constants.pm index 0015c74..c3cf68f 100644 --- a/lib/Business/OnlinePayment/PPIPayMover/constants.pm +++ b/lib/Business/OnlinePayment/PPIPayMover/constants.pm @@ -6,7 +6,7 @@ use Exporter; @ISA = qw(Exporter); -@EXPORT = qw(VERSION +@EXPORT = qw(PPI_VERSION PAY_HOST PAY_HOST_PATH PAY_HOST_PORT @@ -107,7 +107,7 @@ use Exporter; NO_CHECK ); -sub VERSION { "Perl Plug v1.8.0" } +sub PPI_VERSION { "Perl Plug v1.8.0" } #** # * Payment Host Information -- 2.11.0