"jesper.naur" <[EMAIL PROTECTED]> writes:
> From: Carl <[EMAIL PROTECTED]>
>
>> Just to clarify, 'define/nolog' does not clobber logicals, otherwise =
> you
>> couldn't define more than a single user mode logical name at a time:
>
> You are of course right - I stand corrected!
>
The solution however, is not to get rid of SET MESSAGE (which is
there for a reason), but to change the "DEFINE/USER" in TEST.COM to
just "DEFINE". Having the PERLSHR logical disappear after one image
is a near-guarantee of problems. This was changed as part of the
piping patches, but I guess the need is more general.
Here's a patch for a save/restore of Perlshr around the Perl invokation
in TEST.COM, to be applied over a "non pipe-modded" Perl.
--- vms/test.com-orig Fri May 19 11:18:28 2000
+++ vms/test.com Wed May 24 06:41:21 2000
@@ -93,7 +93,8 @@
$! And do it
$ Show Process/Accounting
$ testdir = "Directory/NoHead/NoTrail/Column=1"
-$ Define/User 'dbg'Perlshr Sys$Disk:[-]'dbg'PerlShr'exe'
+$ old_perlshr = f$trnlnm("''dbg'Perlshr")
+$ Define 'dbg'Perlshr Sys$Disk:[-]'dbg'PerlShr'exe'
$ MCR Sys$Disk:[]Perl. "-I[-.lib]" - "''p3'" "''p4'" "''p5'" "''p6'"
$ Deck/Dollar=$$END-OF-TEST$$
# $RCSfile: TEST,v $$Revision: 4.1 $$Date: 92/08/07 18:27:00 $
@@ -244,4 +245,6 @@
$ If F$Search("Echo.Exe").nes."" Then Delete/Log/NoConfirm Echo.Exe;*
$ Set Default &olddef
$ Set Message 'oldmsg'
+$ deassign 'dbg'Perlshr
+$ if old_perlshr .nes. "" then Define 'dbg'Perlshr 'old_perlshr'
$ Exit
--
Drexel University \V --Chuck Lane
======]---------->--------*------------<-------[===========
(215) 895-1545 _/ \ Particle Physics
FAX: (215) 895-5934 /\ /~~~~~~~~~~~ [EMAIL PROTECTED]
