undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

contrib: update packinfo.pl to not use dashed commands

Browse Source 
Signed-off-by: Dan McGee <dpmcgee@gmail.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Dan McGee 2008-10-17 21:41:18 -05:00 committed by Junio C Hamano
parent 1fb23e6550
commit 3b1eb12493
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
contrib/stats/packinfo.pl
View File

@ -1,9 +1,9 @@
#!/usr/bin/perl #!/usr/bin/perl
# #
# This tool will print vaguely pretty information about a pack. It # This tool will print vaguely pretty information about a pack. It
# expects the output of "git-verify-pack -v" as input on stdin. # expects the output of "git verify-pack -v" as input on stdin.
# #
# $ git-verify-pack -v | packinfo.pl # $ git verify-pack -v | packinfo.pl
# #
# This prints some full-pack statistics; currently "all sizes", "all # This prints some full-pack statistics; currently "all sizes", "all
# path sizes", "tree sizes", "tree path sizes", and "depths". # path sizes", "tree sizes", "tree path sizes", and "depths".
@ -20,7 +20,7 @@
# #
# When run as: # When run as:
# #
# $ git-verify-pack -v | packinfo.pl -tree # $ git verify-pack -v | packinfo.pl -tree
# #
# the trees of objects are output along with the stats. This looks # the trees of objects are output along with the stats. This looks
# like: # like:
@ -43,7 +43,7 @@
# #
# When run as: # When run as:
# #
# $ git-verify-pack -v | packinfo.pl -tree -filenames # $ git verify-pack -v | packinfo.pl -tree -filenames
# #
# it adds filenames to the tree. Getting this information is slow: # it adds filenames to the tree. Getting this information is slow:
# #
@ -58,7 +58,7 @@
# #
# When run as: # When run as:
# #
# $ git-verify-pack -v | packinfo.pl -dump # $ git verify-pack -v | packinfo.pl -dump
# #
# it prints out "sha1 size pathsize depth" for each sha1 in lexical # it prints out "sha1 size pathsize depth" for each sha1 in lexical
# order. # order.
@ -106,7 +106,7 @@ while (<STDIN>) {
} }
if ($filenames && ($tree || $dump)) { if ($filenames && ($tree || $dump)) {
open(NAMES, "git-name-rev --all|"); open(NAMES, "git name-rev --all|");
while (<NAMES>) { while (<NAMES>) {
if (/^(\S+)\s+(.*)$/) { if (/^(\S+)\s+(.*)$/) {
my ($sha1, $name) = ($1, $2); my ($sha1, $name) = ($1, $2);
@ -117,7 +117,7 @@ if ($filenames && ($tree || $dump)) {
for my $commit (@commits) { for my $commit (@commits) {
my $name = $names{$commit}; my $name = $names{$commit};
open(TREE, "git-ls-tree -t -r $commit|"); open(TREE, "git ls-tree -t -r $commit|");
print STDERR "Plumbing tree $name\n"; print STDERR "Plumbing tree $name\n";
while (<TREE>) { while (<TREE>) {
if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) { if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) {