Do not bother trying to redefine the perlshr logical name. The only one
that
you need to redefine is PERL_ROOT since PERLSHR is defined in terms of
PERL_ROOT.
Try this:
$ @perl_setup
$ show default
$ show logical PERL_ROOT
$ define/trans=conc PERL_ROOT <device>:[<dir>.]
Where you will need to determine <device> and <dir>. Craig recommended
<device> eq 'dkb300' and <dir> eq 'schwern.perl' but without looking at the
results
of "show default" or "show logical perl_root" I cannot verify that they
would be correct.
Peter Prymmer
Michael G
Schwern To: "Craig A. Berry" <[EMAIL PROTECTED]>
<schwern@pobo cc: [EMAIL PROTECTED], [EMAIL PROTECTED]
x.com>
Subject: Re: Dusting out vms/test.com
11/06/2001
01:11 PM
On Mon, Nov 05, 2001 at 11:42:07PM -0600, Craig A. Berry wrote:
> Do this (and you might want to put these lines in the file login.com):
>
> $ @[schwern.perl]perl_setup
> $ define/translation=concealed perl_root dkb300:[schwern.perl.]
Still no go. Here's what I tried:
$ pwd
USER1:[SCHWERN.SRC.PERL-CURRENT]
$ ls perl*
perl.c perlio.c perlsfio.h perly.c
perl.exe perlio.h perlsh. perly.fixer
perl.h perlio.obj perlshr.exe perly.h
perl.obj perlio.sym perlshr.opt perly.obj
perl_setup.com perliol.h perlshr_attr.opt perly.y
perlapi.c perlmain.c perlshr_bld.opt perly_c.diff
perlapi.h perlmain.obj perlshr_xtras.ts perlyline.pl
perlapi.obj perlsdio.h perlvars.h
$ ls t/perl*
t/perl.
$ define/translation=concealed perl_root
user1:[schwern.src.perl-current.t.perl.]
%DCL-I-SUPERSEDE, previous value of PERL_ROOT has been superseded
$ define/translation=concealed perlshr
user1:[schwern.src.perl-current.perlshr.exe]
%DCL-I-SUPERSEDE, previous value of PERLSHR has been superseded
$ perl -v
%DCL-W-ACTIMAGE, error activating image PERLSHR
-RMS-F-DEV, error in device name or inappropriate device type for operation
so I tried this:
$ @perl_setup
%DCL-I-SUPERSEDE, previous value of PERL_ROOT has been superseded
%DCL-I-SUPERSEDE, previous value of PERLSHR has been superseded
$ define/translation=concealed perl_root
user1:[schwern.src.perl-current.t.perl.]
%DCL-I-SUPERSEDE, previous value of PERL_ROOT has been superseded
$ perl -v
%DCL-W-ACTIMAGE, error activating image PERL_ROOT:[000000]PERL.EXE
-CLI-E-IMGNAME, image file
$1$DKB300:[SCHWERN.SRC.PERL-CURRENT.T.PERL.][000000]P
ERL.EXE;
-RMS-E-DNF, directory not found
-SYSTEM-W-NOSUCHFILE, no such file
$ define/translation=concealed perlshr
user1:[schwern.src.perl-current.perlshr.exe
$ perl -v
%DCL-W-ACTIMAGE, error activating image PERL_ROOT:[000000]PERL.EXE
-CLI-E-IMGNAME, image file
$1$DKB300:[SCHWERN.SRC.PERL-CURRENT.T.PERL.][000000]P
ERL.EXE;
-RMS-E-DNF, directory not found
-SYSTEM-W-NOSUCHFILE, no such file
I am sooo lost in here.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is
Job One
What about MY need to be generalized and easily dismissed?
http://www.goats.com/archive/000221.html
