[perl #31853] [PATCH] `make' in languages/tcl is failing
Matthew Zimmerman
# Please include the string: [perl #31853]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31853 >
---
osname= linux
osvers= 2.4.21-4.elsmp
arch= i386-linux-thread-multi
cc= gcc 3.3.3 20040412 (Red Hat Linux 3.3.3-7)
---
Flags:
category=core
severity=high
ack=no
---
Making the Tcl interpreter in F< languages/tcl > is failing:
matt@tomis ~/personal/devel/parrot/languages/tcl $ make
(cd ../../ && ./parrot --output=languages/tcl/lib/tclword.pbc
languages/tcl/lib/tclword.imc)
(cd ../../ && ./parrot --output=languages/tcl/lib/tcllib.pbc
languages/tcl/lib/tcllib.imc)
/usr/bin/perl tcl.pl > tcl.imc
Died at tcl.pl line 19.
make: *** [tcl.imc] Error 2
[1]+ Done emacs tcl.pl
It's trying to open the F< languages/tcl/lib/ops > directory,
which no longer appears to exist. The attached patch ignores the failed
C< open() > as a workaround, but I don't know if that directory's
supposed to be there, or what.
---
Summary of my parrot 0.1.0 configuration:
configdate='Tue Oct 5 13:39:06 2004'
Platform:
osname=linux, archname=i386-linux-thread-multi
jitcapable=1, jitarchname=i386-linux,
jitosname=LINUX, jitcpuarch=i386
execcapable=1
perl=/usr/bin/perl
Compiler:
cc='gcc', ccflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
-DDEBUGGING -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
Linker and Libraries:
ld='gcc', ldflags=' -L/usr/local/lib',
cc_ldflags='',
libs='-lnsl -ldl -lm -lcrypt -lutil -lpthread -lrt -lgmp -lpthread
-lm -L/usr/lib -licui18n -licuuc -licudata -lpthread -lm'
Dynamic Linking:
so='.so', ld_shared='-shared -L/usr/local/lib -fPIC',
ld_shared_flags=''
Types:
iv=long, intvalsize=4, intsize=4, opcode_t=long, opcode_t_size=4,
ptrsize=4, ptr_alignment=1 byteorder=1234,
nv=double, numvalsize=8, doublesize=8
---
Environment:
HOME LANG LANGUAGE LD_LIBRARY_PATH LOGDIR PATH
PERL5LIB SHELL
--
Matt
Matthew Zimmerman
Interdisciplinary Biophysics, University of Virginia
http://www.people.virginia.edu/~mdz4c/
William Coleda
Applied in spirit - I removed all the references to the ops directory entirely, since I'm not using it anymore. (All the ops are now part of lib/expression.imc)
Thanks! (must remember to run cvs update -P to catch these things.)
> ------------------------------------------------------------------------
>
> retrieving revision 1.6
> diff -u -B -r1.6 tcl.pl
> --- languages/tcl/tcl.pl 29 May 2004 00:43:49 -0000 1.6
> +++ languages/tcl/tcl.pl 5 Oct 2004 18:05:07 -0000
> @@ -16,9 +16,11 @@
> closedir(CMDDIR);
>
> my $op_dir = "lib/ops";
> -opendir(OPDIR,$op_dir) or die;
> -my @op_files = readdir(OPDIR);
> -closedir(OPDIR);
> +my @op_files;
> +if ( opendir(OPDIR,$op_dir) ) {
> + @op_files = readdir(OPDIR);
> + closedir(OPDIR);
> +}
>
> my $math_dir = "lib/functions";
> opendir(FUNCDIR,$math_dir) or die;