diff options
| author | Andrew Dunstan | 2018-05-18 14:46:38 +0000 |
|---|---|---|
| committer | Andrew Dunstan | 2018-05-18 14:47:41 +0000 |
| commit | 3dacd9bf32873c80045a2b758d64c031d70dac83 (patch) | |
| tree | 2d1533e529e4df9b9aa9f974892822276473fc05 /src/tools | |
| parent | 9effb63e0dd12b0704cd8e11106fe08ff5c9d685 (diff) | |
Prevent possibly spurious error when running perl -cw
Diffstat (limited to 'src/tools')
| -rw-r--r-- | src/tools/msvc/Mkvcbuild.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm index 593732fd95b..d0d7d464952 100644 --- a/src/tools/msvc/Mkvcbuild.pm +++ b/src/tools/msvc/Mkvcbuild.pm @@ -691,7 +691,7 @@ sub mkvcbuild (my $xsc = $xs) =~ s/\.xs/.c/; if (Solution::IsNewer("$plperlsrc$xsc", "$plperlsrc$xs")) { - my $xsubppdir = first { -e "$_/ExtUtils/xsubpp" } @INC; + my $xsubppdir = first { -e "$_/ExtUtils/xsubpp" } (@INC); print "Building $plperlsrc$xsc...\n"; system( $solution->{options}->{perl} . '/bin/perl ' |