diff options
Diffstat (limited to 'util/multi.pl')
-rwxr-xr-x | util/multi.pl | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/util/multi.pl b/util/multi.pl index 010951a2..1ad92ef4 100755 --- a/util/multi.pl +++ b/util/multi.pl @@ -1,24 +1,13 @@ #!/usr/bin/perl - -# -# Multi - core namespace for initialisation and global variables -# - -package Multi; - use strict; use warnings; use Cwd 'abs_path'; +my $ROOT; +BEGIN { ($ROOT = abs_path $0) =~ s{/util/multi\.pl$}{} } -our $ROOT; -BEGIN { ($ROOT = abs_path $0) =~ s{/util/multi\.pl$}{}; *VNDB::ROOT = \$ROOT } -use lib $VNDB::ROOT.'/lib'; - +use lib $ROOT.'/lib'; use Multi::Core; -require $VNDB::ROOT.'/data/global.pl'; Multi::Core->run(); - - |