move clause rendering to better calling convention

[scpubgit/Q-Branch.git] / t / 01generate.t

diff --git a/t/01generate.t b/t/01generate.t
index 4fa38ed..87bce6a 100644 (file)
--- a/t/01generate.t
+++ b/t/01generate.t
@@ -863,6 +863,7 @@ for my $t (@tests) {
     }
     else {
       lives_ok(sub {
+        alarm(5); local $SIG{ALRM} = sub { die "Timed out" };
         warnings_like(
           sub { $cref->() },
           $t->{warns} || [],