Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit9fd6d4e

Browse files
committed
Fix perl searchpath for modern perl for MSVC tools
Modern versions of perl no longer include the current directory in theperl searchpath, as it's insecure. Instead of adding the currentdirectory, we get around the problem by adding the directory where thescript lives.Problem noted by Victor Wagner.Solution adapted from buildfarm client code.Backpatch to all live versions.
1 parent6889428 commit9fd6d4e

File tree

3 files changed

+10
-0
lines changed

3 files changed

+10
-0
lines changed

‎src/tools/msvc/install.pl

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,10 @@
66
use strict;
77
use warnings;
88

9+
use File::Basename;
10+
use File::Spec;
11+
BEGIN {use lib File::Spec->rel2abs(dirname(__FILE__)); }
12+
913
use Installqw(Install);
1014

1115
# buildenv.pl is for specifying the build environment settings

‎src/tools/msvc/mkvcbuild.pl

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,10 @@
77
use strict;
88
use warnings;
99

10+
use File::Basename;
11+
use File::Spec;
12+
BEGIN {use lib File::Spec->rel2abs(dirname(__FILE__)); }
13+
1014
use Mkvcbuild;
1115

1216
chdir('..\..\..')if (-d'..\msvc' &&-d'..\..\..\src');

‎src/tools/msvc/vcregress.pl

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,8 @@
1010
use File::Basename;
1111
use File::Copy;
1212
use File::Find ();
13+
use File::Spec;
14+
BEGIN {use lib File::Spec->rel2abs(dirname(__FILE__)); }
1315

1416
use Installqw(Install);
1517

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp