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 03:24:15 UTC
svn commit: r239283 - /perl/modperl/trunk/lib/Apache2/Status.pm
Author: pgollucci
Date: Mon Aug 22 18:24:12 2005
New Revision: 239283
URL: http://svn.apache.org/viewcvs?rev=239283&view=rev
Log:
Fix the Peek Dump link
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=239283&r1=239282&r2=239283&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Status.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Status.pm Mon Aug 22 18:24:12 2005
@@ -66,7 +66,7 @@
terse => ["StatusTerse", "B::Terse", 0, ],
tersesize => ["StatusTerseSize", "B::TerseSize", 0, ],
packagesize => ["StatusPackageSize", "B::TerseSize", 0, ],
- peek => ["StatusPeek", "Apache2::Peek", 0, ], # XXX: version?
+ peek => ["StatusPeek", "Apache::Peek", 1.03, ],
);
sub has {
@@ -649,7 +649,7 @@
my($name, $type) = (split "/", $r->uri)[-2,-1];
$type =~ s/^FUNCTION$/CODE/;
$r->print("Peek Dump of $name $type\n\n");
- Apache2::Peek::Dump(*{$name}{$type});
+ Apache::Peek::Dump(*{$name}{$type});
}
sub xref_link {