summaryrefslogtreecommitdiff
path: root/git-svnimport.perl
diff options
context:
space:
mode:
authorMatthias Urlichs <smurf@smurf.noris.de>2005-10-10 12:34:32 +0200
committerMatthias Urlichs <smurf@smurf.noris.de>2005-10-10 12:34:32 +0200
commitc015bf2bcbdc2021410753b4a024dd35dfef6a33 (patch)
tree0be04b3784c844f4790fc577b828a0f10ff9bb48 /git-svnimport.perl
parent2b5e63d1b4a6f1b0ef58755a192ecb2d04e3569d (diff)
downloadgit-c015bf2bcbdc2021410753b4a024dd35dfef6a33.tar.gz
SVN import: No modes
svn doesn't seem to save file modes: removed the code that analyzes them. Signed-Off-By: Matthias Urlichs <smurf@smurf.noris.de>
Diffstat (limited to 'git-svnimport.perl')
-rwxr-xr-xgit-svnimport.perl25
1 files changed, 0 insertions, 25 deletions
diff --git a/git-svnimport.perl b/git-svnimport.perl
index 920b23e6cb..27d964cab2 100755
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -149,30 +149,6 @@ sub pdate($) {
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() {
my $pwd = `pwd`;
chomp $pwd;
@@ -319,7 +295,6 @@ sub get_file($$$) {
my $sha = <$F>;
chomp $sha;
close $F;
- # my $mode = pmode($cvs->{'mode'});
my $mode = "0644"; # SV does not seem to store any file modes
return [$mode, $sha, $path];
}