--- Gabor Szabo <[EMAIL PROTECTED]> wrote:
> So I wonder if there are other ways. E.g. if the harness could catch
> the warnings?
The harness has code which can allow you to merge the STDERR and STDOUT
streams. See the '--merge' switch to prove. With that, a
(simple-minded) parser becomes:
use TAP::Parser;
my $parser = TAP::Parser->new( {
source => $source,
merge => 1,
} );
while ( my $result = $parser->next ) {
if ( $result->is_unknown ) {
# it's a warning or the code printed something to STDOUT
}
}
That's not enough for what you want, but is that a start?
Cheers,
Ovid
--
Buy the book - http://www.oreilly.com/catalog/perlhks/
Personal blog - http://publius-ovidius.livejournal.com/
Tech blog - http://use.perl.org/~Ovid/journal/
