PBP always return via an explicit return

Info/Layer2/Aironet.pm

@@ -267,7 +267,8 @@ sub munge_cd11_txrate {
     my $txrates = shift;
     my @rates = unpack("C*", $txrates);
     map {$_ *= 0.5} @rates;
-    \@rates;
+
+    return \@rates;
 }
 
 # cd11 INDEX

Info/Layer2/C1900.pm

@@ -88,8 +88,8 @@ $VERSION = '1.09';
            %SNMP::Info::CDP::MUNGE,
          );
 
-sub bulkwalk_no         { 1; }
-sub cisco_comm_indexing { 1; }
+sub bulkwalk_no         { return 1; }
+sub cisco_comm_indexing { return 1; }
 
 sub vendor {
     return 'cisco';

Info/Layer2/C2900.pm

@@ -93,7 +93,7 @@ sub vendor {
 }
 
 sub cisco_comm_indexing {
-    1;
+    return 1;
 }
 
 sub i_duplex {

Info/Layer2/Catalyst.pm

@@ -141,7 +141,7 @@ sub bp_index {
 }
 
 sub cisco_comm_indexing {
-    1;
+    return 1;
 }
 
 sub interfaces {

Info/Layer2/Foundry.pm

@@ -204,7 +204,7 @@ sub vendor {
 
 # this hangs on a edgeiron24g
 # TODO: check by devicetype and deferr to SUPER if not bad device
-sub stp_p_state { undef; }
+sub stp_p_state { return undef; }
 
 1;
 __END__