--- Coro/t/07_eval.t	2006/11/25 00:40:26	1.3
+++ Coro/t/07_eval.t	2007/10/07 13:53:37	1.4
@@ -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.
+   $SIG{__DIE__} = undef if $] < 5.008009;
+
    print defined eval "1/0" ? "not ok" : "ok", " 4\n";
 };