Front page | perl.vmsperl |
Postings from June 2002
I found another dangerous logical name when building 5.8.0-RC2 on my test
system :
"UTIL" conflicts with the build of the List/Util extension.
Build environment:
DEC C V5.6-003 on OpenVMS Alpha V7.2-1
DIGITAL TCP/IP Services for OpenVMS Alpha Version V5.0A
MMK 3.9-2
After @configure "-des", the build ran without any error message up to
module IO, then I got
....
Making List/Util (dynamic)
Writing Descrip.MMS for List::Util
%MMK-F-CANTUPD, cannot update target [.UTIL.CALCUL]ADD. - sources unknown
%MMK-F-ERRUPD, error status %X1C14805C occurred when updating target DYNEXT
$
I first checked there's no such file in the TAR file, then I examined the
DESCRIP.MMS file in [.EXT.LIST.UTIL]. It was a very large file (1055 blocks)
with huge TO_INST_PM and PM_TO_BLIB lists starting with
TO_INST_PM = [.Util.calcul]add. [.Util.calcul]add1. [.Util.calcul]add8. [.Util.calcul]alpha. \
[.Util.calcul]at.for [.Util.calcul]bascng.for [.Util.calcul]blank. [.Util.calcul]block.for \
....
PM_TO_BLIB = [.Util.vim.doc]editing.txt [---.lib.List.Util.vim.doc]editing.txt [.Util.unzip.macos.source]macbin3.h \
[---.lib.List.Util.unzip.macos.source]macbin3.h [.Util.zip.win32]makefile.ibm [---.lib.List.Util.zip.win32]makefile.ibm \
....
Those files are nowhere in the Perl distribution, they are on my system disk
in directory SYS$SYSDEVICE:[UTIL]. As this directory contains several
utilities, I have a "$ DEFINE UTIL SYS$SYSDEVICE:[UTIL]" in my SYLOGIN.COM.
It turns out this logical badly affects the execution of "perl makefile.pl"
for List/Util.
Is this a problem in MakeMaker ?
After a "$ DEASSIGN UTIL", I restarted the build and it ran to completion
without other errors.
A simple fix would be to add a
$ CALL Bad_environment "UTIL"
to CONFIGURE.COM, but other modules might be sensitive to other logical
names. For instance, an incorrect DESCRIP.MMS is generated for Encode if a
logical name "ENCODE" is defined...
Here is a minimal test to reproduce the problem with the "UTIL" logical and
List::Util :
$
$ show default
DKA600:[PERL-5_8_0-RC2.EXT.LIST.UTIL]
$
$ create/dir dka100:[abc] ! create a fresh directory, on another disk
$ define util dka100:[abc] !
$ create dka100:[abc]aaa ! create some dummy files
$ create dka100:[abc]bbb !
$
$ perl makefile.pl
Writing Descrip.MMS for List::Util
$ search descrip.mms aaa,bbb
TO_INST_PM = [.Util]aaa. [.Util]bbb. [.lib.list]util.pm [.lib.scalar]util.pm
PM_TO_BLIB = [.lib.list]util.pm [.blib.lib.list]util.pm [.Util]bbb.
[.blib.lib.List.Util]bbb. \
[.lib.scalar]util.pm [.blib.lib.scalar]util.pm [.Util]aaa.
[.blib.lib.List.Util]aaa.
$(RM_F) [.blib.lib.List.Util]bbb.
$(RM_F) Descrip.MMS [.blib.lib.List.Util]aaa.
$(NOECHO) $(PERL) -e "print ' [.lib.list]util.pm [.blib.lib.list]util.pm
[.Util]bbb. [.blib.lib.List.Util]bbb.
[.Util]aaa. [.blib.lib.List.Util]aaa. [.lib.scalar]util.pm
[.blib.lib.scalar]util.pm'" >>.MM_tmp
$
$
$ show logical perl*
(LNM$PROCESS_TABLE)
"PERLSHR" = "PERL_ROOT:[000000]PERLSHR.EXE" ! 5.8.0-RC2 version
"PERL_CORE" = "1"
"PERL_DESTRUCT_LEVEL" = "2"
"PERL_ROOT" = "DKA600:[PERL-5_8_0-RC2.]" ! 5.8.0-RC2 version
(LNM$JOB_80F0D000)
(LNM$GROUP_000001)
(LNM$SYSTEM_TABLE)
"PERL_ROOT" = "DISK$UTILA1:[PERL.]" ! 5.6.0 version
(LNM$SYSCLUSTER_TABLE)
(DECW$LOGICAL_NAMES)
$
$
$ perl "-V"
Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
Platform:
osname=VMS, osvers=V7.2-1, archname=VMS_AXP
uname='VMS ast35 V7.2-1 AlphaStation 250 4/266'
config_args='-des'
hint=none, useposix=false, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=undef usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=undef, bincompat5005=undef
Compiler:
cc='CC/DECC', ccflags ='/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj /float=ieee/ieee=denorm_results',
optimize='/NoList',
cppflags='undef'
ccversion='50690003', gccversion='', gccosandvers='undef'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='int', lseeksize=4
alignbytes=8, prototype=define
Linker and Libraries:
ld='Link', ldflags ='/NoTrace/NoMap'
libpth=/sys$share /sys$library
libs=
perllibs=
libc=(DECCRTL), so=exe, useshrplib=undef, libperl=undef
gnulibc_version='undef'
Dynamic Linking:
dlsrc=dl_vms.c, dlext=exe, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags='/Share'
Characteristics of this PERLSHR image:
Compile-time options: DEBUGGING
Built under VMS
Compiled at Jun 24 2002 17:48:01
%ENV:
PERLSHR="PERL_ROOT:[000000]PERLSHR.EXE"
PERL_CORE="1"
PERL_DESTRUCT_LEVEL="2"
PERL_ROOT="DKA600:[PERL-5_8_0-RC2.]"
@INC:
perl_root:[lib.VMS_AXP.5_8_0]
perl_root:[lib]
perl_root:[lib.site_perl.VMS_AXP]
perl_root:[lib.site_perl]
/perl_root/lib/site_perl
.
--
Eduardo Abreu
Centre de Recherches Metallurgiques (CRM)
Rue Ernest Solvay, 11 Phone: +3242546218
B-4000 LIEGE (Belgium) E-mail: abreu at rdmetal.ulg.ac.be
Thread Next