|
@@ -313,6 +313,7 @@ sub main ()
|
|
my $iterator = TAP::Parser::Iterator::Stream->new(\*STDIN);
|
|
my $iterator = TAP::Parser::Iterator::Stream->new(\*STDIN);
|
|
my $parser = TAP::Parser->new ({iterator => $iterator });
|
|
my $parser = TAP::Parser->new ({iterator => $iterator });
|
|
|
|
|
|
|
|
+ STDOUT->autoflush(1);
|
|
while (defined (my $cur = $parser->next))
|
|
while (defined (my $cur = $parser->next))
|
|
{
|
|
{
|
|
# Parsing of TAP input should stop after a "Bail out!" directive.
|
|
# Parsing of TAP input should stop after a "Bail out!" directive.
|