diff --git a/.perlcriticrc b/.perlcriticrc index d2058e9c..42ac1c77 100644 --- a/.perlcriticrc +++ b/.perlcriticrc @@ -1,4 +1,4 @@ theme = community # 5 is the least complainy, 1 is the most complainy -severity = 2 +severity = 1 diff --git a/src/lib/Hydra/Helper/Nix.pm b/src/lib/Hydra/Helper/Nix.pm index a8ba1ff3..9ecb4d7a 100644 --- 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; }