Hi,
I have tried the following test package:
package Presa::H;
use strict;
use warnings;
use diagnostics;
use CGI ();
use CGI::Session ();
use DBI ();
my $q = CGI->new();
my $dbh = DBI->connect("DBI:mysql:database=presa", "root", undef,
{PrintError => 1, RaiseError => 1, AutoCommit => 1});
$Presa::H::sess = CGI::Session->new("driver:MySQL;id:MD5", $q, {Handle =>
$dbh});
If I run this module, it gives me the following error:
(in cleanup) Can't connect to data source , no database driver specified
and DBI_DSN env var not set at E:/usr/site/lib/CGI/Session/MySQL.pm line 131
But if I just change the last line into:
my $sess = CGI::Session->new("driver:MySQL;id:MD5", $q, {Handle => $dbh});
... the script works with no errors, even though I have just changed
$Presa::H::session into my $session).
Do you have any idea why?
Thank you very much.
Teddy
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
