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