#918: Weak keys in certificates
authorMichael Tänzer <neo@nhng.de>
Sun, 27 Mar 2011 21:02:03 +0000 (23:02 +0200)
committerMichael Tänzer <neo@nhng.de>
Sun, 27 Mar 2011 21:02:03 +0000 (23:02 +0200)
Don't rely on AutoCommit being on by default as stated in the perl docu

Signed-off-by: Michael Tänzer <neo@nhng.de>
scripts/DumpWeakCerts.pl

index 54bd11a..e31d0be 100755 (executable)
@@ -14,7 +14,7 @@ my $cacert_db_password;
 # Read database access data from the config file
 eval `cat perl_mysql`;
 
-my $dbh = DBI->connect($cacert_db_config, $cacert_db_user, $cacert_db_password, { RaiseError => 1 } ) || die "Cannot connect database: $DBI::errstr";
+my $dbh = DBI->connect($cacert_db_config, $cacert_db_user, $cacert_db_password, { RaiseError => 1, AutoCommit => 0 } ) || die "Cannot connect database: $DBI::errstr";
 
 my $sth_certs;
 my $sth_userdata;