Permalink
Browse files

some adjustments after rakudo finally git v5-patched

  • Loading branch information...
1 parent 0c1282e commit 1a081b5a3b2c77f55ba430ef0f964a8c2172b211 @FROGGS FROGGS committed May 23, 2014
Showing with 4 additions and 5 deletions.
  1. +0 −1 lib/Perl5.nqp
  2. +4 −4 lib/Perl5/Actions.nqp
View
1 lib/Perl5.nqp
@@ -13,7 +13,6 @@ sub EXPORT(*@a) {
%*LANG<P5Q-actions> := Perl5::QActions;
%*LANG<P5Regex> := Perl5::RegexGrammar;
%*LANG<P5Regex-actions> := Perl5::RegexActions;
- $*ACTIONS := %*LANG<Perl5-actions>;
$*MAIN := 'Perl5';
View
8 lib/Perl5/Actions.nqp
@@ -971,7 +971,10 @@ class Perl5::Actions is HLL::Actions does STDActions {
$V5DEBUG && say("statement_control:sym<use>($/)");
my $past := $<statementlist> ?? $<statementlist>.ast
!! QAST::Var.new( :name('Nil'), :scope('lexical') );
- if $<version> {
+ if $<statementlist> {
+ $past := $<statementlist>.ast;
+ }
+ elsif $<version> {
# TODO: replace this by code that doesn't always die with
# a useless error message
# my $i := -1;
@@ -1002,9 +1005,6 @@ class Perl5::Actions is HLL::Actions does STDActions {
$STATEMENT_PRINT := 1;
}
}
- elsif $<statementlist> {
- $past := $<statementlist>.ast;
- }
make $past;
}

0 comments on commit 1a081b5

Please sign in to comment.