[Bug 2051034] Removal of gethostbyname2 breaks Shorewall6

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



https://bugzilla.redhat.com/show_bug.cgi?id=2051034

Paul Howarth <paul@xxxxxxxxxxxx> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Doc Type|---                         |If docs needed, set a value



--- Comment #1 from Paul Howarth <paul@xxxxxxxxxxxx> ---
Well, gethostbyname2 is obsolete so it would really be better to get shorewall
not to use it.

Can you try this change to /usr/share/perl5/vendor_perl/Shorewall/IPAddrs.pm
and see if it works for you?

--- /usr/share/perl5/vendor_perl/Shorewall/IPAddrs.pm.orig      2021-11-05
11:03:22.000000000 +0000
+++ /usr/share/perl5/vendor_perl/Shorewall/IPAddrs.pm   2022-02-06
13:28:43.045058966 +0000
@@ -509,7 +509,7 @@ sub validate_6address( $$ ) {
     unless ( valid_6address $addr ) {
        fatal_error "Invalid IPv6 Address ($addr)" unless $allow_name;
        require Socket6;
-       fatal_error "Unknown Host ($addr)" unless (@addrs =
Socket6::gethostbyname2( $addr, Socket6::AF_INET6()));
+       fatal_error "Unknown Host ($addr)" unless (@addrs =
Socket6::getaddrinfo( $addr, 0, Socket6::AF_INET6()));

        if ( defined wantarray ) {
            shift @addrs for (1..4);
@@ -527,7 +527,7 @@ sub resolve_6dnsname( $ ) {
     my @addrs;

     require Socket6;
-    fatal_error "Unknown Host ($net)" unless (@addrs =
Socket6::gethostbyname2( $net, Socket6::AF_INET6()));
+    fatal_error "Unknown Host ($net)" unless (@addrs = Socket6::getaddrinfo(
$net, 0, Socket6::AF_INET6()));

     shift @addrs for (1..4);
     for ( @addrs ) {


Also, it should be evident from this change that gethostbyname2 is only being
called in a fatal error condition so your configuration probably wouldn't have
worked anyway. Maybe you are using a hostname in your rules file that does not
have an IPv6 address?


-- 
You are receiving this mail because:
You are on the CC list for the bug.
https://bugzilla.redhat.com/show_bug.cgi?id=2051034
_______________________________________________
perl-devel mailing list -- perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
To unsubscribe send an email to perl-devel-leave@xxxxxxxxxxxxxxxxxxxxxxx
Fedora Code of Conduct: https://docs.fedoraproject.org/en-US/project/code-of-conduct/
List Guidelines: https://fedoraproject.org/wiki/Mailing_list_guidelines
List Archives: https://lists.fedoraproject.org/archives/list/perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
Do not reply to spam on the list, report it: https://pagure.io/fedora-infrastructure




[Index of Archives]     [Fedora Announce]     [Fedora Kernel]     [Fedora Testing]     [Fedora Legacy Announce]     [Fedora PHP Devel]     [Kernel Devel]     [Fedora Legacy]     [Fedora Maintainers]     [Fedora Desktop]     [PAM]     [Red Hat Development]     [Gimp]     [Yosemite Information]

  Powered by Linux