From 6c2d47e323febc08fe27a2af20f1af0fb7f63f1d Mon Sep 17 00:00:00 2001
From: vfilippov <vfilippov@6955db30-a419-402b-8a0d-67ecbb4d7f56>
Date: Fri, 13 Nov 2009 11:12:06 +0000
Subject: [PATCH] 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 | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ldap-get-aliases.pl b/ldap-get-aliases.pl
index cd32d7703..c818047e0 100644
--- a/ldap-get-aliases.pl
+++ b/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;