Re^3: Bad news for IO::Handle magic (SWYM or sink)

Replies are listed 'Best First'.
Re^4: Bad news for IO::Handle magic (SWYM or sink) by Stevie-O (Friar) on Jul 07, 2004 at 23:20 UTC
Stolen^WBorrowed straight outta Symbol's geniosym: `sub geniosym () { my $sym = gensym(); # force the IO slot to be filled select(select $sym); $sym{IO}; }` [download] --Stevie-O `$"=$,,$_=q>\|\p4<6 8p<M/_\|<('=> .q>.<4-KI<l\|2$<6%s!<qn#F<>;$, .=pack'N',"@{[unpack'C*',$_] }"for split/</;$_=$,,y[A-Z a-z] {}cd;print lc` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Bad news for IO::Handle magic (SWYM or sink)
by Stevie-O (Friar) on Jul 07, 2004 at 23:20 UTC

sub geniosym () {
    my $sym = gensym();
    # force the IO slot to be filled
    select(select $sym);
    *$sym{IO};
}
[download]

--Stevie-O

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc
[download]

[reply]
[d/l]
[select]