diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-02-12 00:37:36 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-12 13:39:18 +0000 |
| commit | 42873cecf73e7c7f00d9d5756fe5e667c4512654 (patch) | |
| tree | dcf2651d7d97d0b723ad1ca262fcd271726efdd3 /lib | |
| parent | 29a2fc3d0d2bbbb0c1dab9b73aed7402116c8c42 (diff) | |
| download | perl-42873cecf73e7c7f00d9d5756fe5e667c4512654.tar.gz | |
Re: 14654 introduced a bug
Message-ID: <20020212103736.GC14327@blackrider>
p4raw-id: //depot/perl@14656
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/t/rel2abs2rel.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Spec/t/rel2abs2rel.t b/lib/File/Spec/t/rel2abs2rel.t index 1e868f3194..9d2ce2c36e 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); |