From 0ccf5409ca2fee8b7372d635334549ade5cd3ba4 Mon Sep 17 00:00:00 2001
From: Jeroen van Ingen <>
Date: Mon, 23 Aug 2010 11:47:58 +0000
Subject: [PATCH] Fixed potential warnings about "Use of uninitialized value in
 string eq"

---
 Info/Ipv6.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Info/Ipv6.pm b/Info/Ipv6.pm
index 31e1dc62..05b64524 100644
--- a/Info/Ipv6.pm
+++ b/Info/Ipv6.pm
@@ -216,15 +216,15 @@ sub ipv6_n2p_state {
 
 sub method_used {
     my $info = shift;
-    my $return;
-    if ($info::METHOD eq IPMIB) {
-        $return = 'IP-MIB';
-    } elsif ($info::METHOD eq IPV6MIB) {
-        $return = 'IPV6-MIB';
-    } elsif ($info::METHOD eq CISCO) {
-        $return = 'CISCO-IETF-IP-MIB';
-    } else {
-        $return = 'none of the MIBs';
+    my $return = 'none of the MIBs';
+    if (defined $info::METHOD) {
+        if ($info::METHOD eq IPMIB) {
+            $return = 'IP-MIB';
+        } elsif ($info::METHOD eq IPV6MIB) {
+            $return = 'IPV6-MIB';
+        } elsif ($info::METHOD eq CISCO) {
+            $return = 'CISCO-IETF-IP-MIB';
+        }
     }
     return $return;
 }