remove unused variable

frioux · Jan 23, 2018 · 6cf592c · 6cf592c
1 parent 69e51a9
commit 6cf592c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/Net/Async/Ping/ICMP.pm b/lib/Net/Async/Ping/ICMP.pm
@@ -60,7 +60,7 @@ sub _build__raw_socket {
 
     my $on_recv = $self->_capture_weakself(sub {
         my $self = shift or return; # weakref, may have disappeared
-        my ( $ioasock, $recv_msg, $from_saddr ) = @_;
+        my ( undef, $recv_msg, $from_saddr ) = @_;
 
         my $from_data = $self->_parse_icmp_packet($recv_msg, $from_saddr, 20);
         return

diff --git a/lib/Net/Async/Ping/ICMPv6.pm b/lib/Net/Async/Ping/ICMPv6.pm
@@ -64,7 +64,7 @@ sub _build__raw_socket {
 
     my $on_recv = $self->_capture_weakself(sub {
         my $self = shift or return; # weakref, may have disappeared
-        my ( $ioasock, $recv_msg, $from_saddr ) = @_;
+        my ( undef, $recv_msg, $from_saddr ) = @_;
 
         my $from_data = $self->_parse_icmpv6_packet($recv_msg, $from_saddr);
         return