diff options
| author | Darkelarious <darkelarious@333networks.com> | 2015-05-19 22:00:40 +0200 |
|---|---|---|
| committer | Darkelarious <darkelarious@333networks.com> | 2015-05-19 22:00:40 +0200 |
| commit | 2c7d62f38944f61e7eafea155c6128521d16aed9 (patch) | |
| tree | bd473e6fb9dbbf8e0fdc67b87f0a4ac251fada7b /lib/MasterServer/Database/Pg/dbCore.pm | |
| parent | 534626943a0a5e251e5465376f3de3fb71b25e91 (diff) | |
| download | MasterServer-Perl-2c7d62f38944f61e7eafea155c6128521d16aed9.tar.gz MasterServer-Perl-2c7d62f38944f61e7eafea155c6128521d16aed9.zip | |
Beta with support for Pg and SQLite
Diffstat (limited to 'lib/MasterServer/Database/Pg/dbCore.pm')
| -rwxr-xr-x | lib/MasterServer/Database/Pg/dbCore.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MasterServer/Database/Pg/dbCore.pm b/lib/MasterServer/Database/Pg/dbCore.pm index 8f55ebb..5cd194b 100755 --- a/lib/MasterServer/Database/Pg/dbCore.pm +++ b/lib/MasterServer/Database/Pg/dbCore.pm @@ -15,7 +15,7 @@ sub database_login { my $self = shift; # create the dbi object - my $dbh = DBI->connect(@{$self->{dblogin}}, {PrintError => 0}); + my $dbh = DBI->connect(@{$self->{dblogin}}, {PrintError => $self->{db_print}}); # verify that the database connected if (defined $dbh) { @@ -37,7 +37,7 @@ sub database_login { $self->halt(); } - # return empty element + # unreachable return undef; } |