--- Coro/t/07_eval.t	2002/01/04 02:42:10	1.2
+++ Coro/t/07_eval.t	2007/10/10 04:13:14	1.5
@@ -7,6 +7,13 @@
    my $t = eval "2";
    print "ok $t\n";
    cede;
+
+   # a panic: restartop in this test can be caused by perl 5.8.8 not
+   # properly handling constant folding (change 29976/28148)
+   # (fixed in 5.10, 5.8.9)
+   # we don't want to scare users, so disable it.
+   delete $SIG{__DIE__} if $] < 5.008009;
+
    print defined eval "1/0" ? "not ok" : "ok", " 4\n";
 };
 
@@ -20,4 +27,6 @@
 print "ok 1\n";
 cede;
 cede;
+cede;
+cede;