From db6249d49a42d35e5c33a4ca90e5713ee8a8e580 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 22 Nov 2013 21:54:49 +0100
Subject: perl_checker cleanup

---
 bin/draksambashare | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'bin')

diff --git a/bin/draksambashare b/bin/draksambashare
index 42d864d..f3bd4ff 100755
--- a/bin/draksambashare
+++ b/bin/draksambashare
@@ -1264,7 +1264,7 @@ sub global_special_options() {
     
   }
   my $conf = "/etc/group";
-  my @groups = map { if_(m/^([^#:]+):[^:]+:([^:]+):/ and $2 > 499, $1) } cat_($conf);
+  my @groups = map { if_(m/^([^#:]+):[^:]+:([^:]+):/ && $2 > 499, $1) } cat_($conf);
   foreach (@groups) {
       system(qw(net groupmap add), "unixgroup=$_", "ntgroup=$_");
   }
@@ -1493,6 +1493,6 @@ $W->add(gtkpack_(Gtk3::VBox->new(0,0),
 		 ),
 	);
 
-check_first_launch;
+check_first_launch();
 $W->show_all;
 Gtk3->main;
-- 
cgit v1.2.1