diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-07-07 11:20:02 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-07-07 11:20:02 -0700 |
| commit | 9f22ed1ea0f6682c609c8cb455f1b9189012a819 (patch) | |
| tree | cf21e553ec983bb02dd182a8af5a27eb1a1b460c /lib/Business | |
| parent | e33a5bea84c28bb93fdbba27b719208b47c9e2d9 (diff) | |
rename our internal VERSION sub to avoid conflict with Perl's needs (thanks to ETHER for the report)HEADmaster
Diffstat (limited to 'lib/Business')
| -rw-r--r-- | lib/Business/OnlinePayment/PPIPayMover/TransactionClient.pm | 2 | ||||
| -rw-r--r-- | lib/Business/OnlinePayment/PPIPayMover/constants.pm | 4 |
2 files changed, 3 insertions, 3 deletions
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
|