Perl Script connecting to DBD::MySql problem

[powerhouse]

I am trying to configure a perl script that I bought, which is connecting to a MySql database. Here is the code that it is using:

### connect to database on every entry to program
use DBI;
$driver = "mysql"; # Set somewhere else, just including it here
$drh = DBI->install_driver( $driver );
$dbh = $drh->connect( $workspace,$userid,$password );
$rv  = $drh->err;
$str = $drh->errstr;
if ($drh->err != 0)
{
        $errormsg="Cannot connect to database";
        &printerr;
}

Here is the error I am getting:
Can't use an undefined value as a HASH reference at /usr/lib/perl5/site_perl/5.8.4/i686-linux/DBD/mysql.pm line 115.

I tried installing DBD::mysql again, but it just says it is already installed. Is this in the Perl, or is it actually perhaps a bad install of the DBD::mysql module? I run MySql on other sites on this server with no problems.

I know this is not totally perl, so I apologize, but if you know what could cause it, I would appreciate your responses.

[rnahi]

What's the content of $workspace? It seems that your script is passing invalid data to "connect".

You can also remove the call to "install_driver" and call DBI->connect instead.

[wfsp]

Is this line 115?

my $drh = DBI->install_driver( $driver )

If so try changing it to:

my $drh = DBI->install_driver( $driver )
  or die DBI->errstr;

You may get more useful information.

rnahi is right to note that you don't need install_driver but it may not be where your problem is.