From 56e33eea02b7f09d214b9a480d9c0533bdbd2cea Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Mon, 26 Mar 2007 21:03:23 +0200
Subject: [PATCH] Delete EXIF information when deleting an image.

---
 perl/Sesse/pr0n/Rotate.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl/Sesse/pr0n/Rotate.pm b/perl/Sesse/pr0n/Rotate.pm
index 9cf18d8..be02312 100644
--- a/perl/Sesse/pr0n/Rotate.pm
+++ b/perl/Sesse/pr0n/Rotate.pm
@@ -50,6 +50,8 @@ sub handler {
 							undef, $id);
 						$dbh->do('INSERT INTO deleted_images SELECT * FROM images WHERE id=?',
 							undef, $id);
+						$dbh->do('DELETE FROM exif_info WHERE image=?',
+							undef, $id);
 						$dbh->do('DELETE FROM images WHERE id=?',
 							undef, $id);
 					};
-- 
2.39.2