In IO::File::open, prepend './' less often (for Win32 et al)

diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm
index 9d647b3..b1aecff 100644 (file)
--- 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);