summaryrefslogtreecommitdiff
path: root/git-cvsimport.perl
diff options
context:
space:
mode:
authorMartin Langhoff <martin@catalyst.net.nz>2006-05-23 00:45:47 +1200
committerJunio C Hamano <junkio@cox.net>2006-05-22 18:12:27 -0700
commitf396f01f11208789875b61e4e0e3239b04f9e38d (patch)
tree650e3c9b2f01dbd3766b72027919de2d3a5145c4 /git-cvsimport.perl
parentf803eec51b6fe812c523c8f6474e029163b307e8 (diff)
downloadgit-f396f01f11208789875b61e4e0e3239b04f9e38d.tar.gz
cvsimport: minor fixups
Cleanup @skipped after it's used. Close a fhandle. Removing suspects one at a time. Signed-off-by: Martin Langhoff <martin@catalyst.net.nz> Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'git-cvsimport.perl')
-rwxr-xr-xgit-cvsimport.perl3
1 files changed, 3 insertions, 0 deletions
diff --git a/git-cvsimport.perl b/git-cvsimport.perl
index 8c707f2c66..282646af35 100755
--- a/git-cvsimport.perl
+++ b/git-cvsimport.perl
@@ -650,6 +650,8 @@ my $commit = sub {
"GIT_COMMITTER_DATE=".strftime("+0000 %Y-%m-%d %H:%M:%S",gmtime($date)),
"git-commit-tree", $tree,@par);
die "Cannot exec git-commit-tree: $!\n";
+
+ close OUT;
}
$pw->writer();
$pr->reader();
@@ -661,6 +663,7 @@ my $commit = sub {
if (@skipped) {
$logmsg .= "\n\n\nSKIPPED:\n\t";
$logmsg .= join("\n\t", @skipped) . "\n";
+ @skipped = ();
}
print $pw "$logmsg\n"