From: Gisle Aas <gisle@aas.no>
Date: Thu, 27 Oct 2005 01:00:39 +0000 (-0700)
Subject: Re: IO::File performace issue
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=74af07f22d4e66739ed9bf90220ae0c162150d08;p=p5sagit%2Fp5-mst-13.2.git

Re: IO::File performace issue
Message-ID: <lrvezjv17c.fsf@caliper.activestate.com>

Also includes a version bump for IO::File.

p4raw-id: //depot/perl@25861
---

diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm
index e7cdbbe..03dab1d 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);
 }