Re^3: What magic is this?

[shmem]

That code block in my Expat.pm (version 2.34) looks like

  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 $@;
    }
  }

but to me it looks equally scary. undef $@ after eval? wtf?

At least, there's no strict 'refs'; inside the eval (but isn't it another wtf?)

--shmem