Rework debug_print_hash logic so that it's supported by older versions of perl.

Change-Id: I1720681dc367e01268ffbb1f31035464fa642496
Reviewed-on: https://code.wireshark.org/review/971
Reviewed-by: Michael Mann <mmann78@netscape.net>
Tested-by: Michael Mann <mmann78@netscape.net>

1 files changed, 2 insertions, 1 deletions

diff --git a/tools/checkhf.pl b/tools/checkhf.pl
index 4c7c1e50fa..ef2767221e 100755
--- a/tools/checkhf.pl
+++ b/tools/checkhf.pl
@@ -561,6 +561,7 @@ sub debug_print_hash {
 
     ##print "==> $title\n";
     for my $k (sort keys %{$href}) {
-        printf "%-40.40s %5.5s %s\n", $title, $href->{$k} // "undef", $k;
+        my $h = defined($href->{$k}) ?  $href->{$k} : "undef";
+        printf "%-40.40s %5.5s %s\n", $title, $h, $k;
     }
 }