From: Steinar H. Gunderson Date: Mon, 25 Dec 2006 16:31:00 +0000 (+0100) Subject: Small cleanups. X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=662494ab4cea2b982ab87f859e08f1b2eafd37c7;ds=sidebyside Small cleanups. --- 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