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