update smbldap-tool sscripts from Jérôme Tournier

(This used to be commit c1546a5311a4e9ad2d6566e71e11c6d5f8f120a9)

1 files changed, 4 insertions, 1 deletions

diff --git a/examples/LDAP/smbldap-tools/smbldap-groupadd.pl b/examples/LDAP/smbldap-tools/smbldap-groupadd.pl
index ee804b34d3..91cd2dad53 100755
--- a/examples/LDAP/smbldap-tools/smbldap-groupadd.pl
+++ b/examples/LDAP/smbldap-tools/smbldap-groupadd.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl -w
 
 #  This code was developped by IDEALX (http://IDEALX.org/) and
 #  contributors (their names can be found in the CONTRIBUTORS file).
@@ -23,6 +23,9 @@
 # Purpose of smbldap-groupadd : group (posix) add
 
 use strict;
+use FindBin;
+use FindBin qw($RealBin);
+use lib "$RealBin/";
 use smbldap_tools;
 
 use Getopt::Std;