summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-22 21:54:49 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 11:00:45 +0100
commitdb6249d49a42d35e5c33a4ca90e5713ee8a8e580 (patch)
tree204954104c373f51d15504f7ada59a2f5d0cfaeb
parentea238637fa0c0f3df450301201d0f425cdfbb30f (diff)
downloaddrakx-net-db6249d49a42d35e5c33a4ca90e5713ee8a8e580.tar
drakx-net-db6249d49a42d35e5c33a4ca90e5713ee8a8e580.tar.gz
drakx-net-db6249d49a42d35e5c33a4ca90e5713ee8a8e580.tar.bz2
drakx-net-db6249d49a42d35e5c33a4ca90e5713ee8a8e580.tar.xz
drakx-net-db6249d49a42d35e5c33a4ca90e5713ee8a8e580.zip
perl_checker cleanup
-rwxr-xr-xbin/draksambashare4
1 files changed, 2 insertions, 2 deletions
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;