Fix perl searchpath for modern perl for MSVC tools
Modern versions of perl no longer include the current directory in the perl searchpath, as it's insecure. Instead of adding the current directory, we get around the problem by adding the directory where the script lives. Problem noted by Victor Wagner. Solution adapted from buildfarm client code. Backpatch to all live versions.
This commit is contained in:
parent
cc02db82c0
commit
ba103dc877
@ -6,6 +6,10 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
|
||||
use Install qw(Install);
|
||||
|
||||
# buildenv.pl is for specifying the build environment settings
|
||||
|
@ -7,6 +7,10 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
|
||||
use Mkvcbuild;
|
||||
|
||||
chdir('..\..\..') if (-d '..\msvc' && -d '..\..\..\src');
|
||||
|
@ -10,6 +10,8 @@ use Cwd;
|
||||
use File::Basename;
|
||||
use File::Copy;
|
||||
use File::Find ();
|
||||
use File::Spec;
|
||||
BEGIN { use lib File::Spec->rel2abs(dirname(__FILE__)); }
|
||||
|
||||
use Install qw(Install);
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user