From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 5 Jan 2022 19:51:06 +0000 (+0000)
Subject: and even more warnings
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=560afad02a093c77df28d9297b5825c465ff963e;p=spider.git

and even more warnings
---

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;