BUG REPORT: Website META Language 2.0.0 (11-May-2000)

[Franz Knipp <nospam@thanx>]

__        ___  __ _     
\ \      / / \/  | |      Website META Language
 \ \ /\ / / |\/| | |      Version 2.0.0 (11-May-2000)
  \ V  V /| |  | | |___ 
   \_/\_/ |_|  |_|_____|  BUG REPORT
_________________________________________________________

From:     Franz Knipp
Reply-To: franz@knipp.org

PROBLEM DESCRIPTION:

Strange behaviour with new-line characters:

>---input file---<
#use wml::std::tags

<define-tag perltag1>\
<perl>
<perl:print>one line</perl:print>
</perl>\
</define-tag>

<define-tag normaltag>\
another line\
</define-tag>

<define-tag perltag2>\
<perl>
<perl:assign $tag1><perltag1></perl:assign>
<perl:print>.1.$tag1.2.</perl:print>
</perl>\
</define-tag>

.*.<perltag1>.*.
.-.<normaltag>.-.
.+.<perltag2>.+.

>---output---<
.*.one line
.*.
.-.another line.-.
.+..1.
one line
.2.
.+.

>---expected output---<
.*.one line.*.
.-.another line.-.
.+..1.one line.2..+.

Especially the behaviour in perltag2 is nasty because of the inserted 
new line character in front of the variable - I use standard tags to 
generate icons like <makeicon "abcd.jpg"> and the result is the filename 
of the icon, which I want to use in another Perl construct (to determine 
the size), but I have to clean up the variable before I can use it :-( 

PLATFORM CHARACTERISTICS:
Used WML System:
Built Environment:
    Host: i686-pc-linux-gnu2
    Perl: 5.005 (/usr/bin/perl)
    User: fknipp@rainbow.tuwien.ac.at
    Date: 16-May-2000
Built Location:
    Prefix: /home/ag/fknipp/wml
    BinDir: /home/ag/fknipp/wml/bin
    LibDir: /home/ag/fknipp/wml/lib
    ManDir: /home/ag/fknipp/wml/man

Used Perl System:
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=linux, osvers=2.2.15pre14, archname=i386-linux
    uname='linux them 2.2.15pre14 #2 smp mon mar 13 14:29:00 est 2000 i686 unknown '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O2 ', gccversion=2.95.2 20000313 (Debian GNU/Linux)
    cppflags='-Dbool=char -DHAS_BOOL -D_REENTRANT -DDEBIAN -I/usr/local/include'
    ccflags ='-Dbool=char -DHAS_BOOL -D_REENTRANT -DDEBIAN -I/usr/local/include'
    stdchar='char', d_stdstdio=undef, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc -lposix -lcrypt
    libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Built under linux
  Compiled at Apr 30 2000 12:08:38
  @INC:
    /usr/lib/perl5/5.005/i386-linux
    /usr/lib/perl5/5.005
    /usr/local/lib/site_perl/i386-linux
    /usr/local/lib/site_perl
    /usr/lib/perl5
    .
______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com