svn import: unlink downlaoded files

[git.git] / git-svnimport.perl

diff --git a/git-svnimport.perl b/git-svnimport.perl
index b880297..102fa6e 100755 (executable)
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -296,6 +296,7 @@ sub get_file($$$) {
        my $sha = <$F>;
        chomp $sha;
        close $F;
+       unlink $name;
        my $mode = "0644"; # SV does not seem to store any file modes
        return [$mode, $sha, $path];
 }