Andrew's git
/
gitweb.git
/ blobdiff
summary
|
log
|
commit
|
diff
|
tree
commit
grep
author
committer
pickaxe
?
re
Merge branch 'sg/test-bash-version-fix'
[gitweb.git]
/
t
/
t0019
/
parse_json.perl
diff --git
a/t/t0019/parse_json.perl
b/t/t0019/parse_json.perl
index ca4e5bfa7850ee5bc783cec7c0d18b8d76d66883..fea87fb81b62d4f1e9612094c60ee8dceebc07be 100644
(file)
--- a/
t/t0019/parse_json.perl
+++ b/
t/t0019/parse_json.perl
@@
-34,6
+34,9
@@
sub dump_item {
} elsif (ref($value) eq 'HASH') {
print "$label_in hash\n";
dump_hash($label_in, $value);
+ } elsif (ref $value) {
+ my $bool = $value ? 1 : 0;
+ print "$label_in $bool\n";
} elsif (defined $value) {
print "$label_in $value\n";
} else {