diff options
| author | Oliver Tappe | 2006-10-06 22:26:03 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2006-10-06 22:26:03 +0200 |
| commit | 8e21b68d291584fa3c51e82dcc1577dd89142b0c (patch) | |
| tree | ba76df734cf2c1b23c3daf7ddf0589c2714fc12e /config-db/OpenSLX/MetaDB/mysql.pm | |
| parent | * added safety check, now only *.pm files will be updated. (diff) | |
| download | core-8e21b68d291584fa3c51e82dcc1577dd89142b0c.tar.gz core-8e21b68d291584fa3c51e82dcc1577dd89142b0c.tar.xz core-8e21b68d291584fa3c51e82dcc1577dd89142b0c.zip | |
* fixed format of error-message.
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@451 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/MetaDB/mysql.pm')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/mysql.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm index 1974a549..3f42b966 100644 --- a/config-db/OpenSLX/MetaDB/mysql.pm +++ b/config-db/OpenSLX/MetaDB/mysql.pm @@ -47,8 +47,8 @@ sub connectConfigDB my $user = (getpwuid($>))[0]; vlog 1, "trying to connect user <$user> to mysql-database <$dbSpec>"; eval ('require DBD::mysql; 1;') - or die _tr("DBD::mysql doesn't seem to be installed, " - ."so there is no support for mysql available, sorry!\n"); + or die _tr(qq[%s doesn't seem to be installed, +so there is no support for %s available, sorry!\n], 'DBI::mysql', 'mysql'); $self->{'dbh'} = DBI->connect("dbi:mysql:$dbSpec", $user, '', {PrintError => 0}) or confess _tr("Cannot connect to database <%s> (%s)", |