Clean up more model names in L2::Baystack

This commit is contained in:
Eric A. Miller
2013-10-18 19:13:04 -04:00
parent f3b6cfbd01
commit 5a2722d049
2 changed files with 2 additions and 0 deletions

View File

@@ -26,6 +26,7 @@ version 3.08 ()
summarize more standard class methods summarize more standard class methods
* On EOS, the LLDP port ID is a dot1d port * On EOS, the LLDP port ID is a dot1d port
* Use LLDP in Layer3::Aruba, for switches * Use LLDP in Layer3::Aruba, for switches
* Clean up more model names in L2::Baystack
[BUG FIXES] [BUG FIXES]

View File

@@ -141,6 +141,7 @@ sub model {
$model =~ s/^sreg-//; $model =~ s/^sreg-//;
# Strip ES/ERS/BayStack etc. from those families # Strip ES/ERS/BayStack etc. from those families
$model =~ s/^(E(R)?S|BayStack|Ethernet(Routing)?Switch)-?//; $model =~ s/^(E(R)?S|BayStack|Ethernet(Routing)?Switch)-?//;
$model =~ s/-ethSwitchNMM//;
return $model; return $model;
} }