[perl #31853] [PATCH] `make' in languages/tcl is failing

[via RT]

# New Ticket Created by  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:

[EMAIL PROTECTED] ~/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/

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;