Author: pmichaud
Date: Wed Dec 17 11:43:23 2008
New Revision: 34039
Modified:
branches/rakudoreg/languages/perl6/src/builtins/control.pir
Log:
[rakudo]: Adjust handling of exceptions in eval.
Modified: branches/rakudoreg/languages/perl6/src/builtins/control.pir
==============================================================================
--- branches/rakudoreg/languages/perl6/src/builtins/control.pir (original)
+++ branches/rakudoreg/languages/perl6/src/builtins/control.pir Wed Dec 17
11:43:23 2008
@@ -297,12 +297,13 @@
res = invokable()
pop_eh
- exception = new 'Failure'
+ exception = 'undef'()
goto done
catch:
.get_results (exception)
- goto done
+ pop_eh
+ res = '!FAIL'('Exception caught in eval')
done:
# Propagate exception to caller
