undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

SVN import: No modes

Browse Source 
svn doesn't seem to save file modes:
removed the code that analyzes them.

Signed-Off-By: Matthias Urlichs <smurf@smurf.noris.de>
This commit is contained in:
Matthias Urlichs 2005-10-10 12:34:32 +02:00
parent 2b5e63d1b4
commit c015bf2bcb
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
git-svnimport.perl
View File

@ -149,30 +149,6 @@ sub pdate($) {
return timegm($6||0,$5,$4,$3,$2-1,$y); return timegm($6||0,$5,$4,$3,$2-1,$y);
} }
sub pmode($) {
my($mode) = @_;
my $m = 0;
my $mm = 0;
my $um = 0;
for my $x(split(//,$mode)) {
if($x eq ",") {
$m |= $mm&$um;
$mm = 0;
$um = 0;
} elsif($x eq "u") { $um |= 0700;
} elsif($x eq "g") { $um |= 0070;
} elsif($x eq "o") { $um |= 0007;
} elsif($x eq "r") { $mm |= 0444;
} elsif($x eq "w") { $mm |= 0222;
} elsif($x eq "x") { $mm |= 0111;
} elsif($x eq "=") { # do nothing
} else { die "Unknown mode: $mode\n";
}
}
$m |= $mm&$um;
return $m;
}
sub getwd() { sub getwd() {
my $pwd = `pwd`; my $pwd = `pwd`;
chomp $pwd; chomp $pwd;
@ -319,7 +295,6 @@ sub get_file($$$) {
my $sha = <$F>; my $sha = <$F>;
chomp $sha; chomp $sha;
close $F; close $F;
# my $mode = pmode($cvs->{'mode'});
my $mode = "0644"; # SV does not seem to store any file modes my $mode = "0644"; # SV does not seem to store any file modes
return [$mode, $sha, $path]; return [$mode, $sha, $path];
} }