Fix helpers module path lookup on newer Perl versions.

This commit is contained in:
Nick Hastings 2021-12-13 13:16:14 -05:00 committed by Your Name
parent 28ef59ada5
commit 6733c4182d
4 changed files with 73 additions and 65 deletions

View File

@ -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.

View File

@ -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.

View File

@ -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');

View File

@ -5,6 +5,8 @@ use File::Basename;
my ($myself, $path) = fileparse($0);
chdir($path);
use FindBin;
use lib $FindBin::Bin;
require 'helpers.pm';
chdir('..');