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 (file)
--- 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"