From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 11 Feb 1999 11:17:08 +0000 (+0000)
Subject: remove double typeglob deref (suggested by RonaldWS <ronaldws@aol.com>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf34019797138569fd71cfc48bb60249b9df0ec3;p=p5sagit%2Fp5-mst-13.2.git

remove double typeglob deref (suggested by RonaldWS <ronaldws@aol.com>)

p4raw-id: //depot/perl@2870
---

diff --git a/ext/IO/lib/IO/Pipe.pm b/ext/IO/lib/IO/Pipe.pm
index 3a91b9e..9adea28 100644
--- a/ext/IO/lib/IO/Pipe.pm
+++ b/ext/IO/lib/IO/Pipe.pm
@@ -14,7 +14,7 @@ use vars qw($VERSION);
 use Carp;
 use Symbol;
 
-$VERSION = "1.12";
+$VERSION = "1.121";
 
 sub new {
     my $type = shift;
@@ -100,7 +100,7 @@ sub reader {
 
     close ${*$me}[1];
     bless $me, ref($fh);
-    *{*$me} = *{*$fh};          # Alias self to handle
+    *$me = *$fh;          # Alias self to handle
     $me->fdopen($fh->fileno,"r")
 	unless defined($me->fileno);
     bless $fh;                  # Really wan't un-bless here
@@ -123,7 +123,7 @@ sub writer {
 
     close ${*$me}[0];
     bless $me, ref($fh);
-    *{*$me} = *{*$fh};          # Alias self to handle
+    *$me = *$fh;          # Alias self to handle
     $me->fdopen($fh->fileno,"w")
 	unless defined($me->fileno);
     bless $fh;                  # Really wan't un-bless here