Addendum to my last post:
I just double-checked the code and realized that I duplicated the
VMSPIPE DCL a bit too closely for the temporary perlpipe_* files: instead
of "SET NOON", I have an "ON ERROR THEN EXIT", skipping the self-deletion
if an error occurs.
Bleh. Thanks for catching this, Craig.
Patch (on top of VMSPIPE patch) follows:
--- vms/vms.c-orig Fri Apr 21 08:55:47 2000
+++ vms/vms.c Tue Apr 25 07:24:35 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");
--
Drexel University \V --Chuck Lane
----------------->--------*------------<[EMAIL PROTECTED]
(215) 895-1545 / \ Particle Physics [EMAIL PROTECTED]
FAX: (215) 895-5934 /~~~~~~~~~~~ [EMAIL PROTECTED]
