Changeset 21645 for util/yaml_harness.pl

Timestamp:

07/31/08 09:28:00 (5 months ago)

Author:

audreyt

Message:

* Add Time::Out support to "make smoke".

Files:

• util/yaml_harness.pl (modified) (1 diff)

util/yaml_harness.pl

@@ -280 +280 @@
     warn "$kid$test\n";
     my $t = timeit( 1, sub {
-        $self->SUPER::run_test($test, @rest);
+        use Time::HiRes;
+        use Time::Out 'timeout';
+        timeout 300 => sub { $self->SUPER::run_test($test, @rest) };
     } );
     warn "    ".timestr($t)."\n";