Author: jonathan
Date: Wed Nov 26 06:56:37 2008
New Revision: 33220
Modified:
trunk/languages/perl6/src/builtins/control.pir
Log:
[rakudo] Should check the parameter passed to eval is a string, in line with
S29.
Modified: trunk/languages/perl6/src/builtins/control.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/control.pir (original)
+++ trunk/languages/perl6/src/builtins/control.pir Wed Nov 26 06:56:37 2008
@@ -262,6 +262,9 @@
.param pmc lang :named('lang') :optional
.param int have_lang :opt_flag
+ $P0 = get_hll_global 'Str'
+ '!TYPECHECKPARAM'($P0, code)
+
unless have_lang goto no_lang
'die'('Lanuage parameter to eval unimplemented.')
no_lang:
