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 <zvpunry@zvpunry.de>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
This commit is contained in:
Michael Loeffler 2007-02-12 15:17:11 +01:00 committed by Shawn O. Pearce
parent ea5e370aa9
commit d63ea11594

View file

@ -83,10 +83,8 @@
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";