Subject: | Uninitialised values when running under "perl -w" |
With a very simple query such as "SELECT column FROM table WHERE condition", I get warnings as follows for each row retrieved by $generator->execute :
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.6.1/XML/Generator/DBI.pm line 180.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.6.1/XML/Generator/DBI.pm line 187.
The problem appears to be the complete absence of stacked elements whilst the code is determining if it's got to the end of the stack, however I'm not sure enough of the logic to fix it.
It's not a show stopper, but it's not nice that I get stuff on stderr when I want to write a silent program :)
Code involved is
my $dbh = DBI->connect("DBI:mysql:database= etc etc etc");
my $generator = XML::Generator::DBI->new(
dbh => $dbh,
Handler => XML::SAX::Writer->new(),
);
$generator->execute("SELECT column FROM table WHERE condition");
Running under RH7.3 with (as you see) perl 5.6.1, if it makes a difference ...