From c9889911bbeeb6b594009c8d99bd3f999cca1508 Mon Sep 17 00:00:00 2001
From: Matthew Connelly <github@maff.im>
Date: Sat, 14 Nov 2015 06:37:29 +0000
Subject: [PATCH] database abstraction killed the perl star

---
 lib/App/WerePaste.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/App/WerePaste.pm b/lib/App/WerePaste.pm
index e0f9bb9..d5b9796 100644
--- a/lib/App/WerePaste.pm
+++ b/lib/App/WerePaste.pm
@@ -53,7 +53,7 @@ sub GetPaste {
 	return undef unless $id =~ /^[a-f0-9]*$/;
 	#This got a bit messy, required because otherwise there are scenarios where an expired paste may still be viewed
 	return schema->resultset('Paste')->single( {
-	-and => [
+	[ -and =>
 		{ id => $id },
 		{ expiration => { '>=' => DateTimeToQueryable() }, expiration => undef }
 	] } ) || undef;