[svn:modperl-modules] rev 248 - Apache-Peek/trunk

Author: [email protected]
Date: Sat Jul  9 16:38:03 2005
New Revision: 248

Modified:
   Apache-Peek/trunk/Makefile.PL
Log:
small fix for @ARGV handling


Modified: Apache-Peek/trunk/Makefile.PL
==============================================================================
--- Apache-Peek/trunk/Makefile.PL	(original)
+++ Apache-Peek/trunk/Makefile.PL	Sat Jul  9 16:38:03 2005
@@ -148,11 +148,17 @@ sub prepare_build ($$) {
 sub get_mp_ver() {
 
   my $flag = 0;
-  foreach my $arg (@ARGV) {
+  my @args = ();
+
+  while (my $arg = shift @ARGV) {
     if ($arg =~ /^MOD_PERL=([12])$/) {
       $flag = $1;
     }
+    else {
+      push @args, $arg;
+    }
   }
+  @ARGV = @args;
 
   # check %ENV
   my $env = exists $ENV{MOD_PERL} ? $ENV{MOD_PERL} : 0;
@@ -183,6 +189,7 @@ EOF
   }
   else {
     eval { require mod_perl };
+    no warnings qw(uninitialized);
     if ($mod_perl::VERSION > 1.99 || $@) {
       die "You don't seem to have mod_perl 1.0 installed";
     }