135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more tolerant of weird subname calls in autoload

Browse Source
This commit is contained in:
Oliver Gorwits
2022-03-02 22:11:56 +00:00
parent 1c1dbe6464
commit 7f3028cbdb
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/SNMP/Info.pm
View File

@@ -5132,7 +5132,7 @@ subclass.
sub AUTOLOAD { sub AUTOLOAD {
my $self = shift; 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';