[BUG REPORT] WML 2.0.8, Linux RH 7.2

[nospam@thanx]

BUG REPORT

Package: WML 2.0.8
Operating System: Linux RH 7.2

Problem Description:
| See this source (I tried to generate multiple html pages from a single one using slice declaration inside a custom tag)
| 
| --------------------
| #!wml -oUNDEFuMAIN-LANG_EN:%BASE.html
| 
| [MAIN:
| 
| <define-tag script endtag=required>
| <preserve lice html short>
| <set-var %attributes>
| :MAIN][<get-var lice>:
| <p><b>Description: </b> %body</p>
| :<get-var lice>][MAIN:
| <p><get-var short>.</p>
| <: $l1 = "UNDEFu<get-var lice>"; $l2 = ":<get-var html>"; $l2 =~ s/\.html$//; :>%!slice -o<: print "$l1-LANG_EN$l2.html" :>
| <restore lice html short>
| </define-tag>
| 
| <script html="test2.html" lice="TEST" short="short desc">long desc</script>
| 
| :MAIN]
| --------------------
| 
| Using a level optimization less than 3 give a correct result but from -O3 the output is
| 
| --------------------
| <p>short desc.</p>%!slice       -oUNDEFuTEST-LANG_EN:test2.html
| --------------------
| 
| I replaced (in wml_p8_htmlstrip)
| 
| --------------------
|     if ($opt_O >= 3) {
|         #   strip leading whitespaces
|         $buf =~ s|^\s+||mg;
|     }
| --------------------
| with
| --------------------
|     if ($opt_O >= 3) {
|         #   strip leading whitespaces
|         $buf =~ s,$,!,m; # do not collapse first empty line
|         $buf =~ s|^\s+||mg;
|         $buf =~ s,!$,,m;
|     }
| --------------------
| and work correctly
| 
| freddy77
| 
| 
| 

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