diff options
author | mark <mark> | 2009-10-03 20:22:19 +0000 |
---|---|---|
committer | mark <mark> | 2009-10-03 20:22:19 +0000 |
commit | 2715e1715d954c0991df079386df6c05cebc1164 (patch) | |
tree | 9d9b39314a03d8135a2990e95c06161d6ab4b535 /FS/FS/pay_batch | |
parent | e1578c35520ffb7676a4f1fb2b285ce6020db4b6 (diff) |
Load XML::Simple at runtime to avoid breakage
Diffstat (limited to 'FS/FS/pay_batch')
-rw-r--r-- | FS/FS/pay_batch/paymentech.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm index 33a9fda..44fa78a 100644 --- a/FS/FS/pay_batch/paymentech.pm +++ b/FS/FS/pay_batch/paymentech.pm @@ -6,7 +6,6 @@ use Time::Local; use Date::Format 'time2str'; use Date::Parse 'str2time'; use FS::Conf; -use XML::Simple qw(XMLin XMLout); my $conf; my ($bin, $merchantID, $terminalID, $username); @@ -49,6 +48,9 @@ my %paytype = ( %export_info = ( init => sub { +# Load this at run time + eval "use XML::Simple"; + die $@ if $@; my $conf = shift; ($bin, $terminalID, $merchantID, $username) = $conf->config('batchconfig-paymentech'); @@ -58,7 +60,7 @@ my %paytype = ( my $pay_batch = shift; my @cust_pay_batch = @{(shift)}; my $count = 0; - XMLout( { + XML::Simple::XMLout( { transRequest => { RequestCount => scalar(@cust_pay_batch), batchFileID => { |