Misc fixes

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 10 insertions, 3 deletions

diff --git a/migrate.pl b/migrate.pl
index 8980248c7..1de0baff6 100755
--- a/migrate.pl
+++ b/migrate.pl
@@ -11,8 +11,15 @@ use strict;
 use warnings;
 
 use File::Basename;
-BEGIN { chdir dirname($0); }
-use lib qw(. lib local/lib/perl5);
+use File::Spec;
+BEGIN {
+    require lib;
+    my $dir = File::Spec->rel2abs(dirname(__FILE__));
+    my $base = File::Spec->catdir($dir);
+    lib->import($base, File::Spec->catdir($base, "lib"), File::Spec->catdir($base, qw(local lib perl5)));
+    chdir $base;
+}
+
 use Bugzilla;
 use Bugzilla::Migrate;
 
@@ -96,4 +103,4 @@ the size of all attachments in your current bug-tracker.
 You may also need to increase the number of file handles a process is allowed
 to hold open (as the migrator will create a file handle for each attachment
 in your database). On Linux and simliar systems, you can do this as root
-by typing C<ulimit -n 65535> before running your script.
\ No newline at end of file
+by typing C<ulimit -n 65535> before running your script.