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>

diff --git a/git-svnimport.perl b/git-svnimport.perl
index 920b23e6cb998d130be8d6e246a46c057dfcc317..27d964cab22733544f54542e505df89df23ade7f 100755 (executable)
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -149,30 +149,6 @@ ($)
        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() {
        my $pwd = `pwd`;
        chomp $pwd;
 sub getwd() {
        my $pwd = `pwd`;
        chomp $pwd;


@@ -319,7 +295,6 @@ ($$$)
        my $sha = <$F>;
        chomp $sha;
        close $F;
        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];
 }
        my $mode = "0644"; # SV does not seem to store any file modes
        return [$mode, $sha, $path];
 }