From: Steinar H. Gunderson Date: Mon, 13 Jul 2009 19:10:13 +0000 (+0200) Subject: Try to handle aborted rotation a bit better. X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=dc3ef05d90b1383b3dcc6b30720b614d1b160d07;ds=sidebyside Try to handle aborted rotation a bit better. --- diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm index eb8d17e..71102eb 100644 --- a/perl/Sesse/pr0n/Rotate.pm +++ b/perl/Sesse/pr0n/Rotate.pm @@ -23,12 +23,13 @@ sub handler { { # Enable transactions and error raising temporarily - local $dbh->{AutoCommit} = 0; local $dbh->{RaiseError} = 1; my @params = $apr->param(); my $key; for $key (@params) { + local $dbh->{AutoCommit} = 0; + # Rotation if ($key =~ /^rot-(\d+)-(90|180|270)$/ && $apr->param($key) eq 'on') { my ($id, $rotval) = ($1,$2);