From: Matthias Urlichs <smurf@smurf.noris.de>
Date: Mon, 10 Oct 2005 10:41:15 +0000 (+0200)
Subject: svn import: copy path information
X-Git-Tag: v0.99.9~112^2~20
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=f0daa628a297819ed039e6b61d337fde02d8a6dd;p=git.git

svn import: copy path information

Due to a bug in the SVN library, path information is freed as soon as the
callback returns, even if it still refers to the data.

Workaround: Copy it. (Also fix a wrong-method-name bug while we're at it.)

Signed-Off-By: Matthias Urlichs <smurf@smurf.noris.de>
---

diff --git a/git-svnimport.perl b/git-svnimport.perl
index 27d964cab..3844cc50d 100755
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -346,9 +346,9 @@ sub commit {
 	$dest = $parent;
 
 	my $prev = $changed_paths->{"/"};
-	if($prev and $prev->action eq "A") {
+	if($prev and $prev->[0] eq "A") {
 		delete $changed_paths->{"/"};
-		my $oldpath = $prev->copyfrom_path;
+		my $oldpath = $prev->[1];
 		my $rev;
 		if(defined $oldpath) {
 			my $p;
@@ -385,7 +385,7 @@ sub commit {
 		$rev = undef;
 	}
 
-#	if($prev and $prev->action eq "A") {
+#	if($prev and $prev->[0] eq "A") {
 #		if(not $tag) {
 #			unless(open(H,"> $git_dir/refs/heads/$branch")) {
 #				print STDERR "$revision: Could not create branch $branch: $!\n";
@@ -408,21 +408,21 @@ sub commit {
 	}
 
 	while(my($path,$action) = each %$changed_paths) {
-		if ($action->action eq "A") {
+		if ($action->[0] eq "A") {
 			my $f = get_file($revision,$branch,$path);
 			push(@new,$f) if $f;
-		} elsif ($action->action eq "D") {
+		} elsif ($action->[0] eq "D") {
 			push(@old,$path);
-		} elsif ($action->action eq "M") {
+		} elsif ($action->[0] eq "M") {
 			my $f = get_file($revision,$branch,$path);
 			push(@new,$f) if $f;
-		} elsif ($action->action eq "R") {
+		} elsif ($action->[0] eq "R") {
 			# refer to a file/tree in an earlier commit
 			push(@old,$path); # remove any old stuff
 
 			# ... and add any new stuff
-			my($b,$p) = split_path($revision,$action->oldpath);
-			open my $F,"-|","git-ls-tree","-r","-z", $branches{$b}{$action->oldrev}, $p;
+			my($b,$p) = split_path($revision,$action->[1]);
+			open my $F,"-|","git-ls-tree","-r","-z", $branches{$b}{$action->[2]}, $p;
 			local $/ = '\0';
 			while(<$F>) {
 				chomp;
@@ -432,7 +432,7 @@ sub commit {
 				push(@new,[$mode,$sha1,$p]);
 			}
 		} else {
-			die "$revision: unknown action '".$action->action."' for $path\n";
+			die "$revision: unknown action '".$action->[0]."' for $path\n";
 		}
 	}
 
@@ -596,7 +596,13 @@ sub commit {
 my ($changed_paths, $revision, $author, $date, $message, $pool) = @_;
 sub _commit_all {
 	($changed_paths, $revision, $author, $date, $message, $pool) = @_;
+	my %p;
+	while(my($path,$action) = each %$changed_paths) {
+		$p{$path} = [ $action->action,$action->copyfrom_path, $action->copyfrom_rev ];
+	}
+	$changed_paths = \%p;
 }
+
 sub commit_all {
 	my %done;
 	my @col;