From: Steve Hay <SteveHay@planit.com>
Date: Fri, 30 Jul 2004 13:27:41 +0000 (+0000)
Subject: Bug report #30132 was resolved before it was finished!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bfe0af6c2b72dec90528e054ccd7f52cdacefae9;p=p5sagit%2Fp5-mst-13.2.git

Bug report #30132 was resolved before it was finished!
Here's the last piece in the puzzle.

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

diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm
index 538efcd..0006eb3 100644
--- a/ext/IO/lib/IO/File.pm
+++ b/ext/IO/lib/IO/File.pm
@@ -169,7 +169,7 @@ sub open {
 	if (defined($file) && length($file)
 	    && ! File::Spec->file_name_is_absolute($file))
 	{
-	    $file = File::Spec->catfile(File::Spec->curdir(),$file);
+	    $file = File::Spec->rel2abs($file);
 	}
 	$file = IO::Handle::_open_mode_string($mode) . " $file\0";
     }