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 {