Wrong %% debug

2009-03-09 17:56:07 +00:00 · 2009-03-09 17:56:07 +00:00 · c1efa68b98
parent 86506737c4
commit c1efa68b98
1 changed files with 3 additions and 7 deletions
--- a/VMX/Template.pm
+++ b/VMX/Template.pm
@ -417,13 +417,9 @@ sub compile

    # "первая замена"
    $code =~
-        s%
-            (?>\%+)[ \t]*\S+[^\n]*?(?>\%+) |
-            (?>\%+) |
-            \{[a-z0-9\-_]+\.\#\} |
-            \{((?:[a-z0-9\-_]+\.)*)([a-z0-9\-_]+)((?:->[a-z0-9\-_]+)*)(?:\/([a-z0-9\-_]+))?\}
-        % $self->generate_xx_ref($&,$1,$2,$3,$4)
-        %goisex;
+        s%(?>\%+) *\w+[\w ]*?(?>\%+)|(?>\%+)|\{[a-z0-9\-_]+\.\#\}|\{((?:[a-z0-9\-_]+\.)*)([a-z0-9\-_]+)((?:->[a-z0-9\-_]+)*)(?:\/([a-z0-9\-_]+))?\}%
+        $self->generate_xx_ref($&,$1,$2,$3,$4)
+        %goise;

    # \n -> \n\x01
    $code =~ s/\n/\n\x01/gos;