summaryrefslogtreecommitdiff
path: root/scripts/DumpWeakCerts.pl
diff options
context:
space:
mode:
authorMichael Tänzer <neo@nhng.de>2011-03-27 23:02:03 +0200
committerMichael Tänzer <neo@nhng.de>2011-03-27 23:02:03 +0200
commit94391e3f41777169f9064dbf2d1a4fa8fa53784d (patch)
treea099cf0b7dfa9b5db1b02232bed60e311f8ea7b2 /scripts/DumpWeakCerts.pl
parent3cdf9f382b70f4fb44f70e9e7acfb3775a24f906 (diff)
downloadcacert-devel-94391e3f41777169f9064dbf2d1a4fa8fa53784d.tar.gz
cacert-devel-94391e3f41777169f9064dbf2d1a4fa8fa53784d.tar.xz
cacert-devel-94391e3f41777169f9064dbf2d1a4fa8fa53784d.zip
#918: Weak keys in certificates
Don't rely on AutoCommit being on by default as stated in the perl docu Signed-off-by: Michael Tänzer <neo@nhng.de>
Diffstat (limited to 'scripts/DumpWeakCerts.pl')
-rwxr-xr-xscripts/DumpWeakCerts.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/DumpWeakCerts.pl b/scripts/DumpWeakCerts.pl
index 54bd11a..e31d0be 100755
--- a/scripts/DumpWeakCerts.pl
+++ b/scripts/DumpWeakCerts.pl
@@ -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;