question on perl DBI _ListDBs function

[James H. Thompson]

Question on _listdbs


I created the following suid to root CGI test script 
 
#!/usr/local/bin/perl
$ENV{'PATH'} = "/usr/local/bin:/usr/bin:/bin:/usr/sbin";
use DBI;
$drhx = DBI->install_driver('mysql');
@db_list = $drhx->func("host.domain.com", "", '_ListDBs');
$page_out = "drhx=$drhx, r=" . join('*',@db_list) . "=\n";
print "\n\n",$page_out;
exit(0);

It returns a null list of available databases unless I add:
$ENV{'MYSQL_PWD'} = "xxxxxx";
to the script.

That didn't seem to be documented as needed.
Is that the way its supposed to work?


Jim

James H. Thompson
jht@stripped