File rancid-3.2.p1 of Package rancid-stable - j0ke.net Open Build Service

File rancid-3.2.p1 of Package rancid-stable (Revision 25)

Currently displaying revision 25, show latest

Index: lib/rancid.pm.in
===================================================================
--- lib/rancid.pm.in	(revision 3066)
+++ lib/rancid.pm.in	(revision 3067)
@@ -366,7 +366,9 @@
 	    $l = 128;
 	}
 	$norder = inet_pton(AF_INET6, $a);
-	return unpack("H*", $norder) . unpack("H*", pack("C", $l));
+	if (defined($norder)) {
+	    return unpack("H*", $norder) . unpack("H*", pack("C", $l));
+	}
     } else {
 	my($l);
 	if ($a =~ /\//) {
@@ -375,7 +377,9 @@
 	    $l = 32;
 	}
 	$norder = inet_pton(AF_INET, $a);
-	return(unpack("H*", $norder) . unpack("H*", pack("C", $l)));
+	if (defined($norder)) {
+	    return(unpack("H*", $norder) . unpack("H*", pack("C", $l)));
+	}
     }
 
     # otherwise return the original key value, so as not to sort on null
Index: CHANGES
===================================================================
--- CHANGES	(revision 3066)
+++ CHANGES	(revision 3067)
@@ -1,4 +1,6 @@
 3.2.99
+	rancid.pm: check result from inet_pton()
+
 	ciscowlc.pm: comment a few config lines that can not be imported
 
 3.2