X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FRotate.pm;fp=perl%2FSesse%2Fpr0n%2FRotate.pm;h=e6d46141748985a137242ec93493efffc9c01354;hp=5a3fe868efc9df2325f35361befcb1eee5efdfbc;hb=662494ab4cea2b982ab87f859e08f1b2eafd37c7;hpb=1a9cbb3a4dd482391f3a3d9f36d4f8ab3282fe58

diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm
index 5a3fe86..e6d4614 100644
--- a/perl/Sesse/pr0n/Rotate.pm
+++ b/perl/Sesse/pr0n/Rotate.pm
@@ -36,7 +36,7 @@ sub handler {
 
 				if ($rotval == 90 || $rotval == 270) {
 					my $q = $dbh->do('UPDATE images SET height=width,width=height WHERE id=?', undef, $id)
-						or dberror($r, "Size clear of $id failed: $!");
+						or dberror($r, "Size clear of $id failed");
 					$dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE event=( SELECT event FROM images WHERE id=? )',
 						undef, $id)
 						or dberror($r, "Cache invalidation at $id failed");
@@ -49,9 +49,9 @@ sub handler {
 						$dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE event=( SELECT event FROM images WHERE id=? )',
 							undef, $id);
 						$dbh->do('INSERT INTO deleted_images SELECT * FROM images WHERE id=?',
-								undef, $id);
+							undef, $id);
 						$dbh->do('DELETE FROM images WHERE id=?',
-								undef, $id);
+							undef, $id);
 					};
 					if ($@) {
 # Some error occurred, rollback and bomb out