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:
[EMAIL PROTECTED] /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 ([EMAIL PROTECTED]) 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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
