You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/09/12 07:57:12 UTC

svn commit: r280266 - /perl/modperl/trunk/lib/Apache2/Status.pm

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>",