This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
don't use SelectSaver on IO::Handle->input_*() methods
authorRobin Barker <RMBarker@cpan.org>
Thu, 16 Jul 1998 15:00:39 +0000 (16:00 +0100)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 21 Jul 1998 04:06:06 +0000 (04:06 +0000)
Message-Id: <199807161400.PAA25532@tempest.cise.npl.co.uk>
Subject: Re: Bug in IO::Handle->input_record_separator

p4raw-id: //depot/perl@1594

ext/IO/lib/IO/Handle.pm

index d3b0ce4..af3df71 100644 (file)
@@ -444,14 +444,12 @@ sub output_record_separator {
 }
 
 sub input_record_separator {
 }
 
 sub input_record_separator {
-    my $old = new SelectSaver qualify($_[0], caller);
     my $prev = $/;
     $/ = $_[1] if @_ > 1;
     $prev;
 }
 
 sub input_line_number {
     my $prev = $/;
     $/ = $_[1] if @_ > 1;
     $prev;
 }
 
 sub input_line_number {
-    my $old = new SelectSaver qualify($_[0], caller);
     my $prev = $.;
     $. = $_[1] if @_ > 1;
     $prev;
     my $prev = $.;
     $. = $_[1] if @_ > 1;
     $prev;