From 0d7b482edd805e60390b668570cfab9d40a3dc9b Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Thu, 7 Oct 2021 17:09:50 +0100
Subject: [PATCH] only substr if layers returns

---
 lib/SNMP/Info/Layer3/DLink.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/SNMP/Info/Layer3/DLink.pm b/lib/SNMP/Info/Layer3/DLink.pm
index aaf244ac..52ecd71b 100644
--- 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;
 }