Re: wml::std::case (wml 2.0.4)

[Denis Barbier <nospam@thanx>]

On Wed, Sep 27, 2000 at 09:08:12PM +0900, Nobuyuki Tsuchimura wrote:
> Hi,
> 
>   This is not a serious problem.
> "<case:upper></PRE></case:upper>" isn't upper on wml 2.0.4.
> wml 2.0.0 is OK.

Good catch, thanks for your report.
The patch below fixes this buglet.

Index: wml_backend/p8_htmlstrip/htmlstrip.src
===================================================================
RCS file: /home/barbier/Projets/Wml/cvs/wml/wml_backend/p8_htmlstrip/htmlstrip.src,v
retrieving revision 1.8
diff -u -u -r1.8 htmlstrip.src
--- wml_backend/p8_htmlstrip/htmlstrip.src	2000/08/01 21:33:18	1.8
+++ wml_backend/p8_htmlstrip/htmlstrip.src	2000/09/27 20:29:54
@@ -301,20 +301,21 @@
             $OUTPUT .= $o;
 
             #   if end tag not found, extend string
-            if ($epilog =~ s|^(.*?)</$tagname>||is) {
+            if ($epilog =~ s|^(.*?)(</$tagname>)||is) {
                 $body   = $1;
+                $endtag = $2;
             }
             else {
                 $INPUT = $curtag . $epilog . $NEXT;
                 last;
             }
 
-            $str = sprintf "found </$tagname> at position %d",
+            $str = sprintf "found $endtag at position %d",
                 $loc+$pos+length($body);
             &verbose($str);
             $OUTPUT .= $curtag if (not $TAGS{$tagname});
             $OUTPUT .= &StripPreformatted($body);
-            $OUTPUT .= "</$tagname>" if (not $TAGS{$tagname});
+            $OUTPUT .= $endtag if (not $TAGS{$tagname});
             $loc  += $pos + length($body) + length($curtag);
             $INPUT = $epilog;
             next;

-- 
Denis Barbier
WML Maintainer
______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com