diff options
author | Michael Mann <mmann78@netscape.net> | 2014-04-05 07:46:26 -0400 |
---|---|---|
committer | Michael Mann <mmann78@netscape.net> | 2014-04-05 12:03:49 +0000 |
commit | bc4084838589dbc0f2d80837b5d059adf88a1be2 (patch) | |
tree | 32753197902bf1ae7dbf432ba13f2c1a38805258 | |
parent | f415e23d909a49a970147daf6a07fd75e70dd30c (diff) |
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>
-rwxr-xr-x | tools/checkhf.pl | 3 |
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; } } |