Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
add :node to substitutions, to get line numbers in error messages
  • Loading branch information
moritz committed Jul 26, 2010
1 parent 4884806 commit ed98e0f
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions src/Perl6/Actions.pm
Expand Up @@ -2711,6 +2711,7 @@ method quote:sym<s>($/) {

# Make a Substitution.
my $past := PAST::Op.new(
:node($/),
:pasttype('callmethod'), :name('subst'),
PAST::Var.new( :name('$_'), :scope('lexical') ),
$regex, $closure
Expand All @@ -2723,6 +2724,7 @@ method quote:sym<s>($/) {
}

$past := PAST::Op.new(
:node($/),
:pasttype('call'),
:name('&infix:<=>'),
PAST::Var.new(:name('$_'), :scope('lexical')),
Expand Down

0 comments on commit ed98e0f

Please sign in to comment.