From 8e21b68d291584fa3c51e82dcc1577dd89142b0c Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Fri, 6 Oct 2006 20:26:03 +0000 Subject: * fixed format of error-message. git-svn-id: http://svn.openslx.org/svn/openslx/trunk@451 95ad53e4-c205-0410-b2fa-d234c58c8868 --- config-db/OpenSLX/MetaDB/mysql.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'config-db/OpenSLX/MetaDB/mysql.pm') 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)", -- cgit v1.2.3-55-g7522