diff --git a/lib/SNMP/Info.pm b/lib/SNMP/Info.pm index eb94a339..9afa0ebb 100644 --- a/lib/SNMP/Info.pm +++ b/lib/SNMP/Info.pm @@ -3884,7 +3884,6 @@ These methods return data as a scalar. sub _global { my $method = shift; my $oid = shift; - return if $method eq 'CARP_TRACE'; return sub { my $self = shift; @@ -4680,6 +4679,8 @@ sub can { # use results of parent can() return $self->SUPER::can($method) if $self->SUPER::can($method); + return if $method eq 'CARP_TRACE'; + my $validated = $self->_validate_autoload_method($method); return unless $validated; @@ -4756,6 +4757,8 @@ sub AUTOLOAD { my $self = shift; my ($sub_name) = $AUTOLOAD =~ /::(\w+)$/; + 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, # we'll still get called, so report a less confusing error. diff --git a/xt/lib/Test/SNMP/Info.pm b/xt/lib/Test/SNMP/Info.pm index 7847ea8e..7fd8b538 100644 --- a/xt/lib/Test/SNMP/Info.pm +++ b/xt/lib/Test/SNMP/Info.pm @@ -921,7 +921,7 @@ sub store : Tests(4) { ); } -sub private_global : Tests(15) { +sub private_global : Tests(14) { my $test = shift; can_ok($test->{info}, '_global'); @@ -998,11 +998,6 @@ sub private_global : Tests(15) { cmp_deeply($test->{info}->cache(), $expected_cache, 'Cache contains expected data'); -# Not sure if we need this anonymous sub, added by this commit -# https://github.com/netdisco/snmp-info/commit/07605051f5886ffd05f65cfbc1804c316ed904ba - is(SNMP::Info::_global('CARP_TRACE'), - undef, 'CARP_TRACE passed to _global() returns undef'); - # Simulate session error, i.e. get fails $test->{info}{sess}{ErrorStr} = 'Get Failed';