Subject: | Subroutine redefined error messages. |
I've got an application with several modules. A few of them load XML::SAX::Machines 'Pipeline'. Unfortunately, I end up seeing error messages about "Subroutine redefined" because of the unconditional eval("") in XML::SAX::Machines->import().
This script shows the problem:
#!/usr/bin/perl -w
use strict;
{ package Bar; use XML::SAX::Machines qw( Pipeline ); }
{ package Foo; use XML::SAX::Machines qw( Pipeline ); }
I guess that a fix would be to test for the presence of the subroutine that the eval() is creating before actually creating it.
Thanks,
-Dom