--TEST-- Test 19: die() in user function --SKIPIF-- <?php require_once('skipif.inc'); ?> --FILE-- <?php $perl = new Perl(); $perl->eval(<<<PERL_END sub f { die("Bye bye!"); } PERL_END ); $perl->f(); echo "ok\n"; ?> --EXPECTF-- Fatal error: Uncaught exception 'PerlException' with message '[perl] call error: (in cleanup) Bye bye! at (eval %d) line %d. ' in %sperl019.php:%d Stack trace: #0 {main} thrown in %sperl019.php on line %d