perlcritic: return undef in list context too

2021-12-14 10:24:53 -05:00 · 2021-12-14 10:24:53 -05:00 · e43f487157
parent d0a1cf5785
commit e43f487157
1 changed files with 1 additions and 1 deletions
--- a/src/lib/Hydra/Helper/Nix.pm
+++ b/src/lib/Hydra/Helper/Nix.pm
@ -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;
        }