1 files changed, 4 insertions, 8 deletions
diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm
index e7cdbbed6d..03dab1dcbd 100644
--- a/ext/IO/lib/IO/File.pm
+++ b/ext/IO/lib/IO/File.pm
@@ -137,7 +137,7 @@ require Exporter;
 
 @ISA = qw(IO::Handle IO::Seekable Exporter);
 
-$VERSION = "1.13";
+$VERSION = "1.13_01";
 
 @EXPORT = @IO::Seekable::EXPORT;
 
@@ -181,13 +181,9 @@ sub open {
 	} elsif ($mode =~ /:/) {
 	    return open($fh, $mode, $file) if @_ == 3;
 	    croak 'usage: $fh->open(FILENAME, IOLAYERS)';
-	}
-	if (defined($file) && length($file)
-	    && ! File::Spec->file_name_is_absolute($file))
-	{
-	    $file = File::Spec->rel2abs($file);
-	}
-	$file = IO::Handle::_open_mode_string($mode) . " $file\0";
+	} else {
+            return open($fh, IO::Handle::_open_mode_string($mode), $file);
+        }
     }
     open($fh, $file);
 }