From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Wed, 27 Feb 2002 20:15:27 +0000 (-0800)
Subject: Perl interface to newIO()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4379a6f8153cde10f045a82b5434d852f701ae7a;p=p5sagit%2Fp5-mst-13.2.git

Perl interface to newIO()
Message-ID: <f7af8gzkgaET092yn@efn.org>

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

diff --git a/lib/Symbol.pm b/lib/Symbol.pm
index d531808..98fb676 100644
--- a/lib/Symbol.pm
+++ b/lib/Symbol.pm
@@ -15,11 +15,8 @@ Symbol - manipulate Perl symbols and their names
 
     ungensym $sym;      # no effect
 
-    # localize *FOO IO handle but not $FOO, %FOO, etc.
-    my $save_fooio = *FOO{IO} || geniosym;
+    # replace *FOO{IO} handle but not $FOO, %FOO, etc.
     *FOO = geniosym;
-    use_foo();
-    *FOO{IO} = $save_fooio;
 
     print qualify("x"), "\n";              # "Test::x"
     print qualify("x", "FOO"), "\n"        # "FOO::x"