eliminate warnings about redefined subroutes

diff --git a/Changes b/Changes
index 15e6b48..7672d21 100644 (file)
--- 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 (file)
--- 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->{$_}; }";
     }