diff options
| author | Jo-Philipp Wich <jow@openwrt.org> | 2009-04-06 22:58:44 +0000 |
|---|---|---|
| committer | Jo-Philipp Wich <jow@openwrt.org> | 2009-04-06 22:58:44 +0000 |
| commit | acf5ea72c70ddbdb90b18a2ae1169ad82e455876 (patch) | |
| tree | 072cc1d19061f8e557726a6c8a3efd04c2c072d1 /contrib/lar/lar.pl | |
| parent | bf1cbdd8389d5e7067b03c1f10e9fbcb3756ccf4 (diff) | |
contrib/lar:
- fix short read of index table
- properly handle errno by using errno.h
- extend lar_find_archive() to take a base search path a second argument
- extend cli.c to allow specifing the base search path
- print index number in lar.pl
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 56e4897958..2f9f3dd65f 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; } |