diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-09-21 15:20:40 -0400 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-09-22 03:44:19 +0000 |
| commit | d9c93211b16c29e1d3cea619b8fb7fae7582e581 (patch) | |
| tree | 359c2a93aa6d6147dc8b2ca6704532568749d4fc /t | |
| parent | 89eee1ed72235a40548c0e433602e92957338617 (diff) | |
| download | perl-d9c93211b16c29e1d3cea619b8fb7fae7582e581.tar.gz | |
Reconciling the Cwd/File::Spec differences
Message-Id: <20010921192040.E5494@blackrider>
p4raw-id: //depot/perl@12124
Diffstat (limited to 't')
| -rw-r--r-- | t/op/chdir.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op/chdir.t b/t/op/chdir.t index 735d51f76e..af13e80518 100644 --- a/t/op/chdir.t +++ b/t/op/chdir.t @@ -8,8 +8,13 @@ BEGIN { # Might be a little early in the testing process to start using these, # but I can't think of a way to write this test without them. -use Cwd qw(abs_path cwd); -use File::Spec::Functions qw(:DEFAULT splitdir); +use File::Spec::Functions qw(:DEFAULT splitdir rel2abs); + +# Can't use Cwd::abs_path() because it has different ideas about +# path seperators than File::Spec. +sub abs_path { + rel2abs(curdir); +} use Test::More tests => 25; |