diff options
Diffstat (limited to 'migrate.pl')
-rwxr-xr-x | migrate.pl | 13 |
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. |