eleksir/myapi
1
Fork 0
Code Activity

upload.pm: filename can contain dot

Browse Source
This commit is contained in:
eleksir
2019-10-20 19:09:23 +03:00
parent 9dd5f1a208
commit ae983d1b24
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/upload.pm
View File

@@ -26,7 +26,7 @@ sub upload {
my $d; my $d;
($d, $name) = split(/\//, $name, 2); ($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; my $match;