Grrr...fix one bug, it reveals another. In this case, the "SET NOON" in
temp perlpipe_*.com files revealed that the "exit" later on was returning
with $STATUS instead of the symbol with the correct status. Revision of
previous patch follows:
--- vms/vms.c-orig Fri Apr 21 08:55:47 2000
+++ vms/vms.c Tue Apr 25 09:11:41 2000
@@ -1775,7 +1775,7 @@
fprintf(fp,"$! --- protect against nonstandard definitions ---\n");
fprintf(fp,"$ perl_cfile = f$environment(\"procedure\")\n");
fprintf(fp,"$ perl_define = \"define/nolog\"\n");
- fprintf(fp,"$ perl_on = \"on error then exit $STATUS\"\n");
+ fprintf(fp,"$ perl_on = \"set noon\"\n");
fprintf(fp,"$ perl_exit = \"exit\"\n");
fprintf(fp,"$ perl_del = \"delete\"\n");
fprintf(fp,"$ pif = \"if\"\n");
@@ -1791,7 +1791,7 @@
fprintf(fp,"$ 'cmd\n");
fprintf(fp,"$ perl_status = $STATUS\n");
fprintf(fp,"$ perl_del 'perl_cfile'\n");
- fprintf(fp,"$ perl_exit '$STATUS'\n");
+ fprintf(fp,"$ perl_exit 'perl_status'\n");
fsync(fileno(fp));
fgetname(fp, file, 1);
--
Drexel University \V --Chuck Lane
----------------->--------*------------<[EMAIL PROTECTED]
(215) 895-1545 / \ Particle Physics [EMAIL PROTECTED]
FAX: (215) 895-5934 /~~~~~~~~~~~ [EMAIL PROTECTED]
