forked from lix-project/hydra
Merge pull request #1075 from DeterminateSystems/perlcritic-level-1
Perlcritic level 1
This commit is contained in:
commit
a466d53d18
|
@ -1,4 +1,4 @@
|
|||
theme = community
|
||||
|
||||
# 5 is the least complainy, 1 is the most complainy
|
||||
severity = 2
|
||||
severity = 1
|
||||
|
|
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue