X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=5d5b2be1602f7c06c57b73d88fd4b000bad0b6e3;hp=43ea98853ffbd6e41f9e108512009d46063f1cb5;hb=7d83b76289605efa52cf631d184093d0096383c5;hpb=5d9cbfab67405ce1806475bf211190e4427f0b56

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 43ea988..5d5b2be 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -268,7 +268,7 @@ sub update_image_info {
 			undef, $id)
 			or die "Couldn't delete old tag information in SQL: $!";
 
-		my $q = $dbh->prepare('INSERT INTO tags (image,tag) VALUES (?,?)')
+		$q = $dbh->prepare('INSERT INTO tags (image,tag) VALUES (?,?)')
 			or die "Couldn't prepare inserting tag information: $!";
 
 		for my $tag (@tags) {