develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34039 - branches/rakudoreg/languages/perl6/src/builtins

From:
pmichaud
Date:
December 17, 2008 11:43
Subject:
[svn:parrot] r34039 - branches/rakudoreg/languages/perl6/src/builtins
Message ID:
20081217194324.74C3ECBA12@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About