X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fstats%2Fpackinfo.pl;h=f4a7b62cd9f1a397118b95792c04c2f70f910f9e;hb=847d10f56d7853cd0e139a7c2e6ad0ad2de5c464;hp=792673a32538825f10806105f18d7abde7ee7ad0;hpb=b9dcf846e20ed5287e239c9a0942c5d150081bab;p=git.git

diff --git a/contrib/stats/packinfo.pl b/contrib/stats/packinfo.pl
index 792673a32..f4a7b62cd 100755
--- a/contrib/stats/packinfo.pl
+++ b/contrib/stats/packinfo.pl
@@ -1,4 +1,4 @@
-#!/bin/perl
+#!/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.
@@ -93,7 +93,7 @@ my %depths;
 my @depths;
 
 while (<STDIN>) {
-    my ($sha1, $type, $size, $offset, $depth, $parent) = split(/\s+/, $_);
+    my ($sha1, $type, $size, $space, $offset, $depth, $parent) = split(/\s+/, $_);
     next unless ($sha1 =~ /^[0-9a-f]{40}$/);
     $depths{$sha1} = $depth || 0;
     push(@depths, $depth || 0);