From ae983d1b24e35d2ffefd25646f29a6e4d8ab80b3 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sun, 20 Oct 2019 19:09:23 +0300
Subject: [PATCH] upload.pm: filename can contain dot

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

diff --git a/lib/upload.pm b/lib/upload.pm
index b24de00..566bdb5 100644
--- a/lib/upload.pm
+++ b/lib/upload.pm
@@ -26,7 +26,7 @@ sub upload {
 	my $d;
 	($d, $name) = split(/\//, $name, 2);
 
-	return ($status, $content, "Name does not match pattern.\n") unless ($name =~ /^[A-Z|a-z|0-9|_|\-|\+]+$/);
+	return ($status, $content, "Name does not match pattern.\n") unless ($name =~ /^[A-Z|a-z|0-9|_|\-|\+|\.]+$/);
 
 	my $match;