diff options
| author | Gisle Aas <gisle@aas.no> | 2005-10-26 18:00:39 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-10-27 11:13:50 +0000 |
| commit | 74af07f22d4e66739ed9bf90220ae0c162150d08 (patch) | |
| tree | bc0c0125b15fb7028119742df16a9080d6589327 /ext/IO | |
| parent | e3790a26fcb573c8f9cc64ea17efdef2e17233bd (diff) | |
| download | perl-74af07f22d4e66739ed9bf90220ae0c162150d08.tar.gz | |
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
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/File.pm | 12 |
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); } |