Prevent possibly spurious error when running perl -cw

diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
index 593732fd95b853eeef62718ac1d3ed8834c6f00b..d0d7d464952a19cf3cddfc13dac2aebbf10e89e3 100644 (file)
--- 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 '