Browse Source

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>
maint
Martin Langhoff 19 years ago committed by Junio C Hamano
parent
commit
f396f01f11
  1. 3
      git-cvsimport.perl

3
git-cvsimport.perl

@ -650,6 +650,8 @@ my $commit = sub { @@ -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 { @@ -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"

Loading…
Cancel
Save