diff options
| author | Steve Hay <SteveHay@planit.com> | 2004-07-30 13:27:41 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2004-07-30 13:27:41 +0000 |
| commit | bfe0af6c2b72dec90528e054ccd7f52cdacefae9 (patch) | |
| tree | 31a96af796ed4d2e50485256d7e1937ad2c2d254 /ext/IO | |
| parent | 5b2874358a4501aa172a431fb19da878b608622f (diff) | |
| download | perl-bfe0af6c2b72dec90528e054ccd7f52cdacefae9.tar.gz | |
Bug report #30132 was resolved before it was finished!
Here's the last piece in the puzzle.
p4raw-id: //depot/perl@23170
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/File.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm index 538efcd0b6..0006eb3516 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"; } |