aboutsummaryrefslogtreecommitdiff
path: root/lib/MasterServer/Database/Pg/dbCore.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MasterServer/Database/Pg/dbCore.pm')
-rwxr-xr-xlib/MasterServer/Database/Pg/dbCore.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/MasterServer/Database/Pg/dbCore.pm b/lib/MasterServer/Database/Pg/dbCore.pm
index f89cc68..8f55ebb 100755
--- a/lib/MasterServer/Database/Pg/dbCore.pm
+++ b/lib/MasterServer/Database/Pg/dbCore.pm
@@ -8,9 +8,8 @@ use Exporter 'import';
our @EXPORT = qw| database_login |;
################################################################################
-## database_login
## login to the database with credentials provided in the config file.
-## returns dbh object
+## returns dbh object or quits application on error.
################################################################################
sub database_login {
my $self = shift;
@@ -20,6 +19,7 @@ sub database_login {
# verify that the database connected
if (defined $dbh) {
+
# log the event
$self->log("load","Connected to the Postgres database.");
@@ -37,7 +37,7 @@ sub database_login {
$self->halt();
}
- # unreachable
+ # return empty element
return undef;
}