Return-Path: Delivered-To: apmail-perl-dev-archive@www.apache.org Received: (qmail 8026 invoked from network); 12 Sep 2005 03:24:47 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur.apache.org with SMTP; 12 Sep 2005 03:24:47 -0000 Received: (qmail 80764 invoked by uid 500); 12 Sep 2005 03:24:47 -0000 Delivered-To: apmail-perl-dev-archive@perl.apache.org Received: (qmail 80748 invoked by uid 500); 12 Sep 2005 03:24:46 -0000 Mailing-List: contact dev-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: List-Post: List-Id: Delivered-To: mailing list dev@perl.apache.org Received: (qmail 80733 invoked by uid 99); 12 Sep 2005 03:24:46 -0000 Received: from asf.osuosl.org (HELO asf.osuosl.org) (140.211.166.49) by apache.org (qpsmtpd/0.29) with ESMTP; Sun, 11 Sep 2005 20:24:46 -0700 X-ASF-Spam-Status: No, hits=-0.0 required=10.0 tests=SPF_HELO_PASS X-Spam-Check-By: apache.org Received-SPF: neutral (asf.osuosl.org: local policy) Received: from [65.196.108.169] (HELO mail.liquidation.com) (65.196.108.169) by apache.org (qpsmtpd/0.29) with ESMTP; Sun, 11 Sep 2005 20:24:58 -0700 Received: from [10.0.0.142] (everything.liquidation.com [65.196.108.171]) (authenticated bits=0) by mail.liquidation.com (8.12.9/8.12.9) with ESMTP id j8C3WjuJ017040 (version=TLSv1/SSLv3 cipher=RC4-MD5 bits=128 verify=NO); Sun, 11 Sep 2005 23:32:45 -0400 Message-ID: <4324F4F2.8080800@p6m7g8.com> Date: Sun, 11 Sep 2005 23:24:34 -0400 From: "Philip M. Gollucci" User-Agent: Mozilla Thunderbird 1.0.2 (X11/20050404) X-Accept-Language: en-us, en MIME-Version: 1.0 To: Stas Bekman CC: mod_perl Dev Subject: Re: Apache2::Status - Loaded Modules output References: <432153BD.7050506@p6m7g8.com> <4321BC3F.7040108@stason.org> In-Reply-To: <4321BC3F.7040108@stason.org> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-MailScanner-Information: Please contact the ISP for more information X-MailScanner: Found to be clean X-MailScanner-SpamCheck: not spam (whitelisted), SpamAssassin (score=-4.865, required 5, AWL 0.04, BAYES_00 -4.90) X-Virus-Checked: Checked by ClamAV on apache.org X-Spam-Rating: minotaur.apache.org 1.6.2 0/1000/N > 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