perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@p6m7g8.com>
Subject Apache2::Status - Loaded Modules output
Date Fri, 09 Sep 2005 09:19:57 GMT
Hi,

Because of the lines in lib/mod_perl2.pm
# this stuff is here to assist back compat
# basically, if you
#  PerlModule mod_perl2
# or take similar steps to load mod_perl2 at
# startup you are protected against loading mod_perl.pm
# (either 1.0 or 1.99) at a later time by accident.
$mod_perl::VERSION = $mod_perl2::VERSION;
$INC{"mod_perl.pm"} = __FILE__;

Apache2::Status Loaded Modules output displays
mod_perl	2.000002	Mon Aug 22 22:55:02 2005	/usr/home/pgollucci/dev/apps/mod_perl-2.0.2/lib/mod_perl2.pm
mod_perl2	2.000002	Mon Aug 22 22:55:02 2005	/usr/home/pgollucci/dev/apps/mod_perl-2.0.2/lib/mod_perl2.pm

Which is confusing to me at least.

This suppresses the printing of mod_perl.pm which will be especially confusing if you have
mp1 and mp2 in the same lib tree.

Index: Status.pm
===================================================================
--- Status.pm   (revision 279713)
+++ Status.pm   (working copy)
@@ -210,6 +210,7 @@
          next if $file =~ m:^/:;
          next unless $file =~ m:\.pm:;
          next unless $INC{$file}; #e.g. fake Apache2/TieHandle.pm
+        next if $file eq 'mod_perl.pm';

          no strict 'refs';
          (my $module = $file) =~ s,/,::,g;


-- 
END
------------------------------------------------------------
     What doesn't kill us can only make us stronger.
                 Nothing is impossible.
				
Philip M. Gollucci (pgollucci@p6m7g8.com) 301.254.5198
Consultant / http://p6m7g8.net/Resume/
Senior Developer / Liquidity Services, Inc.
   http://www.liquidityservicesinc.com
        http://www.liquidation.com
        http://www.uksurplus.com
        http://www.govliquidation.com
        http://www.gowholesale.com


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message