From fb61805ca5d77c964e85cf62a9005c09217ff6eb Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sat, 25 Apr 2015 16:10:50 +0100
Subject: [PATCH] [#211] Additional check for undefined SNMP::Info instance

---
 Netdisco/Changes                       | 10 ++++++++++
 Netdisco/lib/App/Netdisco/Util/SNMP.pm |  2 +-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Netdisco/Changes b/Netdisco/Changes
index 4b9feee6..af2d7fe6 100644
--- a/Netdisco/Changes
+++ b/Netdisco/Changes
@@ -1,3 +1,13 @@
+2.032003 - 2015-04-25
+
+  [ENHANCEMENTS]
+
+  * THANK YOUs
+  
+  [BUG FIXES]
+
+  * [#211] Additional check for undefined SNMP::Info instance
+
 2.032002 - 2015-04-03
 
   [ENHANCEMENTS]
diff --git a/Netdisco/lib/App/Netdisco/Util/SNMP.pm b/Netdisco/lib/App/Netdisco/Util/SNMP.pm
index ab659bc2..754a00ec 100644
--- a/Netdisco/lib/App/Netdisco/Util/SNMP.pm
+++ b/Netdisco/lib/App/Netdisco/Util/SNMP.pm
@@ -145,7 +145,7 @@ sub _try_connect {
         $snmp_args->{DestHost}, $snmp_args->{Version}, $class, $debug_comm;
       Module::Load::load $class;
 
-      $info = $class->new(%$snmp_args, %comm_args);
+      $info = $class->new(%$snmp_args, %comm_args) or return;
       $info = ($mode eq 'read' ? _try_read($info, $device, $comm)
                                : _try_write($info, $device, $comm));