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

diff --git a/ext/IO/lib/IO/Handle.pm b/ext/IO/lib/IO/Handle.pm
index d3b0ce4..af3df71 100644 (file)
--- 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;