From 560afad02a093c77df28d9297b5825c465ff963e Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1