Bug 40933

chdir before execution


git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@528 6955db30-a419-402b-8a0d-67ecbb4d7f56

ldap-get-aliases.pl

@@ -9,6 +9,13 @@
 #   LDAPBaseDN   => "dc=office,dc=custis,dc=ru",
 # }
 
+use Cwd qw(abs_path);
+use File::Basename qw(dirname);
+BEGIN {
+    my ($a) = abs_path($0) =~ /^(.*)$/iso;
+    chdir dirname($a);
+}
+
 use utf8;
 use strict;