note
shmem
That code block in my Expat.pm (version 2.34) looks like
<c>
if (defined $arg) {
if (ref($arg) and UNIVERSAL::isa($arg, 'IO::Handle')) {
$ioref = $arg;
} elsif (tied($arg)) {
my $class = ref($arg);
no strict 'refs';
$ioref = $arg if defined &{"${class}::TIEHANDLE"};
}
else {
require IO::Handle;
eval {
no strict 'refs';
$ioref = *{$arg}{IO} if defined *{$arg};
};
undef $@;
}
}
</c>
<p>but to me it looks equally scary. <c>undef $@</c> after <c>eval</c>? wtf?
<p>At least, there's <c>no strict 'refs';</c> inside the eval (but isn't it
another wtf?)
<p>--shmem
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-510280">
<small><pre>
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}</pre></small>
</div></div>
580738
580747