From: Robin Barker <RMBarker@cpan.org>
Date: Thu, 16 Jul 1998 15:00:39 +0000 (+0100)
Subject: don't use SelectSaver on IO::Handle->input_*() methods
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5ea50d0fbacaa380b3e728318a4838cc686d90b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;