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).