John Peacock wrote:
> No, I don't.  The "relative" path that is generated is
> 
>     [--.user.jpeacock.perlsrc.perl]perl.exe;1
> 
> which sure looks more like an absolute path than a relative to me...
> 

OK, I discovered the problem.  safe_rel() doesn't work correctly when I am using 
a rooted logical.  For example, if I use the following logical:

        "PERL_SRC" = "DKA0:[USER.JPEACOCK.PERLSRC.]"

and then

        set def perl_src:[perl.t]
        
and
        $perl = safe_rel(File::Spec->abs2rel($perl));

returns
        "[--.user.jpeacock.perlsrc.perl]perl.exe;1"

which (oddly enough) doesn't work.  If I use the following logical:

        "PERL_ROOT" = "DKA0:[USER.JPEACOCK.PERLSRC.PERL.]"

and
        set def perl_root:[t]
        
then I get

        "[-.user.jpeacock.perlsrc.perl]perl.exe;1"

(note one fewer hyphen).

HTH

John

-- 
John Peacock
Director of Information Research and Technology
Rowman & Littlefield Publishing Group
4720 Boston Way
Lanham, MD 20706
301-459-3366 x.5010
fax 301-429-5747

Reply via email to