From: Steinar H. Gunderson <sesse@debian.org>
Date: Tue, 2 Jan 2007 20:08:14 +0000 (+0100)
Subject: Fix a warning.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=38fd1954ea4ae45f54f8ab2bbe869fc953320021

Fix a warning.
---

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index e85ab6e..de0e3bf 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -82,7 +82,7 @@ sub handler {
 		$num = undef;
 	}
 
-	my $ref = $dbh->selectrow_hashref('SELECT name,date,EXTRACT(EPOCH FROM last_update) AS last_update FROM events WHERE id=? AND vhost=?',
+	$ref = $dbh->selectrow_hashref('SELECT name,date,EXTRACT(EPOCH FROM last_update) AS last_update FROM events WHERE id=? AND vhost=?',
 		undef, $event, $r->get_server_name)
 		or error($r, "Could not find event $event", 404, "File not found");