diff options
| author | Robin Barker <RMBarker@cpan.org> | 1998-07-16 16:00:39 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 04:06:06 +0000 |
| commit | f5ea50d0fbacaa380b3e728318a4838cc686d90b (patch) | |
| tree | 6f240f9db01f687d8b649d6de86e0a260f425839 | |
| parent | 02ea72ae554bc41558ce4208c02dbcce62b47ecf (diff) | |
| download | perl-f5ea50d0fbacaa380b3e728318a4838cc686d90b.tar.gz | |
don't use SelectSaver on IO::Handle->input_*() methods
Message-Id: <199807161400.PAA25532@tempest.cise.npl.co.uk>
Subject: Re: Bug in IO::Handle->input_record_separator
p4raw-id: //depot/perl@1594
| -rw-r--r-- | ext/IO/lib/IO/Handle.pm | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm index d3b0ce4aee..af3df7125d 100644 --- a/ext/IO/lib/IO/Handle.pm +++ b/ext/IO/lib/IO/Handle.pm @@ -444,14 +444,12 @@ sub output_record_separator { } sub input_record_separator { - my $old = new SelectSaver qualify($_[0], caller); my $prev = $/; $/ = $_[1] if @_ > 1; $prev; } sub input_line_number { - my $old = new SelectSaver qualify($_[0], caller); my $prev = $.; $. = $_[1] if @_ > 1; $prev; |