BUG REPORT: Website META Language 2.0.1 (23-May-2000)

[Howard Alexander LaHurreau <nospam@thanx>]

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

From:     Howard Alexander LaHurreau
Reply-To: alexdw@locl.net

PROBLEM DESCRIPTION:
I'm having problems with the migration from 2.0.0 to 2.0.1.
It appears that when mp4h reaches an unknown tag, it treats
it as if it had been defined with whitespace=delete.

The problem I'm having with this is that this code:
---------------8< cut here 8<---------------
        print <<"END IMGLINK";
<a href="$rss->{'image'}->{'link'}"><img src="$rss->{'image'}->{'url'}"
 alt="$rss->{'image'}->{'title'}" border="0" align="right"
END IMGLINK
        print " width=\"$rss->{'image'}->{'width'}\""
                if $rss->{'image'}->{'width'};
        print " height=\"$rss->{'image'}->{'height'}\""
                if $rss->{'image'}->{'height'};
        print " /></a>\n";
---------------8< cut here 8<---------------

gets turned into this code:
---------------8< cut here 8<---------------
        print <<"END IMGLINK";
<a href="$rss->{'image'}->{'link'}"><img src="$rss->{'image'}->{'url'}" alt="$rss->{'image'}->{'title'}" border="0" align="right" END IMGLINK print " width="$rss->{'image'}->{'width'}"" if $rss->{'image'}->{'width'};
        print " height=\"$rss->{'image'}->{'height'}\""
                if $rss->{'image'}->{'height'};
        print " /></a>\n";
---------------8< cut here 8<---------------

The resulting code is, of course, invalid and causes ePerl to
crash.

Is there any way to fix this?


PLATFORM CHARACTERISTICS:
Used WML System:
Built Environment:
    Host: i686-pc-linux-gnu2
    Perl: 5.005 (/usr/bin/perl)
    User: alexdw@locl.net
    Date: 23-May-2000
Built Location:
    Prefix: /usr/local
    BinDir: /usr/local/bin
    LibDir: /usr/local/lib/wml
    ManDir: /usr/local/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