Author: pgollucci
Date: Mon Aug 22 18:48:12 2005
New Revision: 239288
URL: http://svn.apache.org/viewcvs?rev=239288&view=rev
Log:
Uncomment the Cross Reference Report Link in status_cv_dump()
This depends on B::Xref which does not come with perl.
I've seen v1.01 work so we'll set that as the minium for now.
Also add StatusXref as option to turn this feature on/off.
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=239288&r1=239287&r2=239288&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Status.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Status.pm Mon Aug 22 18:48:12 2005
@@ -62,7 +62,7 @@
b => ["", "B", 0, ],
graph => ["StatusGraph", "B::Graph", 0.03, ],
lexinfo => ["StatusLexInfo", "B::LexInfo", 0, ],
- xref => ["", "B::Xref", 0, ],
+ xref => ["StatusXref", "B::Xref", 1.01, ],
terse => ["StatusTerse", "B::Terse", 0, ],
tersesize => ["StatusTerseSize", "B::TerseSize", 0, ],
packagesize => ["StatusPackageSize", "B::TerseSize", 0, ],
@@ -434,8 +434,8 @@
push @retval, "Prototype: ", $proto || "none", "\n";
push @retval, "XSUB: ", $obj->XSUB ? "yes" : "no", "\n";
push @retval, peek_link($r, $name, $type);
- #push @retval, xref_link($r, $name);
push @retval, b_graph_link($r, $name);
+ push @retval, xref_link($r, $name) if has($r, "xref");
push @retval, b_lexinfo_link($r, $name);
push @retval, b_terse_link($r, $name);
push @retval, b_terse_size_link($r, $name);
