[Cascavel-pm] DBI connect failed

[Sammuel Souza]

Boa Noite,

Tenho um script PERL sempre funcionou, porem hoje fui mudar o variavel.pl

################
local.cgi

#!/usr/bin/perl

use CGI;
use DBI;
use warnings;
use diagnostics;

** linha 277
my $dbh=DBI->connect("DBI:mysql:$database_mysql:$host_mysql",
$username_mysql, $password_mysql) or die $DBI::errstr;;
my $sql_checar=$dbh->prepare("select * from sessao;");
$sql_checar->execute;

# fim do local.cgi

require 'variavel.pl';

#########
variavel.pl

## Banco de Dados ###
our $host_mysql = "host";
our $username_mysql = "usario";
our $database_mysql = "database";
our $password_mysql = 'senh@';
## Fim do banco de dados ###


our $versao = "3.4";

1;
### fim do variavel.pl

##### msg de error
 Can't connect to local MySQL server through socket
'/var/lib/mysql/mysql.sock' (2) at ./local.cgi line 277.

Sempre funcionou só porque mudei o variavel.pl não quer funcionar.

Algum ja passou por isso?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20121203/4cdd376b/attachment.html>