develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
pmichaud
Date:
January 11, 2009 19:57
Subject:
[svn:parrot] r35432 - trunk/languages/perl6/src/parser
Message ID:
20090112035738.D67C9CB9F9@x12.develooper.com
Author: pmichaud
Date: Sun Jan 11 19:57:37 2009
New Revision: 35432

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

Log:
[rakudo]:  Missed a bare say in r35431 -- this fixes it (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:57:37 2009
@@ -2091,11 +2091,14 @@
     }
     elsif $key eq 'args' {
         $past := $($<args>);
-        $past.name( ~$<name> );
+        $past.name( $name );
+        if +@($past) == 0 && ($name eq 'print' || $name eq 'say') {
+            $/.panic($name ~ ' requires an argument');
+        }
     }
     elsif $key eq 'func args' {
         $past := build_call( $( $<semilist> ) );
-        $past.name( ~$<name> );
+        $past.name( $name );
     }
     elsif $key eq 'VAR' {
         $past := PAST::Op.new(



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