From: Steinar H. Gunderson Date: Mon, 30 Nov 2015 21:23:41 +0000 (+0100) Subject: Unbreak rotation. X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=53c79213cb078770e1e1d8795ce033d96c39e02d Unbreak rotation. --- diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm index d5086ec..886f7bc 100644 --- a/perl/Sesse/pr0n/Rotate.pm +++ b/perl/Sesse/pr0n/Rotate.pm @@ -15,11 +15,11 @@ sub handler { my @to_purge = (); - Sesse::pr0n::Common::header($r, "Rotation/deletion results"); - my $res = Plack::Response->new(200); my $io = IO::String->new; + Sesse::pr0n::Common::header($r, $io, "Rotation/deletion results"); + { # Enable transactions and error raising temporarily local $dbh->{RaiseError} = 1;