Changeset 22599 for lang/perl/App-Benchmark

Timestamp:

11/03/08 07:50:44 (5 years ago)

Author:

hanekomu

Message:

flush STDERR and improve output

Files:

• lang/perl/App-Benchmark/trunk/lib/App/Benchmark.pm (modified) (1 diff)

lang/perl/App-Benchmark/trunk/lib/App/Benchmark.pm

@@ -29 +29 @@
     $capture->stop;
 
-    print "# $_" for $capture->read;
+    {
+        my $previous_default = select(STDOUT);
+        $|++; # autoflush STDOUT
+        select(STDERR);
+        $|++; # autoflush STDERR
+        select($previous_default);
+    }
+
+    chomp(my @lines = $capture->read);
+    warn "# $_\n" for @lines;
+
     plan tests => 1;
     pass('benchmark');