From f4a422ba9140b4e323ce369cfc7050f5c407057b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ingy=20d=C3=B6t=20Net?= <ingy@ingy.net>
Date: Sat, 5 Nov 2011 00:54:58 -0700
Subject: [PATCH] fix bug expanding <TILDE>

---
 lib/Pegex/Compiler.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Pegex/Compiler.pm b/lib/Pegex/Compiler.pm
index 6828064..57ab478 100644
--- 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'}