Fix helpers module path lookup on newer Perl versions.
This commit is contained in:
parent
28ef59ada5
commit
6733c4182d
@ -9,6 +9,8 @@ use File::Path;
|
||||
my ($myself, $path) = fileparse($0);
|
||||
chdir($path);
|
||||
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
require 'helpers.pm';
|
||||
|
||||
#Go back to tree root.
|
||||
|
@ -29,6 +29,8 @@ chomp $ftp_path;
|
||||
my ($myself, $path) = fileparse($0);
|
||||
chdir($path);
|
||||
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
require 'helpers.pm';
|
||||
|
||||
#Switch to the output folder.
|
||||
|
@ -6,6 +6,8 @@ use File::Basename;
|
||||
my ($myself, $path) = fileparse($0);
|
||||
chdir($path);
|
||||
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
require 'helpers.pm';
|
||||
|
||||
chdir('../../../OUTPUT');
|
||||
|
@ -5,6 +5,8 @@ use File::Basename;
|
||||
my ($myself, $path) = fileparse($0);
|
||||
chdir($path);
|
||||
|
||||
use FindBin;
|
||||
use lib $FindBin::Bin;
|
||||
require 'helpers.pm';
|
||||
|
||||
chdir('..');
|
||||
|
Loading…
Reference in New Issue
Block a user