From d0a1cf57859ebdcd114e018ba9337c3ce5bcc883 Mon Sep 17 00:00:00 2001
From: Graham Christensen <graham@grahamc.com>
Date: Tue, 14 Dec 2021 10:24:34 -0500
Subject: [PATCH 1/2] perlcritic: level 1

---
 .perlcriticrc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

From e43f4871571f45cc136a67720708fe8b440d0cae Mon Sep 17 00:00:00 2001
From: Graham Christensen <graham@grahamc.com>
Date: Tue, 14 Dec 2021 10:24:53 -0500
Subject: [PATCH 2/2] perlcritic: return undef in list context too

---
 src/lib/Hydra/Helper/Nix.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
         }