diff --git a/lib/SNMP/Info.pm b/lib/SNMP/Info.pm index 800ef31f..ab9e1c22 100644 --- a/lib/SNMP/Info.pm +++ b/lib/SNMP/Info.pm @@ -5132,9 +5132,9 @@ subclass. sub AUTOLOAD { my $self = shift; - my ($sub_name) = $AUTOLOAD =~ /::(\w+)$/; + my ($sub_name) = $AUTOLOAD =~ /::([a-zA-Z0-9_-]+)$/; - return if $sub_name eq 'CARP_TRACE'; + return if $sub_name eq 'CARP_TRACE'; # Typos in function calls in SNMP::Info subclasses turn into # AUTOLOAD requests for non-methods. While this is deprecated,