Perl DBI模块不会引发异常

Question

I try to run some statement, which will fail, in do() method with DBI RaiseError flag is ON, but it doesn`t raise an exception.

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("DBI:mysql:database=test;host=192.168.10.101",
                        "test", "123456", {'RaiseError' => 1});

eval { $dbh->do("DROP TABLE foo") }; # foo table not exist
if ($@) {
    print "Dropping foo failed: $@\n";
} else {
    print "ok\n";
}

This code return ok instead error.

I have this problem only on Windows 7 machine. (When I run this code on Linux exception is raised.) Is it a bug?

Perl version: 5.16.3, DBI version: 1.623, DBD::mysql version: 4.022

Answer 1

将DBD :: mysql更新到最新版本对我有所帮助。