develooper Front page | perl.perl5.porters | Postings from November 2000

[ID 20001105.019] Undocumented fatal unicode error, 5.6

Thread Next
From:
Tim Richardson
Date:
November 5, 2000 18:12
Subject:
[ID 20001105.019] Undocumented fatal unicode error, 5.6
Message ID:
3A061398.848087BF@richardson.net
This is a bug report for perl from tim@richardson.net,
generated with the help of perlbug 1.28 running under perl v5.6.0.


-----------------------------------------------------------------
[Please enter your report here]

I don't know if this is a core bug or a documentation "bug", but the code
causing the problem looks innocuous.


I get this fatal error message, not documented in my distribution.
Can't find unicode character property definition via main->e or e.pl at
unicode/Is/e.pl line 0

I am using ActiveState perl 5.6.0 build 618 (built Sep 13) on Windows
95. I am posting here on the assumption that this is a Perl problem, not
a Windows or ActiveState problem.

I would like to know what this error means, and why it happened.

The code causing the error is this line:


if ($PERL !~ /perl/i || $WBProg =~ m/$PERL/ || $PERL eq 'perl') {

...


If the line is rewritten without the middle test, it is ok.
Ie, this is ok:

if ($PERL !~ /perl/i ||  $PERL eq 'perl') {
...


when I run it,
$PERL has the value "C:\perl\bin\perl.exe"
$WBProg has the value "demo.cgi"


For more context, here is the subroutine containing the above.
(It is from the open-source cgi database application "woda" at
http://itc.fgg.uni-lj.si/woda/ )




sub wbWhoami {

 local ($package,$filename,$line) = caller;
 local ($i,$c);
 $filename =~ m|[^/]*$|;
 $WBPath = $`;   # in which dir is this script
 chop ($WBPath);   # remove the trailing /
 $WBFile = $&;   # what is the name of this
script
 $WBFile =~ m/(..)\.p.$/; # langauage before dot.p
 $WBLang = $1;   # what is the language code
 $WBLib = "$WBPath/$WBLang"; #
 $WBProg = $0;   # command being executed
 $WBProg =~ m|(.*)/[^/]$|; #

 $PERL = $PERL || $^X;  # first argument from command
line
 if ($PERL !~ /perl/i || $WBProg =~ m/$PERL/ || $PERL eq 'perl')
{ # looks like $^X reported wrong

 $PERL = '/usr/local/bin/perl';
 $PERL = '/usr/bin/perl' unless -e $PERL;
 $PERL = '' unless -e $PERL;
 }
 $PERLV = $] + 0.0;  # what Perl are we runing
}




[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=medium
---
Site configuration information for perl v5.6.0:

Summary of my perl5 (revision 5 version 6 subversion 0) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef use5005threads=undef useithreads=define
usemultiplicity=define
    useperlio=undef d_sfio=undef uselargefiles=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='cl', optimize='-O1 -MD -DNDEBUG', gccversion=
    cppflags='-DWIN32'
    ccflags ='-O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT
-DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags ='-nologo -nodefaultlib -release
-libpath:"C:\p4view\Apps\ActivePerl\MSI\data\ActivePerl\Perl\lib\CORE"
-machine:x86'
    libpth="C:\Perl\lib\CORE"
    libs=  oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
msvcrt.lib
    libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl56.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release
-libpath:"C:\p4view\Apps\ActivePerl\MSI\data\ActivePerl\Perl\lib\CORE"
-machine:x86'

Locally applied patches:
    ACTIVEPERL_LOCAL_PATCHES_ENTRY

---
@INC for perl v5.6.0:
    C:/Perl/lib
    C:/Perl/site/lib
    .

---
Environment for perl v5.6.0:
    HOME (unset)
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)

PATH=c:\PERL\BIN;c:\scripts;c:\windows;c:\windows\command;\aladdin\gs6.01\bin
    PERL_BADLANG (unset)
    SHELL (unset)




Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About