#332 fix undef error when debug on $info

2019-04-28 19:54:51 +01:00
parent 2652998aba
commit 23d11551c6
1 changed files with 1 additions and 1 deletions
--- a/lib/SNMP/Info.pm
+++ b/lib/SNMP/Info.pm
@@ -1390,7 +1390,7 @@ sub new {

    my $info = $auto_specific ? $new_obj->specify() : $new_obj;

-    if ( $info->debug() > 1 ) {
+    if (defined $info and ($info->debug() > 1)) {
        require mro;
        print STDERR (ref $info) ." has resolution order: \n";
        print STDERR "  $_\n" foreach @{ mro::get_linear_isa( ref $info ) };