From c7db0371aafc6d4330a261d132909db1fccc7226 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Wed, 28 Nov 2012 22:02:29 +0000
Subject: [PATCH] fixes to pas critic tests

---
 Info/Airespace.pm        |  5 +++++
 Info/Layer3/Netscreen.pm |  4 ++++
 Info/Layer3/Nexus.pm     |  1 +
 Info/Layer3/Tasman.pm    | 19 +++++++++++++++++++
 4 files changed, 29 insertions(+)

diff --git a/Info/Airespace.pm b/Info/Airespace.pm
index 208672ec..c6f056e4 100644
--- a/Info/Airespace.pm
+++ b/Info/Airespace.pm
@@ -1243,6 +1243,11 @@ interface.
 Returns reference to hash.  Current transmit power, in milliwatts, of the
 radio interface.
 
+=item $airespace->i_ssidmac()
+
+With the same keys as i_ssidlist, returns the Basic service set
+identification (BSSID), MAC address, the AP is using for the SSID. 
+
 =back
 
 =head2 Dot11 Ess Table  (C<bsnDot11EssTable>)
diff --git a/Info/Layer3/Netscreen.pm b/Info/Layer3/Netscreen.pm
index b2b1fa84..6c0c29bd 100644
--- a/Info/Layer3/Netscreen.pm
+++ b/Info/Layer3/Netscreen.pm
@@ -181,6 +181,10 @@ These are methods that return scalar value from SNMP
 
 =over
 
+=item $netscreen->model()
+
+(C<chassisModel>)
+
 =item $netscreen->vendor()
 
 Returns 'netscreen'
diff --git a/Info/Layer3/Nexus.pm b/Info/Layer3/Nexus.pm
index 9994c438..7eb94cb4 100644
--- a/Info/Layer3/Nexus.pm
+++ b/Info/Layer3/Nexus.pm
@@ -135,6 +135,7 @@ sub os_ver {
     my $descr = $nexus->description();
     
     return $1 if ( $descr =~ /\),\s+Version\s+(.+?),/ );
+    return $descr;
 }
 
 sub serial {
diff --git a/Info/Layer3/Tasman.pm b/Info/Layer3/Tasman.pm
index d99e24bc..f1895e70 100644
--- a/Info/Layer3/Tasman.pm
+++ b/Info/Layer3/Tasman.pm
@@ -248,6 +248,25 @@ See documentation in L<SNMP::Info::MAU/"GLOBALS"> for details.
 These are methods that return tables of information in the form of a reference
 to a hash.
 
+=over 4
+
+=item $stack->i_duplex_admin()
+
+Returns reference to hash of iid to administrative duplex setting.
+
+First checks for fixed gigabit ports which are always full duplex. Next checks
+the port administrative speed (C<portAdminSpeed>) which if set to
+autonegotiate then the duplex will also autonegotiate, otherwise it uses the
+reported port duplex (C<portDuplex>).
+
+=item $stack->i_speed_admin()
+
+Returns reference to hash of iid to administrative speed setting.
+
+C<portAdminSpeed>
+
+=back
+
 =head2 Table Methods imported from SNMP::Info::Layer3
 
 See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.