Change 20942 by [EMAIL PROTECTED] on 2003/08/30 05:41:59
Subject: [PATCH: [EMAIL PROTECTED] fix File::Spec->abs2rel() to return
absolute $path more often for VMS
From: [EMAIL PROTECTED]
Date: Sat, 30 Aug 2003 00:57:28 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Spec.pm#31 edit
... //depot/perl/lib/File/Spec/t/Spec.t#8 edit
Differences ...
==== //depot/perl/lib/File/Spec/t/Spec.t#8 (text) ====
Index: perl/lib/File/Spec/t/Spec.t
--- perl/lib/File/Spec/t/Spec.t#7~20801~ Thu Aug 21 08:06:16 2003
+++ perl/lib/File/Spec/t/Spec.t Fri Aug 29 22:41:59 2003
@@ -304,8 +304,8 @@
[ "VMS->catdir('[.name]')", '[.name]'
],
[ "VMS->catdir('[.name]','[.name]')",
'[.name.name]'],
-[ "VMS->abs2rel('node::volume:[t1.t2.t3]','[t1.t2.t3]')", '' ],
-[ "VMS->abs2rel('node::volume:[t1.t2.t4]','[t1.t2.t3]')", '[-.t4]' ],
+[ "VMS->abs2rel('node::volume:[t1.t2.t3]','node::volume:[t1.t2.t3]')", ''
],
+[ "VMS->abs2rel('node::volume:[t1.t2.t4]','node::volume:[t1.t2.t3]')", '[-.t4]'
],
[ "VMS->abs2rel('[t1.t2.t3]','[t1.t2.t3]')", '' ],
[ "VMS->abs2rel('[t1.t2.t3]file','[t1.t2.t3]')", 'file' ],
[ "VMS->abs2rel('[t1.t2.t4]','[t1.t2.t3]')", '[-.t4]' ],
@@ -313,7 +313,7 @@
[ "VMS->abs2rel('[t1.t2.t3.t4]','[t1.t2.t3]')", '[t4]' ],
[ "VMS->abs2rel('[t4.t5.t6]','[t1.t2.t3]')", '[---.t4.t5.t6]' ],
[ "VMS->abs2rel('[000000]','[t1.t2.t3]')", '[---]' ],
-[ "VMS->abs2rel('a:[t1.t2.t4]','[t1.t2.t3]')", '[-.t4]' ],
+[ "VMS->abs2rel('a:[t1.t2.t4]','a:[t1.t2.t3]')", '[-.t4]' ],
[ "VMS->abs2rel('[a.-.b.c.-]','[t1.t2.t3]')", '[---.b]' ],
[ "VMS->rel2abs('[.t4]','[t1.t2.t3]')", '[t1.t2.t3.t4]' ],
End of Patch.
