[svn:parrot] r35431 - trunk/languages/perl6/src/parser

Author: pmichaud
Date: Sun Jan 11 19:15:00 2009
New Revision: 35431

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Throw an exception for bare "say" or "print" (RT #62028).


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Sun Jan 11 19:15:00 2009
@@ -2081,8 +2081,12 @@
 
 
 method term($/, $key) {
+    my $name := ~$<name>;
     my $past;
     if $key eq 'noarg' {
+        if $name eq 'print' || $name eq 'say' {
+            $/.panic($name ~ ' requires an argument');
+        }
         $past := PAST::Op.new( :name( ~$<name> ), :pasttype('call') );
     }
     elsif $key eq 'args' {

• [svn:parrot] r35431 - trunk/languages/perl6/src/parser by pmichaud