Small cleanups.
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 25 Dec 2006 16:31:00 +0000 (17:31 +0100)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 25 Dec 2006 16:31:00 +0000 (17:31 +0100)
perl/Sesse/pr0n/Rotate.pm

index 5a3fe868efc9df2325f35361befcb1eee5efdfbc..e6d46141748985a137242ec93493efffc9c01354 100644 (file)
@@ -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