From 27120045d2454365c9f902fda1ea02b0db6ec7fc Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Mon, 8 Jul 2013 21:19:32 +0100
Subject: [PATCH] [RT#86725] - Identify Cisco Catalyst 3850 as Layer3::C6500
 (C. Causer)

---
 ChangeLog | 1 +
 Info.pm   | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 1747ddd0..07dfcd48 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -8,6 +8,7 @@ version 3.02 ()
     * Support Alcatel devices with layer3 features.
     * Identify Cisco Aironet 1140 APs as Layer2::Aironet
     * LAN switch support added to Layer3::Aruba class
+    * [RT#86725] - Identify Cisco Catalyst 3850 as Layer3::C6500 (C. Causer)
 
 version 3.01 (2013-04-13)
 
diff --git a/Info.pm b/Info.pm
index 2b248fed..f8e04c9d 100644
--- a/Info.pm
+++ b/Info.pm
@@ -1455,6 +1455,10 @@ sub device_type {
         $objtype = 'SNMP::Info::Layer3::C6500'
             if ( $desc =~ /cisco/i and $desc =~ /3750/ );
 
+        # IOS 15.x on Catalyst 3850
+        $objtype = 'SNMP::Info::Layer3::C6500'
+            if ( $desc =~ /cisco/i and $desc =~ /CAT3K/ );
+
         #   Cisco 2970
         $objtype = 'SNMP::Info::Layer3::C6500'
             if ( $desc =~ /(C2970|C2960)/ );