contrib: update packinfo.pl to not use dashed commands

toofishes · gitster · commit 3b1eb1249327 · 2008-10-18T06:20:27.000-07:00
Signed-off-by: Dan McGee &lt;dpmcgee@gmail.com&gt;
Signed-off-by: Junio C Hamano &lt;gitster@pobox.com&gt;
diff --git a/contrib/stats/packinfo.pl b/contrib/stats/packinfo.pl
@@ -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".
@@ -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:
@@ -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:
 #
@@ -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.
@@ -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);
@@ -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+(.*)$/) {

Original file line number	Diff line number	Diff line change
`@@ -1,9 +1,9 @@`
`1`	`1`	`#!/usr/bin/perl`
`2`	`2`	`#`
`3`	`3`	`# This tool will print vaguely pretty information about a pack. It`
`4`		`-# expects the output of "git-verify-pack -v" as input on stdin.`
	`4`	`+# expects the output of "git verify-pack -v" as input on stdin.`
`5`	`5`	`#`
`6`		`-# $ git-verify-pack -v \| packinfo.pl`
	`6`	`+# $ git verify-pack -v \| packinfo.pl`
`7`	`7`	`#`
`8`	`8`	`# This prints some full-pack statistics; currently "all sizes", "all`
`9`	`9`	`# path sizes", "tree sizes", "tree path sizes", and "depths".`
`@@ -20,7 +20,7 @@`
`20`	`20`	`#`
`21`	`21`	`# When run as:`
`22`	`22`	`#`
`23`		`-# $ git-verify-pack -v \| packinfo.pl -tree`
	`23`	`+# $ git verify-pack -v \| packinfo.pl -tree`
`24`	`24`	`#`
`25`	`25`	`# the trees of objects are output along with the stats. This looks`
`26`	`26`	`# like:`
`@@ -43,7 +43,7 @@`
`43`	`43`	`#`
`44`	`44`	`# When run as:`
`45`	`45`	`#`
`46`		`-# $ git-verify-pack -v \| packinfo.pl -tree -filenames`
	`46`	`+# $ git verify-pack -v \| packinfo.pl -tree -filenames`
`47`	`47`	`#`
`48`	`48`	`# it adds filenames to the tree. Getting this information is slow:`
`49`	`49`	`#`
`@@ -58,7 +58,7 @@`
`58`	`58`	`#`
`59`	`59`	`# When run as:`
`60`	`60`	`#`
`61`		`-# $ git-verify-pack -v \| packinfo.pl -dump`
	`61`	`+# $ git verify-pack -v \| packinfo.pl -dump`
`62`	`62`	`#`
`63`	`63`	`# it prints out "sha1 size pathsize depth" for each sha1 in lexical`
`64`	`64`	`# order.`
`@@ -106,7 +106,7 @@`
`106`	`106`	`}`
`107`	`107`
`108`	`108`	`if ($filenames && ($tree \|\| $dump)) {`
`109`		`- open(NAMES, "git-name-rev --all\|");`
	`109`	`+ open(NAMES, "git name-rev --all\|");`
`110`	`110`	`while (<NAMES>) {`
`111`	`111`	`if (/^(\S+)\s+(.*)$/) {`
`112`	`112`	`my ($sha1, $name) = ($1, $2);`
`@@ -117,7 +117,7 @@`
`117`	`117`
`118`	`118`	`for my $commit (@commits) {`
`119`	`119`	`my $name = $names{$commit};`
`120`		`- open(TREE, "git-ls-tree -t -r $commit\|");`
	`120`	`+ open(TREE, "git ls-tree -t -r $commit\|");`
`121`	`121`	`print STDERR "Plumbing tree $name\n";`
`122`	`122`	`while (<TREE>) {`
`123`	`123`	`if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) {`