From d5489e1aa91408c7b89766adfe269849d587cf9a Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Thu, 19 Nov 2015 19:29:01 +0100 Subject: [PATCH] Fix the pr0n.pm regex for image URLs with no /WxH/ or /original. --- perl/Sesse/pr0n/pr0n.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl/Sesse/pr0n/pr0n.pm b/perl/Sesse/pr0n/pr0n.pm index f10f9f4..54e55be 100644 --- a/perl/Sesse/pr0n/pr0n.pm +++ b/perl/Sesse/pr0n/pr0n.pm @@ -69,7 +69,10 @@ sub handler { } elsif ($uri =~ /^\/[a-zA-Z0-9-]+\/?$/ || $uri =~ /^\/\+all\/?$/) { return Sesse::pr0n::Index::handler($r); - } elsif ($uri =~ m#^/[a-zA-Z0-9-]+/(\d+x\d+(\@\d+(\.\d+)?)?/|original/)((?:no)?box/)?[a-zA-Z0-9._()-]+$#) { + } elsif ($uri =~ m#^/[a-zA-Z0-9-]+/ + (\d+x\d+ ( \@\d+(\.\d+)? )? / | original/ )? + ((?:no)?box/)? + [a-zA-Z0-9._()-]+$#x) { return Sesse::pr0n::Image::handler($r); } -- 2.39.2