diff options
| author | Martin Langhoff <martin@catalyst.net.nz> | 2006-05-22 12:45:47 (GMT) |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2006-05-23 01:12:27 (GMT) |
| commit | f396f01f11208789875b61e4e0e3239b04f9e38d (patch) | |
| tree | 650e3c9b2f01dbd3766b72027919de2d3a5145c4 /git-cvsimport.perl | |
| parent | f803eec51b6fe812c523c8f6474e029163b307e8 (diff) | |
| download | git-f396f01f11208789875b61e4e0e3239b04f9e38d.zip git-f396f01f11208789875b61e4e0e3239b04f9e38d.tar.gz git-f396f01f11208789875b61e4e0e3239b04f9e38d.tar.bz2 | |
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-x | git-cvsimport.perl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/git-cvsimport.perl b/git-cvsimport.perl index 8c707f2..282646a 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" |