more tolerant of weird subname calls in autoload

2022-03-02 22:11:56 +00:00
parent 1c1dbe6464
commit 7f3028cbdb
1 changed files with 2 additions and 2 deletions
--- a/lib/SNMP/Info.pm
+++ b/lib/SNMP/Info.pm
@@ -5132,7 +5132,7 @@ 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';