Merge pull request #1075 from DeterminateSystems/perlcritic-level-1

Perlcritic level 1
This commit is contained in:
Graham Christensen 2021-12-14 12:09:30 -05:00 committed by GitHub
commit a466d53d18
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions

View file

@ -1,4 +1,4 @@
theme = community
# 5 is the least complainy, 1 is the most complainy
severity = 2
severity = 1

View file

@ -396,7 +396,7 @@ sub pathIsInsidePrefix {
# .. should not take us outside of the prefix.
if ($c eq "..") {
return if length($cur) <= length($prefix);
return undef if length($cur) <= length($prefix);
$cur =~ s/\/[^\/]*$// or die; # remove last component
next;
}