Misc fixes

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

1 files changed, 9 insertions, 2 deletions

diff --git a/migrate.pl b/migrate.pl
index 907e0cab5..0c67df42f 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;