From dc3ef05d90b1383b3dcc6b30720b614d1b160d07 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Mon, 13 Jul 2009 21:10:13 +0200
Subject: [PATCH] Try to handle aborted rotation a bit better.

---
 perl/Sesse/pr0n/Rotate.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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);
-- 
2.39.2