svn commit: r436718 - /perl/Apache-SizeLimit/trunk/Makefile.PL

[pg...@apache.org]

Author: pgollucci
Date: Fri Aug 25 01:43:32 2006
New Revision: 436718

URL: http://svn.apache.org/viewvc?rev=436718&view=rev
Log:
o simply argument processing loop in wanted_mp_generation()
o s/mp2/mp1/ in a comment


Modified:
    perl/Apache-SizeLimit/trunk/Makefile.PL

Modified: perl/Apache-SizeLimit/trunk/Makefile.PL
URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/Makefile.PL?rev=436718&r1=436717&r2=436718&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/Makefile.PL (original)
+++ perl/Apache-SizeLimit/trunk/Makefile.PL Fri Aug 25 01:43:32 2006
@@ -150,17 +150,11 @@
     # check if we have a command line specification
     # flag: 0: unknown, 1: mp1, 2: mp2
     my $flag = 0;
-    my @pass;
-    while (@ARGV) {
-        my $key = shift @ARGV;
+    foreach my $key (@ARGV) {
         if ($key =~ /^MOD_PERL=(\d)$/) {
             $flag = $1;
         }
-        else {
-            push @pass, $key;
-        }
     }
-    @ARGV = @pass;
 
     # check %ENV
     my $env = exists $ENV{MOD_PERL} ? $ENV{MOD_PERL} : 0;
@@ -183,7 +177,7 @@
         # if still unknown try to require mod_perl.pm
         eval { require mod_perl };
         if ($@) {
-            # if we don't have mp2, check for mp2
+            # if we don't have mp1, check for mp2
             eval { require mod_perl2 } if ($@);
             unless ($@) {
                 $wanted = 2;