projects
/
Business-OnlinePayment.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
09de1aa
)
eliminate warnings about redefined subroutes
author
ivan
<ivan>
Wed, 2 Aug 2006 18:22:03 +0000
(18:22 +0000)
committer
ivan
<ivan>
Wed, 2 Aug 2006 18:22:03 +0000
(18:22 +0000)
Changes
patch
|
blob
|
history
OnlinePayment.pm
patch
|
blob
|
history
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
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
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;
# 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->{$_}; }";
}
foreach(@_) {
eval "sub $_ { my \$self = shift; if(\@_) { \$self->{$_} = shift; } return \$self->{$_}; }";
}