X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=Makefile.PL;fp=Makefile.PL;h=ac429aaa05c6765ea0aa33b06c9d6c30229a31ce;hp=c56d8b54c77d885ecf2bf1a12cd9dd06310b55a1;hb=fcdbd2d7ac0ae467c4b58f1c464e1ced11f7b1a7;hpb=3182f33c797b4d40147a625e1c99e1b6054208a3

diff --git a/Makefile.PL b/Makefile.PL
index c56d8b5..ac429aa 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -72,22 +72,21 @@ sub check_exe {
  return $exe;
 }
 
-my ($pp, $skip_arg);
+my $pp;
 for my $i (0 .. $#ARGV) {
  my $arg = $ARGV[$i];
  if ($arg =~ /^PP=(.*)/) {
   my $val = $1;
   if (do { no warnings 'numeric'; int $val } or $val =~ /^(?:y|yes)$/i) {
    print "Forcing the pure-Perl implementation from the arguments passed to Makefile.PL.\n";
-   $pp       = 1;
-   $skip_arg = $i;
+   $pp = 1;
    last;
   }
+  $ARGV[$i] = undef;
  }
 }
-if (defined $skip_arg) {
- splice @ARGV, $skip_arg, 1;
-}
+
+@ARGV = grep defined, @ARGV;
 
 my ($cc, $ld);
 unless ($pp) {