From 560afad02a093c77df28d9297b5825c465ff963e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 5 Jan 2022 19:51:06 +0000 Subject: [PATCH] and even more warnings --- cmd/export_users.pl | 2 +- perl/DXProtHandle.pm | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/cmd/export_users.pl b/cmd/export_users.pl index 40e429d4..62429ffe 100644 --- a/cmd/export_users.pl +++ b/cmd/export_users.pl @@ -13,7 +13,7 @@ unless ($fn && $fn eq 'user_json') { $fn =~ s|[/\.]||g; $fn = "/tmp/$fn"; } -my $strip = $flag eq 'strip'; +my $strip = $flag && $flag eq 'strip'; my @out = DXUser::export($fn, $strip); diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 4572b94e..3ba13b47 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1556,8 +1556,9 @@ sub _decode_pc92_call my $is_extnode = $flag & 2; my $here = $flag & 1; my $ip; - $part[1] //= 0; - $part[2] //= 0; + $part[1] //= ''; + $part[2] //= ''; + $part[2] //= ''; if ($part[1] =~ /[,.]/) { $ip = $part[1]; $part[1] = $part[2] = 0; -- 2.43.0