raito/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

perlcritic: return undef in list context too

Browse source
This commit is contained in:
Graham Christensen 2021-12-14 10:24:53 -05:00
parent d0a1cf5785
commit e43f487157
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/lib/Hydra/Helper/Nix.pm
View file

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