From fb654f89bdac04910be1803d72e2ec7a296224a6 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 5 Jan 2022 19:54:36 +0000 Subject: [PATCH] sigh, even more warnings --- perl/DXProtHandle.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 3ba13b47..d458fbb7 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1558,7 +1558,7 @@ sub _decode_pc92_call my $ip; $part[1] //= ''; $part[2] //= ''; - $part[2] //= ''; + $part[3] //= ''; if ($part[1] =~ /[,.]/) { $ip = $part[1]; $part[1] = $part[2] = 0; -- 2.43.0