forked from lix-project/hydra
perlcritic: return undef in list context too
This commit is contained in:
parent
d0a1cf5785
commit
e43f487157
|
@ -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