From e847de5baf0c8554fd1ec7ca6fc1ded808201465 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Thu, 20 Dec 2012 20:52:47 +0000
Subject: [PATCH] bug with using last inside try{}

---
 Netdisco/lib/App/Netdisco/Util/Connect.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Netdisco/lib/App/Netdisco/Util/Connect.pm b/Netdisco/lib/App/Netdisco/Util/Connect.pm
index 4d249845..381971c7 100644
--- a/Netdisco/lib/App/Netdisco/Util/Connect.pm
+++ b/Netdisco/lib/App/Netdisco/Util/Connect.pm
@@ -128,15 +128,17 @@ sub snmp_connect {
   );
 
   my $info = undef;
+  my $last_comm = 0;
   COMMUNITY: foreach my $c (@{ setting('community_rw') || []}) {
       try {
           $info = SNMP::Info->new(%snmp_args, Community => $c);
-          last COMMUNITY if (
+          ++$last_comm if (
             $info
             and (not defined $info->error)
             and length $info->uptime
           );
       };
+      last COMMUNITY if $last_comm;
   }
 
   return $info;