diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-02-27 12:15:27 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-28 03:25:44 +0000 |
| commit | 4379a6f8153cde10f045a82b5434d852f701ae7a (patch) | |
| tree | 5de20f4cfbb30d5740ce1ae1e67063735b025b5a /lib/Symbol.pm | |
| parent | 54ae734e012df09694a97dd182931816c572ff76 (diff) | |
| download | perl-4379a6f8153cde10f045a82b5434d852f701ae7a.tar.gz | |
Perl interface to newIO()
Message-ID: <f7af8gzkgaET092yn@efn.org>
p4raw-id: //depot/perl@14907
Diffstat (limited to 'lib/Symbol.pm')
| -rw-r--r-- | lib/Symbol.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/Symbol.pm b/lib/Symbol.pm index d5318085d8..98fb6763fe 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" |