Change 14907 by jhi@alpha on 2002/02/28 03:25:44
Subject: [PATCH] Perl interface to newIO()
From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
Date: Wed, 27 Feb 2002 20:15:27 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Symbol.pm#12 edit
Differences ...
==== //depot/perl/lib/Symbol.pm#12 (text) ====
Index: perl/lib/Symbol.pm
--- perl/lib/Symbol.pm.~1~ Wed Feb 27 20:30:06 2002
+++ perl/lib/Symbol.pm Wed Feb 27 20:30:06 2002
@@ -15,11 +15,8 @@
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"
End of Patch.
