perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@p6m7g8.com>
Subject Re: Apache2::Status - Loaded Modules output
Date Mon, 12 Sep 2005 03:24:34 GMT
> use File::Spec::Functions;
> $INC{"mod_perl.pm"} = File::Spec::Functions::devnull();
I'm fine with the above, but I still think in this particular case, Apache2::Status needs
a change too
now, we would display
mod_perl	2.000002	Sun Sep 11 23:18:13 2005	/dev/null
mod_perl2	2.000002	Sun Sep 11 23:16:09 2005	/usr/home/pgollucci/dev/apps/mod_perl-2.0.2/prefork/lib/mod_perl2.pm

My whole attempt was to *remove* the mod_perl line all together.

So how about:

pgollucci@pgollucci.internal.liquidation.com /home/pgollucci/dev/repos/asf/perl/modperl/trunk/lib
rv=0 150 >svn diff 
mod_perl2.pm Apache2/Status.pm
Index: mod_perl2.pm
===================================================================
--- mod_perl2.pm        (revision 279773)
+++ mod_perl2.pm        (working copy)
@@ -16,6 +16,7 @@

  use 5.006;
  use strict;
+use File::Spec::Functions;

  BEGIN {
      our $VERSION = "2.000002";
@@ -48,7 +49,7 @@
  # 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__;
+$INC{"mod_perl.pm"} = File::Spec::Functions::devnull();

  1;
  __END__
Index: Apache2/Status.pm
===================================================================
--- Apache2/Status.pm   (revision 279773)
+++ Apache2/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 $module eq 'mod_perl';

          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