only substr if layers returns

2021-10-07 17:09:50 +01:00
parent 933766120f
commit 0d7b482edd
1 changed files with 4 additions and 2 deletions
--- a/lib/SNMP/Info/Layer3/DLink.pm
+++ b/lib/SNMP/Info/Layer3/DLink.pm
@@ -78,8 +78,10 @@ sub layers {
    my $dlink = shift;

    my $layers = $dlink->SUPER::layers();
-    substr $layers, 5, 1, "1";
-    substr $layers, 6, 1, "1";
+    if ($layers) {
+        substr $layers, 5, 1, "1";
+        substr $layers, 6, 1, "1";
+    }

    return $layers;
 }