ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki 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
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;
} }