Perl - скрипт не видит переменные из пакета

[Max1548]

Есть два файла: index.pl и config.pm
index.pl - в папке ../cgi-bin
config.pm - ../cgi-bin/lib
Содержимое файла index.pl:

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw( :standard);
use CGI::Session;
use DBI;
use strict;
push (@INC, '../cgi-bin/lib');
require "colontitles.pm";
require "config.pm";

отрезано

my $db = DBI->connect($config::ds, $config::dbuser, $config::dbpass) or die(CGI->errstr); #ошибка

Содержимое файла config.pm:

package config;
our $sesstmp = "../tmp";
our $ds = "DBI:mysql:speccod:localhost";
our $dbuser = 'root';
our $dbpass = '';
1;

index.pl выдает ошибку о подключении к БД, я менял

$config::ds

и прочие значения на

'DBI:mysql:speccod:localhost'

, все начинало работать!
Помогите, пожалуйста!

[ssdm]

Выложите весь код + выложите сообщение об ошибки.

[Max1548]

Сообщение от ssdm

Выложите весь код + выложите сообщение об ошибки.

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw( :standard);
use CGI::Session;
use DBI;
use strict;
push (@INC, '../cgi-bin/lib');
require "colontitles.pm";
require "config.pm";
#print "Content-type: text/html\n\n";
if (!defined(param('login')) && !defined(param('password'))) {
	if (!defined(param('SID'))) {
	print "Content-type: text/html\n\n";
	&colontitles::uppercolontitle("Вход", "main.css", "0");
	print <<Form;
	<form>Логин: <input type="text" name="login" /><br />Пароль: <input type="password"  name="password" /><input type="submit" value="Вход"></form>
Form
	exit;
	}
	else {
		my $SID;
		$SID = param('SID');
		my $sidcookie = cookie(-name=>'SID', -expires=>'+5d', -value=>$SID, -path=>'/'); #-domain=>'.speccod.tk',
		print "Set-Cookie: $sidcookie\n";
		if (cookie('SID') ne '') {
			$SID = ''
		}
		print "Location: index.pl?SID=$SID\n\n";
	}
}
my $login = param('login');
my $password = param('password');
my $db = DBI->connect($config::ds, $config::dbuser, $config::dbpass) or die(CGI->errstr); 
my $query = $db->prepare("SELECT uid FROM user WHERE login=\'$login\'");
$query->execute();
if (!$query->err){
	if ($query->rows == 1){
		my $sess = CGI::Session->new('driver:file', undef, {Directory=>$config::sesstmp}) or die(CGI->errstr);
		$sess->name('SID');
		my $sidcookie = cookie(-name=>'SID', -value=>$sess->id(), -path=>'/', -expires=>'+5d');
		print "Set-cookie: $sidcookie\n";
		$sess->param(-name=>'login', -value=>$login);
		my $uid;
		while (my @row = $query->fetchrow_array()){
			$uid = $row[0];
		}
		$sess->param(-name=>'uid', -value=>$uid);
		$sess->expire('+5d');
		$sess->flush();
		$query->finish();
		$db->disconnect;
		print "Location: http://speccod.tk/cgi-bin/index.pl?SID=" . $sess->id() . "\n\n"; #"&login=" . $login . "&uid=" . $uid . 
	}
	}

Ошибка:

Can't connect to data source , no database driver specified and DBI_DSN env var not set at S:/home/speccod.tk/cgi-bin/entry.pl line 33

[ssdm]

В общем так делать не стоит. Юзайте константы.

package config;
use strict;
use warnings;
use constant {
 sesstmp => "../tmp" ,
 ds => "DBI:mysql:speccod:localhost",
 dbuser => 'root'.
 dbpass => ''
}
1;

а в скрипте

my $db = DBI->connect(config::ds, config::dbuser, config::dbpass) or die(CGI->errstr);

Добавлено :
А ещё лучше использовать конфиг файлы )

[Max1548]

Сообщение от ssdm

В общем так делать не стоит. Юзайте константы.

package config;
use strict;
use warnings;
use constant {
 sesstmp => "../tmp" ,
 ds => "DBI:mysql:speccod:localhost",
 dbuser => 'root'.
 dbpass => ''
}
1;

а в скрипте

my $db = DBI->connect(config::ds, config::dbuser, config::dbpass) or die(CGI->errstr);

Добавлено :
А ещё лучше использовать конфиг файлы )

Большое спасибо, сейчас же проверю!

[Max1548]

Can't connect to data source config:s, no database driver specified and DBI_DSN env var not set at S:/home/speccod.tk/cgi-bin/entry.pl line 3

выпадает ошибка

[ssdm]

Скиньте два ваших файла. Посмотрю.