Unbreak rotation.

diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm
index d5086ecc7b8715053067b1110b3053fba3f3d3ce..886f7bc54229bcb1362668bd24f95232f80f2434 100644 (file)
--- a/perl/Sesse/pr0n/Rotate.pm
+++ b/perl/Sesse/pr0n/Rotate.pm
@@ -15,11 +15,11 @@ sub handler {
 
        my @to_purge = ();
 
 
        my @to_purge = ();
 

-       Sesse::pr0n::Common::header($r, "Rotation/deletion results");
-

        my $res = Plack::Response->new(200);
        my $io = IO::String->new;
 
        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;
        {
                # Enable transactions and error raising temporarily
                local $dbh->{RaiseError} = 1;