From c015bf2bcbdc2021410753b4a024dd35dfef6a33 Mon Sep 17 00:00:00 2001 From: Matthias Urlichs Date: Mon, 10 Oct 2005 12:34:32 +0200 Subject: [PATCH] SVN import: No modes svn doesn't seem to save file modes: removed the code that analyzes them. Signed-Off-By: Matthias Urlichs --- git-svnimport.perl | 25 ------------------------- 1 file changed, 25 deletions(-) diff --git a/git-svnimport.perl b/git-svnimport.perl index 920b23e6c..27d964cab 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]; } -- 2.30.2