From ce4c02cf77f052803ae85149013bc147728ffce2 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 2 Aug 2006 18:22:03 +0000
Subject: [PATCH] eliminate warnings about redefined subroutes

---
 Changes          | 1 +
 OnlinePayment.pm | 1 +
 2 files changed, 2 insertions(+)

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->{$_}; }";
     }
-- 
2.11.0