numeric.c:S_mulexp10 -- quit when you can

[perl5.git] / t / op / die.t

diff --git a/t/op/die.t b/t/op/die.t
index d473ed6..cf4f8b0 100755 (executable)
--- a/t/op/die.t
+++ b/t/op/die.t
@@ -4,7 +4,7 @@ print "1..10\n";
 
 $SIG{__DIE__} = sub { print ref($_[0]) ? ("ok ",$_[0]->[0]++,"\n") : @_ } ;
 
-$err = "ok 1\n";
+$err = "#[\000]\nok 1\n";
 eval {
     die $err;
 };