Fix helpers module path lookup on newer Perl versions.

This commit is contained in:
Nick Hastings
2023-08-30 22:08:45 +02:00
committed by Your Name
parent 28ef59ada5
commit 6733c4182d
4 changed files with 73 additions and 65 deletions
+2
View File
@@ -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.
+2
View File
@@ -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.
+2
View File
@@ -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');
+2
View File
@@ -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('..');