diff options
Diffstat (limited to 'contrib/lar/lar.pl')
| -rwxr-xr-x | contrib/lar/lar.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lar/lar.pl b/contrib/lar/lar.pl index 56e489795..2f9f3dd65 100755 --- a/contrib/lar/lar.pl +++ b/contrib/lar/lar.pl @@ -38,10 +38,10 @@ foreach my $file ( @ARGV ) } } - +my $count = 1; foreach my $file ( @index ) { - warn sprintf "Index: 0x%08X 0x%08X 0x%08X 0x%08X\n", $file->[0], $file->[1], $file->[2], $file->[3]; + warn sprintf "Index[%4d]: 0x%08X 0x%08X 0x%08X 0x%08X\n", $count++, $file->[0], $file->[1], $file->[2], $file->[3]; print pack "NNNNnn", $file->[0], $file->[1], $file->[2], $file->[3], 0x0000, 0x0000; } |