Browse files

fix bug expanding <TILDE>

  • Loading branch information...
1 parent 737bf41 commit f4a422ba9140b4e323ce369cfc7050f5c407057b @ingydotnet committed Nov 5, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Pegex/Compiler.pm
View
4 lib/Pegex/Compiler.pm
@@ -111,9 +111,9 @@ sub combinate_re {
my $regexp = shift;
my $atoms = Pegex::Grammar::Atoms->atoms;
$regexp->{'.rgx'} =~ s!~!<ws>!g;
+ my $re = $regexp->{'.rgx'};
+ $re =~ s!~!<ws>!g;
while (1) {
- my $re = $regexp->{'.rgx'};
- $re =~ s!~!<ws>!g;
$re =~ s[<(\w+)>][
$self->tree->{$1} and
$self->tree->{$1}{'.rgx'}

0 comments on commit f4a422b

Please sign in to comment.