Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re^2: What magic is this?

by Jonathan (Curate)
on Oct 26, 2006 at 12:38 UTC ( [id://580747]=note: print w/replies, xml ) Need Help??


in reply to Re: What magic is this?
in thread What magic is this?

You have an interesting take on the word 'interesting' :-)

Expat.pm has use Carp in it, when I added it to my first script it made no difference. It still ran without complaining.

Line 451... 

  if (defined $arg) {
    if (ref($arg) and UNIVERSAL::isa($arg, 'IO::Handler')) {
      $ioref = $arg;
    } else {
      eval {
-->    $ioref = *{$arg}{IO};
      };
      undef $@;
    }
  }

[download]
I've tried eval'ing the call in my code but the error message still gets through. As its stands I'm going to have to amend my log_die sub-routine to ignore messages with Expat in them (which is horrible).

Replies are listed 'Best First'.
Re^3: What magic is this?
by shmem (Chancellor) on Oct 26, 2006 at 12:46 UTC
    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 $@;
    }
  }

    [download]

    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 

    _($_=" "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}
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://580747]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others sharing their wisdom with the Monastery: (6)
As of 2024-04-24 12:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found