From: ivan <ivan>
Date: Wed, 2 Aug 2006 18:22:03 +0000 (+0000)
Subject: eliminate warnings about redefined subroutes
X-Git-Tag: BUSINESS_ONLINEPAYMENT_3_00_04~26
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;ds=sidebyside;h=ce4c02cf77f052803ae85149013bc147728ffce2;p=Business-OnlinePayment.git

eliminate warnings about redefined subroutes
---

diff --git a/Changes b/Changes
index 15e6b48..7672d21 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ Revision history for Perl extension Business::OnlinePayment.
 3.00_04  unreleased
 	- oops, forgot _03 changelog in _03
 	- B:OP:HTTPS: require Net::SSLeay 1.30 and remove _my_https_post kludge
+	- no warnings "redefine"
 
 3.00_03  Wed Mar 16 02:41:59 PST 2005
 	- https_post now accepts a scalar of raw content instead of key value
diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index bace43c..246066e 100644
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -122,6 +122,7 @@ sub dump_contents {
 # AutoLoader::AUTOLOAD, instead of passing up the chain
 sub build_subs {
     my $self = shift;
+    no warnings 'redefine';
     foreach(@_) {
         eval "sub $_ { my \$self = shift; if(\@_) { \$self->{$_} = shift; } return \$self->{$_}; }";
     }