diff options
Diffstat (limited to 'LinkPoint.pm')
| -rw-r--r-- | LinkPoint.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/LinkPoint.pm b/LinkPoint.pm index 22815c3..17cab8e 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.4 2002-02-27 22:16:08 ivan Exp $ +# $Id: LinkPoint.pm,v 1.5 2002-02-27 23:28:28 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -150,7 +150,11 @@ sub submit { #print "$_ => $post_data{$_}\n" foreach keys %post_data; - my %response = $lperl->$action(\%post_data); + my %response; + { + local($^W)=0; + %response = $lperl->$action(\%post_data); + } if ( $response{'statusCode'} == 0 ) { $self->is_success(0); |