Translate OIDs returned by Entity MIB e_type

Info/Entity.pm

@@ -68,6 +68,7 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
            );
 
 %MUNGE   = (
+            'e_type'    => \&munge_e_type,
            );
 
 sub e_port {
@@ -88,6 +89,14 @@ sub e_port {
 
     return \%e_port;
 }
+
+sub munge_e_type {
+    my $oid = shift;
+
+    my $name = &SNMP::translateObj($oid);
+    return $name if defined($name);
+    return $oid;
+}
 1;
 
 =head1 NAME