| Subject: | misc. redefined subs |
Like the in habitants of earth "mostly harmless", but...
Subroutine POE::Component::SNMP::Dispatcher::DEBUG_INFO redefined at
POE/Component/SNMP/Dispatcher.pm line 24.
+ This is pretty straight forward. There are two definitions one
right after the other.
Subroutine POE::Component::SNMP::Dispatcher::sub_fullname redefined at
Exporter.pm line 67.
+ adding ($) to the function definition fixes this problem
Also changed VERBOSE so that it can be toggled without editing the module.
See attached patch.
| Subject: | cleanup.patch |
Index: lib/POE/Component/SNMP.pm
===================================================================
--- lib/POE/Component/SNMP.pm (revision 4269)
+++ lib/POE/Component/SNMP.pm (working copy)
@@ -2,7 +2,7 @@
use strict;
-our $VERSION = '1.1001';
+our $VERSION = '1.1001_1';
package POE::Net::SNMP;
Index: lib/POE/Component/SNMP/Dispatcher.pm
===================================================================
--- lib/POE/Component/SNMP/Dispatcher.pm (revision 4269)
+++ lib/POE/Component/SNMP/Dispatcher.pm (working copy)
@@ -16,10 +16,14 @@
our $MESSAGE_PROCESSING; # reference to single MP object
# sub VERBOSE() { 1 } # debugging, that is
-use constant VERBOSE => 1;
+BEGIN {
+ if ( ! defined &VERBOSE ) {
+ eval { sub VERBOSE () { 0 } };
+ }
+}
# sub DEBUG_INFO(){ }
-*DEBUG_INFO = sub {};
+#*DEBUG_INFO = sub {};
*DEBUG_INFO = \&Net::SNMP::Dispatcher::DEBUG_INFO;
@@ -722,7 +726,8 @@
if ($@ or not VERBOSE
) {
- eval { sub sub_fullname { ref shift } }
+ no warnings 'redefine';
+ eval { sub sub_fullname($) { ref shift } };
} else {
Sub::Identify->import('sub_fullname');
}