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.pm | |
parent | e1578c35520ffb7676a4f1fb2b285ce6020db4b6 (diff) |
Load XML::Simple at runtime to avoid breakage
Diffstat (limited to 'FS/FS/pay_batch.pm')
-rw-r--r-- | FS/FS/pay_batch.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm index ffa6e20..83bf7a3 100644 --- a/FS/FS/pay_batch.pm +++ b/FS/FS/pay_batch.pm @@ -4,7 +4,6 @@ use strict; use vars qw( @ISA $DEBUG %import_info %export_info $conf ); use Time::Local; use Text::CSV_XS; -use XML::Simple qw(XMLin XMLout); use FS::Record qw( dbh qsearch qsearchs ); use FS::cust_pay; use FS::Conf; @@ -241,11 +240,13 @@ sub import_results { # process one line at a time. if ($filetype eq 'XML') { + eval "use XML::Simple"; + die $@ if $@; my @xmlkeys = @{ $info->{'xmlkeys'} }; # for XML my $xmlrow = $info->{'xmlrow'}; # also for XML # Do everything differently. - my $data = XMLin($fh, KeepRoot => 1); + my $data = XML::Simple::XMLin($fh, KeepRoot => 1); my $rows = $data; # $xmlrow = [ RootKey, FirstLevelKey, SecondLevelKey... ] $rows = $rows->{$_} foreach( @$xmlrow ); |