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 (file)
--- 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";
     }