On 2011-06-11 04:25, sono...@fannullone.us wrote:
# Connect to the server to create the db, if it doesn't exist already.
my $dbh_db = DBI->connect("DBI:mysql:database=;$host",
$username, $password,
{'RaiseError' => 1});
<quote src="DBI">
The "RaiseError" attribute can be used to force errors to raise exceptions
</quote>
$dbh_db->do($qry_db) or die ("Can't create db!\n");
Because of RaiseError, that 'or die' is unreachable code. Etc.
--
Ruud
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
