mirrors/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-10-31 06:17:56 +01:00
Code Activity

svnimport: Convert executable flag

Browse source 
Convert the svn:executable property to file mode 755 when converting
an SVN repository to GIT.

Signed-off-by: Karl Hasselström <kha@treskal.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Karl Hasselström 2006-02-26 06:11:27 +01:00 committed by Junio C Hamano
parent 525c0d713c
commit 4802426ddb
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
git-svnimport.perl
View file

@ -112,16 +112,22 @@ sub file {
DIR => File::Spec->tmpdir(), UNLINK => 1);
print "... $rev $path ...\n" if $opt_v;
my $pool = SVN::Pool->new();
eval { $self->{'svn'}->get_file($path,$rev,$fh,$pool); };
$pool->clear;
my (undef, $properties);
eval { (undef, $properties)
= $self->{'svn'}->get_file($path,$rev,$fh); };
if($@) {
return undef if $@ =~ /Attempted to get checksum/;
die $@;
}
my $mode;
if (exists $properties->{'svn:executable'}) {
$mode = '0755';
} else {
$mode = '0644';
}
close ($fh);
return $name;
return ($name, $mode);
}
package main;
@ -296,7 +302,7 @@ ($$$)
my $svnpath = revert_split_path($branch,$path);
# now get it
my $name;
my ($name,$mode);
if($opt_d) {
my($req,$res);
@ -316,8 +322,9 @@ ($$$)
return undef if $res->code == 301; # directory?
die $res->status_line." at $url\n";
}
$mode = '0644'; # can't obtain mode via direct http request?
} else {
$name = $svn->file("$svnpath",$rev);
($name,$mode) = $svn->file("$svnpath",$rev);
return undef unless defined $name;
}
@ -331,7 +338,6 @@ ($$$)
chomp $sha;
close $F;
unlink $name;
my $mode = "0644"; # SV does not seem to store any file modes
return [$mode, $sha, $path];
}