1 files 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;