From d63ea115948a892f94451677c322c5a6f233adc6 Mon Sep 17 00:00:00 2001 From: Michael Loeffler Date: Mon, 12 Feb 2007 15:17:11 +0100 Subject: import-tars: brown paper bag fix for file mode. There is a bug with this $git_mode variable which should be 0644 or 0755, but nothing else I think. Signed-off-by: Michael Loeffler Signed-off-by: Shawn O. Pearce --- contrib/fast-import/import-tars.perl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'contrib') diff --git a/contrib/fast-import/import-tars.perl b/contrib/fast-import/import-tars.perl index 26c42c9780..990c9e70b2 100755 --- a/contrib/fast-import/import-tars.perl +++ b/contrib/fast-import/import-tars.perl @@ -83,10 +83,8 @@ EOF foreach my $path (keys %files) { my ($mark, $mode) = @{$files{$path}}; - my $git_mode = 0644; - $git_mode |= 0700 if $mode & 0111; $path =~ s,^([^/]+)/,, if $have_top_dir; - printf FI "M %o :%i %s\n", $git_mode, $mark, $path; + printf FI "M %o :%i %s\n", $mode & 0111 ? 0755 : 0644, $mark, $path; } print FI "\n"; -- cgit v1.2.3