From: Michael G. Schwern <schwern@pobox.com>
Date: Tue, 12 Feb 2002 05:37:36 +0000 (-0500)
Subject: Re: 14654 introduced a bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=42873cecf73e7c7f00d9d5756fe5e667c4512654;p=p5sagit%2Fp5-mst-13.2.git

Re: 14654 introduced a bug
Message-ID: <20020212103736.GC14327@blackrider>

p4raw-id: //depot/perl@14656
---

diff --git a/lib/File/Spec/t/rel2abs2rel.t b/lib/File/Spec/t/rel2abs2rel.t
index 1e868f3..9d2ce2c 100644
--- a/lib/File/Spec/t/rel2abs2rel.t
+++ b/lib/File/Spec/t/rel2abs2rel.t
@@ -27,7 +27,7 @@ is( `$perl -le "print 'ok'"`, "ok\n",   'rel2abs($^X)' );
 $perl = File::Spec->canonpath($perl);
 is( `$perl -le "print 'ok'"`, "ok\n",   'canonpath on abs executable' );
 
-$perl = safe_rel($perl);
+$perl = safe_rel(File::Spec->abs2rel($perl));
 is( `$perl -le "print 'ok'"`, "ok\n",   'abs2rel()' );
 
 $perl = File::Spec->canonpath($^X);