Created attachment 1327541 [details]
First part of the upstream fix

Created attachment 1327542 [details]
Second part of  the upstream fix

How to test:

(1) Create a listening socket using IO::Socket::IP without specifying local address to bind:

$ perl -MIO::Socket::IP -e '$a=IO::Socket::IP->new(Proto=>q{tcp}, Listen=>1) or die qq{Error: $@}; print `ss -tnlp`'

Before: The program dies with an (empty) exception and no socket is created:

Error:  at -e line 1.

After: The call succeeds and the "ss" command reports a listing socket (IPv6 one if your system support IPv6):

State      Recv-Q Send-Q Local Address:Port               Peer Address:Port              
LISTEN     0      128          *:875                      *:*                  
[...]
LISTEN     0      1           :::38121                   :::*                   users:(("perl",pid=4675,fd=3))

Here the the last line is the socket created by the perl program.

(2) You can check LocalAddr argument is still correctly honored:

$ perl -Ilib -MIO::Socket::IP -e '$a=IO::Socket::IP->new(Proto=>q{tcp}, Listen=>1, LocalAddr=>q{::1}) or die qq{Error: $@}; print `ss -tnlp`'
State      Recv-Q Send-Q Local Address:Port               Peer Address:Port              
LISTEN     0      128          *:875                      *:*                  
[...]
LISTEN     0      1          ::1:56255                   :::*                   users:(("perl",pid=4677,fd=3))

Since the problem described in this bug report should be
resolved in a recent advisory, it has been closed with a
resolution of ERRATA.

For information on the advisory, and where to find the updated
files, follow the link below.

If the solution does not work for you, open a new bug report.

https://access.redhat.com/errata/RHBA-2018:0665