Use dashless git commands in setgitperms.perl
Signed-off-by: Todd Zullinger <tmz@pobox.com> Signed-off-by: Junio C Hamano <gitster@pobox.com>
Todd Zullinger committed
Sep 22, 2008 at 07:30 UTC
18309f4c3e00886660f15e18c1aaab2f5bc25715
1 file changed
+2
-2
contrib/hooks/setgitperms.perl
+2
-2
@@ -50,7 +50,7 @@ if ((@ARGV < 0) || !GetOptions(
50
)) { die $usage; }
51
die $usage unless ($read_mode xor $write_mode);
52
53
-my $topdir = `git-rev-parse --show-cdup` or die "\n"; chomp $topdir;
53
+my $topdir = `git rev-parse --show-cdup` or die "\n"; chomp $topdir;
54
my $gitdir = $topdir . '.git';
55
my $gitmeta = $topdir . '.gitmeta';
56
@@ -155,7 +155,7 @@ elsif ($read_mode) {
155
open (OUT, ">$gitmeta.tmp") or die "Could not open $gitmeta.tmp for writing: $!\n";
156
}
157
158
- my @files = `git-ls-files`;
158
+ my @files = `git ls-files`;
159
my %dirs;
160
161
foreach my $path (@files) {