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 (file)
--- 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);
 }