From 798af185c031de747cf373ade8bfbc1488b46159 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 27 Aug 2016 17:59:55 +0200
Subject: perl_checker cleanups

---
 userdrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/userdrake b/userdrake
index c771e75..d790d9d 100755
--- a/userdrake
+++ b/userdrake
@@ -284,7 +284,7 @@ sub NotebookSwitch() {
 }
 
 sub ComputeLockExpire {
-    my $l = shift;
+    my ($l) = @_;
     my $ep = $l->ShadowExpire($GetValue);
     my $tm = ceil(time()/(24*60*60));
     $ep = -1 if int($tm) <= $ep;
@@ -300,7 +300,7 @@ sub RefreshUsersFull {
     my @UserReal;
   LOOP: foreach my $l (@$users) {
         next LOOP if $filterusers && $l->Uid($GetValue) <= 499 || $l->Uid($GetValue) == 65534;
-        next LOOP if $filterusers && $l->Uid($GetValue) > 499 && $l->Uid($GetValue) < 1000 && ($l->HomeDir($GetValue) =~ /^\/($|var\/|run\/)/ || $l->LoginShell($GetValue) =~ /(nologin|false)$/);
+        next LOOP if $filterusers && $l->Uid($GetValue) > 499 && $l->Uid($GetValue) < 1000 && ($l->HomeDir($GetValue) =~ m!^/($|var/|run/)! || $l->LoginShell($GetValue) =~ /(nologin|false)$/);
         push @UserReal, $l if $l->UserName($GetValue) =~ /^\Q$strfilt/;
     }
     my $i;
-- 
cgit v1.2.1