[perl #121360] File::Spec::abs2rel wrong result when path is ../something

On Mon Mar 03 18:57:11 2014, jimav wrote:
>  > What output did you get?
> 
> PERL_VERSION=v5.14.2
> File::Spec::VERSION=3.33
> File::Spec::Unix::VERSION=3.33
> getcwd   = /etc
> 
> rel_path = ../dev/null
> rel_base = init.d
> 
> abs_path = /etc/../dev/null
> abs_base = /etc/init.d
> 
> rel_path & abs_path are valid and the same object
> 
> rel_base & abs_base are valid and the same directory
> 
> abs2rel(rel_path, rel_base) returned ../dev/null
> abs2rel(rel_path, abs_base) returned ../../dev/null
> abs2rel(abs_path, rel_base) returned ../../dev/null
> abs2rel(abs_path, abs_base) returned ../../dev/null
> BUG at /tmp/t3 line 43.
> 
> 
> So it looks like an old bug which has been fixed (?)
> 

I would like to move this ticket toward resolution.  To do so, I have created a new test file for dist/PathTools/t/, attached.  This file attempts to simulate the script provided earlier in this ticket in temporary directories rather in /etc (which probably wouldn't be portable).

That test program is attached in 121360-Demonstrate-that-RT-121360-has-been-resolved.patch.  I've also pushed that for smoking to the smoke-me/jkeenan/121360-abs2rel branch.

I suspect that before we apply this patch we should adapt it for running on VMS, as we've done for similar test files in that distribution and others.  I welcome suggestions for that.  Please review.

Thank you very much.
Jim Keenan

-- 
James E Keenan (jkeenan@cpan.org)

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=121360

• [perl #121360] File::Spec::abs2rel wrong result when path is ../something by Father Chrysostomos via RT
• [perl #121360] File::Spec::abs2rel wrong result when path is ../something by James E Keenan via RT