Perl interface to newIO()
Yitzchak Scott-Thoennes [Wed, 27 Feb 2002 20:15:27 +0000 (12:15 -0800)]
Message-ID: <f7af8gzkgaET092yn@efn.org>

p4raw-id: //depot/perl@14907

lib/Symbol.pm

index d531808..98fb676 100644 (file)
@@ -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"