ooh, a patch for Tcl! You're hired. =-)
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.)
Matthew Zimmerman (via RT) wrote:
# 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.
------------------------------------------------------------------------
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;
