Patch AnyEvent::Socket. It's causing errors on newer Perl versions.

LMS-Community · Oct 19, 2019 · cbc2822 · cbc2822
1 parent 5368636
commit cbc2822
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/CPAN/AnyEvent/Socket.pm → lib/AnyEvent/Socket.pm b/CPAN/AnyEvent/Socket.pm → lib/AnyEvent/Socket.pm
@@ -459,10 +459,11 @@ Example.
 
 sub inet_aton {
    my ($name, $cb) = @_;
+   my $ipn;
 
-   if (my $ipn = &parse_ipv4) {
+   if ($ipn = &parse_ipv4) {
       $cb->($ipn);
-   } elsif (my $ipn = &parse_ipv6) {
+   } elsif ($ipn = &parse_ipv6) {
       $cb->($ipn);
    } elsif ($name eq "localhost") { # rfc2606 et al.
       $cb->(v127.0.0.1, v0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.1);