BUG REPORT: Website META Language 1.7.2 (28-06-1999)

[nospam@thanx]

__        ___  __ _     
\ \      / / \/  | |      Website META Language
 \ \ /\ / / |\/| | |      Version 1.7.2 (28-06-1999)
  \ V  V /| |  | | |___ 
   \_/\_/ |_|  |_|_____|  BUG REPORT
_________________________________________________________

From:     ./scratchor\.
Reply-To: scratch@intra

PROBLEM DESCRIPTION:

Here's a quick patch to a bug in wml itself, that caused '~' variable inter-
polation with one-charactered directories go wrong (I've broken my head on 
this for a long time, please take a look at it! :))


--- wml.orig	Fri Sep 10 00:19:39 1999
+++ wml	Fri Sep 10 00:20:11 1999
@@ -254,7 +254,7 @@
             $path =~ s|//|/|g;
             $path =~ s|/\./|/|g;
             $path =~ s|/\.$|/|g;
-            $path =~ s|^./||g;
+            $path =~ s|^\./||g;
             $path =~ s|([^/.][^/.]*)/\.\.||;
         }
         return $path;

Cya,

-- Nico Galoppo, Belgium

PLATFORM CHARACTERISTICS:
Used WML System:
Built Environment:
    Host: i586-pc-linux-gnu
    Perl: 5.004_04 (/usr/bin/perl)
    User: scratch@intra.dhs.org
    Date: 09-Sep-1999
Built Location:
    Prefix: /usr
    BinDir: /usr/bin
    LibDir: /usr/lib/wml
    ManDir: /usr/man

Used Perl System:
Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration:
  Platform:
    osname=linux, osvers=2.0.36, archname=i386-linux
    uname='linux perv 2.0.36 #2 wed nov 18 03:00:48 pst 1998 i686 unknown '
    hint=recommended, useposix=true, d_sigaction=define
    bincompat3=n useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O2', gccversion=2.7.2.3
    cppflags='-Dbool=char -DHAS_BOOL -D_REENTRANT'
    ccflags ='-Dbool=char -DHAS_BOOL -D_REENTRANT'
    stdchar='char', d_stdstdio=define, usevfork=false
    voidflags=15, castflags=0, d_casti32=define, d_castneg=define
    intsize=4, 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 Feb  3 1999 00:52:40
  @INC:
    /usr/lib/perl5/i386-linux/5.004
    /usr/lib/perl5
    /usr/local/lib/site_perl/i386-linux
    /usr/local/lib/site_perl
    .
______________________________________________________________________
Website META Language (WML)                www.engelschall.com/sw/wml/
Official Support Mailing List                   sw-wml@engelschall.com
Automated List Manager                       majordomo@engelschall.com