From 1f4739df3b104a71e91e8f6e96c33e6309e06d36 Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@perl.com>
Date: Thu, 10 Apr 1997 07:48:55 +1200
Subject: [PATCH] In IO::File::open, prepend './' less often (for Win32 et al)

---
 ext/IO/lib/IO/File.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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