fix bug expanding <TILDE>

pegex-parser · Nov 5, 2011 · f4a422b · f4a422b
1 parent 737bf41
commit f4a422b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Pegex/Compiler.pm b/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'}