Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Include (regex|token|rule) if present in Regex.perl
Fixes RT #125383
  • Loading branch information
hoelzro committed Jul 10, 2015
1 parent fadca9d commit bd0401b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Perl6/Actions.nqp
Expand Up @@ -3520,7 +3520,7 @@ Compilation unit '$file' contained the following violations:

# Bind original source to $!source
my $Regex := $*W.find_symbol(['Regex']);
nqp::bindattr($code, $Regex, '$!source', ~$/);
nqp::bindattr($code, $Regex, '$!source', ($*METHODTYPE ?? $*METHODTYPE ~ ' ' !! '') ~ $/);

# Return a reference to the code object
reference_to_code_object($code, $past);
Expand Down

0 comments on commit bd0401b

Please sign in to comment.