maff
/
WerePaste
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

how embarrassing

This commit is contained in:
Matthew Connelly 2015-11-14 06:48:53 +00:00
parent 34c26e49de
commit 5bdbd4f10b
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/App/WerePaste.pm
View File

@ -51,8 +51,7 @@ sub ValidateParams {
sub GetPaste { sub GetPaste {
my $id = shift; $id = lc $id; my $id = shift; $id = lc $id;
return undef unless $id =~ /^[a-f0-9]*$/; 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({ id => $id }) || undef;
my $paste schema->resultset('Paste')->single({ id => $id }) or return undef;
} }
sub StorePaste { sub StorePaste {
my $params = shift; my $params = shift;