diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/File.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm index 9d647b3571..b1aecffb5d 100644 --- a/ext/IO/lib/IO/File.pm +++ b/ext/IO/lib/IO/File.pm @@ -115,7 +115,7 @@ require DynaLoader; @ISA = qw(IO::Handle IO::Seekable Exporter DynaLoader); -$VERSION = "1.0601"; +$VERSION = "1.0602"; @EXPORT = @IO::Seekable::EXPORT; @@ -165,7 +165,7 @@ sub open { defined $perms or $perms = 0666; return sysopen($fh, $file, $mode, $perms); } - $file = './' . $file unless substr($file, 0, 1) eq '/'; + $file = './' . $file if $file =~ m{\A[^\\/\w]}; $file = IO::Handle::_open_mode_string($mode) . " $file\0"; } open($fh, $file); |