You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/08/23 04:56:26 UTC
svn commit: r239301 - /perl/modperl/trunk/lib/Apache2/Status.pm
Author: pgollucci
Date: Mon Aug 22 19:56:24 2005
New Revision: 239301
URL: http://svn.apache.org/viewcvs?rev=239301&view=rev
Log:
hooks has not been in mp2 version to date. Time to remove it.
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=239301&r1=239300&r2=239301&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Status.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Status.pm Mon Aug 22 19:56:24 2005
@@ -42,11 +42,7 @@
env => "Environment",
sig => "Signal Handlers",
myconfig => "Perl Configuration",
- hooks => "Enabled mod_perl Hooks",
);
-# XXX: is $status{hooks} supported with any mp2 version?
-# If not, why not just remove it from the above initialization?
-delete $status{'hooks'} if $mod_perl2::VERSION >= 1.9901;
delete $status{'sig'} if IS_WIN32;
# XXX: needs porting
@@ -195,22 +191,6 @@
my($r) = @_;
require Apache2::PerlSections;
["<pre>", Apache2::PerlSections->dump, "</pre>"];
-}
-
-sub status_hooks {
- my($r) = @_;
- # XXX: hooks list access doesn't exist yet in 2.0
- require mod_perl;
- require mod_perl_hooks;
- my @retval = qw(<table>);
- my @list = mod_perl::hooks();
- for my $hook (sort @list) {
- my $on_off =
- mod_perl::hook($hook) ? "<b>Enabled</b>" : "<i>Disabled</i>";
- push @retval, "<tr><td>$hook</td><td>$on_off</td></tr>\n";
- }
- push @retval, qw(</table>);
- \@retval;
}
sub status_inc {