translatehdr: Display translated array elements

grahambell · grahambell · commit e7f115ed4ee5 · 2021-03-12T17:32:31.000-10:00
diff --git a/translatehdr b/translatehdr
@@ -95,6 +95,7 @@ for my $k (sort keys %translation) {
     next if $k =~ /^_/;
     my $v = $translation{$k};
     $v = "undef" if !defined $v; # should be trapped by HdrTrans
+    $v = join ",\n    ", @$v if 'ARRAY' eq ref $v;
     print "$k => $v\n";
 }
 

Original file line number	Diff line number	Diff line change
`@@ -95,6 +95,7 @@ for my $k (sort keys %translation) {`
`95`	`95`	`next if $k =~ /^_/;`
`96`	`96`	`my $v = $translation{$k};`
`97`	`97`	`$v = "undef" if !defined $v; # should be trapped by HdrTrans`
	`98`	`+ $v = join ",\n ", @$v if 'ARRAY' eq ref $v;`
`98`	`99`	`print "$k => $v\n";`
`99`	`100`	`}`
`100`	`101`