Skip to content

Commit

Permalink
contrib: update packinfo.pl to not use dashed commands
Browse files Browse the repository at this point in the history
Signed-off-by: Dan McGee <dpmcgee@gmail.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
  • Loading branch information
Dan McGee authored and Junio C Hamano committed Oct 18, 2008
1 parent 1fb23e6 commit 3b1eb12
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions contrib/stats/packinfo.pl
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
#!/usr/bin/perl
#
# 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
# path sizes", "tree sizes", "tree path sizes", and "depths".
Expand All @@ -20,7 +20,7 @@
#
# 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
# like:
Expand All @@ -43,7 +43,7 @@
#
# 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:
#
Expand All @@ -58,7 +58,7 @@
#
# 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
# order.
Expand Down Expand Up @@ -106,7 +106,7 @@
}

if ($filenames && ($tree || $dump)) {
open(NAMES, "git-name-rev --all|");
open(NAMES, "git name-rev --all|");
while (<NAMES>) {
if (/^(\S+)\s+(.*)$/) {
my ($sha1, $name) = ($1, $2);
Expand All @@ -117,7 +117,7 @@

for my $commit (@commits) {
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";
while (<TREE>) {
if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) {
Expand Down

0 comments on commit 3b1eb12

Please sign in to comment.