blob: 8edb06935aa3b31ec09ead292ff77331b6b377ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
$NetBSD: patch-ad,v 1.1.1.1 2004/05/13 09:22:30 mjl Exp $
This is the patch from
http://www.kwiki.org/index.cgi?PatchIfEndIfElseEnd
--- lib/CGI/Kwiki/Template.pm.orig Thu Sep 11 00:49:34 2003
+++ lib/CGI/Kwiki/Template.pm Thu May 13 11:00:04 2004
@@ -43,7 +43,7 @@
sub render {
my ($self, $template, %v) = @_;
$template =~ s{\[%\s+IF\s+(\w+)\s+%\]
- (.*?)
+ ( (?:(?!\[%\s+END\s+%\]).)*? )
\[%\s+ELSE\s+%\]
(.*?)
\[%\s+END\s+%\]
|
