projects
/
project
/
luci.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
applications/luci-upnp: add a note that up and download speeds are informational...
[project/luci.git]
/
contrib
/
lar
/
lar.pl
diff --git
a/contrib/lar/lar.pl
b/contrib/lar/lar.pl
index
56e4897
..
2f9f3dd
100755
(executable)
--- 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 )
{
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;
}
print pack "NNNNnn", $file->[0], $file->[1], $file->[2], $file->[3], 0x0000, 0x0000;
}