perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r280266 - /perl/modperl/trunk/lib/Apache2/Status.pm
Date Mon, 12 Sep 2005 05:57:12 GMT
Author: pgollucci
Date: Sun Sep 11 22:57:10 2005
New Revision: 280266

URL: http://svn.apache.org/viewcvs?rev=280266&view=rev
Log:
oops!, this needs to be after the my $module line.


Modified:
    perl/modperl/trunk/lib/Apache2/Status.pm

Modified: perl/modperl/trunk/lib/Apache2/Status.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Status.pm?rev=280266&r1=280265&r2=280266&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Status.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Status.pm Sun Sep 11 22:57:10 2005
@@ -210,11 +210,11 @@
         next if $file =~ m:^/:;
         next unless $file =~ m:\.pm:;
         next unless $INC{$file}; #e.g. fake Apache2/TieHandle.pm
-        next if $module eq 'mod_perl';
 
         no strict 'refs';
         (my $module = $file) =~ s,/,::,g;
         $module =~ s,\.pm$,,;
+        next if $module eq 'mod_perl';
         my $v = ${"$module\:\:VERSION"} || '0.00';
         push @retval, (
             "<tr>", 



Mime
View raw message