make sure that ..., ??? and !!! pass Perl 6 strings to &fail, &warn, …

…&die uvtc++ for discovering it
rakudo · Aug 24, 2011 · 90e66fb · 90e66fb
1 parent 54e85a2
commit 90e66fb
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2328,15 +2328,15 @@ class Perl6::Actions is HLL::Actions {
     }
 
     method term:sym<...>($/) {
-        make PAST::Op.new( :pasttype('call'), :name('&fail'), 'Stub code executed', :node($/) );
+        make PAST::Op.new( :pasttype('call'), :name('&fail'), $*ST.add_constant('Str', 'str', 'Stub code executed'), :node($/) );
     }
 
     method term:sym<???>($/) {
-        make PAST::Op.new( :pasttype('call'), :name('&warn'), 'Stub code executed', :node($/) );
+        make PAST::Op.new( :pasttype('call'), :name('&warn'), $*ST.add_constant('Str', 'str', 'Stub code executed'), :node($/) );
     }
 
     method term:sym<!!!>($/) {
-        make PAST::Op.new( :pasttype('call'), :name('&die'), 'Stub code executed', :node($/) );
+        make PAST::Op.new( :pasttype('call'), :name('&die'), $*ST.add_constant('Str', 'str', 'Stub code executed'), :node($/) );
     }
 
     method term:sym<dotty>($/) {