From: Michael G. Schwern Date: Fri, 21 Sep 2001 19:20:40 +0000 (-0400) Subject: Reconciling the Cwd/File::Spec differences X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9c93211b16c29e1d3cea619b8fb7fae7582e581;p=p5sagit%2Fp5-mst-13.2.git Reconciling the Cwd/File::Spec differences Message-Id: <20010921192040.E5494@blackrider> p4raw-id: //depot/perl@12124 --- diff --git a/t/op/chdir.t b/t/op/chdir.t index 735d51f..af13e80 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;