From 602bb15b4720c1a4b08bf561ee8c7a223881f095 Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Sun, 8 Dec 2013 21:55:24 -0500
Subject: [PATCH] Alias lldp_rem_sysdesc() as lldp_platform() to provide a clue
 to type  of remote LLDP device.

---
 ChangeLog    |  2 ++
 Info.pm      |  3 ++-
 Info/LLDP.pm | 11 +++++++++++
 3 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index d7bb11e5..c5f23a91 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -17,6 +17,8 @@ version 3.09 ()
     * Aruba POE Support
     * Aruba utilizes Q-BRIDGE-MIB when available for VLAN information to
       better support wired switches
+    * Alias lldp_rem_sysdesc() as lldp_platform() to provide a clue to type
+      of remote LLDP capable device.
 
    [BUG FIXES]
 
diff --git a/Info.pm b/Info.pm
index 0eef12cc..899e0e18 100644
--- a/Info.pm
+++ b/Info.pm
@@ -2632,7 +2632,8 @@ sub c_id {
 
 Returns reference to hash.  Key: iid, Value: Remote Device Type
 
-Note:  LLDP and EDP do not provide this information.
+Note:  EDP does not provide this information.  LLDP uses (C<lldpRemSysDesc>)
+as the closest match.
 
 =cut
 
diff --git a/Info/LLDP.pm b/Info/LLDP.pm
index 1fb4342a..cb90c43c 100644
--- a/Info/LLDP.pm
+++ b/Info/LLDP.pm
@@ -227,6 +227,13 @@ sub lldp_id {
     return \%lldp_id;
 }
 
+sub lldp_platform {
+    my $lldp    = shift;
+    my $partial = shift;
+
+    return $lldp->lldp_rem_sysdesc($partial);
+}
+
 #sub root_ip {
 #    my $lldp = shift;
 #
@@ -440,6 +447,10 @@ Currently only returns IPv4 or MAC addresses.
 
 Returns remote port ID
 
+=item $lldp->lldp_platform()
+
+Alias for C<lldp_rem_sysdesc()>.
+
 =back
 
 =head2 LLDP Remote Table (C<lldpRemTable>)