perl-SNMP_Session/Fix-ipv6-and-add-backward-compatible-new-networking.patch

25 lines
787 B
Diff
Raw Permalink Normal View History

From 599378943bf3cac92fda33fc450d8ac04db41644 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michal=20Josef=20=C5=A0pa=C4=8Dek?=
<michal.josef.spacek@gmail.com>
Date: Fri, 5 May 2023 12:14:28 +0200
Subject: [PATCH] Fix usage of IPv6
There were a bad check which break IPv6 functionality
---
lib/SNMP_Session.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/SNMP_Session.pm b/lib/SNMP_Session.pm
index 9d643ac..eab42df 100644
--- a/lib/SNMP_Session.pm
+++ b/lib/SNMP_Session.pm
@@ -902,7 +902,7 @@ sub open {
$local_hostname,$ipv4only) = @_;
my($remote_addr,$socket,$sockfamily);
- $ipv4only = 1 unless defined $ipv4only;
+ $ipv4only = 1 if defined $ipv4only;
$sockfamily = AF_INET;
$community = 'public' unless defined $community;