Help for this page

Select Code to Download


  1. or download this
           my $stdout = '';
        eval {
...
        \*STDERR, IO::Scalar->new(\$stdout));
        $ok = runtests(@tests);
        };
  2. or download this
    write() on unopened filehandle STDOUT at /usr/lib/perl5/vendor_perl/5.
+8.2/Test/Harness.pm line 665.