| Subject: | Autoload failures if using trapping DIE signals |
When trapping die signals, AutoLoader throws errors
Code:
#!/usr/bin/perl
$SIG{__DIE__} = sub {
print "Die: ".join("\n", @_)."\n";
};
use Business::OnlinePayment();
my $tx = new Business::OnlinePayment("TCLink");
Result:
Die: Can't locate
auto/Business/OnlinePayment/TCLink/fraud_transaction_id.al in @INC (@INC
contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/require_avs.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/path.al in @INC
(@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/failure_status.al
in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/port.al in @INC
(@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/maximum_risk.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/fraud_detect.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/is_success.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/authorization.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/fraud_score.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/result_code.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/error_message.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/server_response.al
in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/server.al in @INC
(@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/transaction_type.al
in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/test_transaction.al
in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
Die: Can't locate auto/Business/OnlinePayment/TCLink/order_number.al in
@INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at
/usr/share/perl/5.10/AutoLoader.pm line 63.
On cursory glance, AutoLoader is not needed and removed by the attached
patch.
| Subject: | BOP-TCLink.patch |
diff -crB Business-OnlinePayment-TCLink-1.03-orig/TCLink.pm Business-OnlinePayment-TCLink-1.03/TCLink.pm
*** Business-OnlinePayment-TCLink-1.03-orig/TCLink.pm Thu Dec 30 00:03:42 2010
--- Business-OnlinePayment-TCLink-1.03/TCLink.pm Thu Dec 30 00:02:03 2010
***************
*** 7,13 ****
require Exporter;
! @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
$VERSION = '1.03';
--- 7,13 ----
require Exporter;
! @ISA = qw(Exporter Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
$VERSION = '1.03';