pre-commit: filtering strange characters (Forum #97596)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18648 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-02-19 19:11:07 +00:00
parent 934275523c
commit 54c4929f66

View File

@ -55,6 +55,9 @@ foreach my $row (split("\n", $fList)) {
next;
}
err $fName, "filename contains strange characters (not A-Za-z0-9_.-%)"
if($fName =~ m/[^A-Za-z0-9_.%-]/);
next unless($fName =~ /\.pm$/);
# check for SVN Id