#401 add DLink layers always 2+3

lib/SNMP/Info/Layer3/DLink.pm

@@ -74,6 +74,16 @@ $VERSION = '3.80';
 
 %MUNGE = ( %SNMP::Info::Layer3::MUNGE, );
 
+sub layers {
+    my $dlink = shift;
+
+    my $layers = $dlink->SUPER::layers();
+    substr $layers, 5, 1, "1";
+    substr $layers, 6, 1, "1";
+
+    return $layers;
+}
+
 sub model {
     my $dlink=shift;
     my $id = $dlink->id();
@@ -233,6 +243,10 @@ These are methods that return scalar value from SNMP
 
 =over
 
+=item $dlink->layers()
+
+Makes sure to always report layer 2 and 3.
+
 =item $dlink->model()
 
 Returns the ID or else description.