Author: pgollucci
Date: Mon Aug 22 18:38:49 2005
New Revision: 239285
URL: http://svn.apache.org/viewcvs?rev=239285&view=rev
Log:
B::Terse is depracted in favor of B::Concise.
B::Terse is left around, but as a wrapper around B::Concise
with style -terse.
B::Concise doesn't handle 'slow'. The replacement is basic.
B::Concise take '-arg' rather then 'arg' as aruments.
This fixes the Syntax Tree Dump (syntax order)
link in status_cv_dump().
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=239285&r1=239284&r2=239285&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Status.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Status.pm Mon Aug 22 18:38:49 2005
@@ -468,7 +468,7 @@
$r->print(${ $lexi->dumper($info) });
}
-my %b_terse_exp = ('slow' => 'syntax', 'exec' => 'execution');
+my %b_terse_exp = ('slow' => 'syntax', 'exec' => 'execution', basic =>
'syntax');
sub b_terse_link {
my($r, $name) = @_;
@@ -477,7 +477,7 @@
my $script = $r->location;
my @retval;
- for (qw(exec slow)) {
+ for (qw(exec basic)) {
my $exp = "$b_terse_exp{$_} order";
push @retval,
qq(\n<a href="$script/$_/$name?noh_b_terse">Syntax Tree Dump
($exp)</a>\n);
@@ -498,9 +498,10 @@
# XXX: blead perl dumps things to STDERR, though the same version
# works fine with 1.27
# B::Concise couldn't parse XS code before perl patch 24681 (perl 5.9.3)
- eval { B::Terse::compile($arg, $name)->() };
+ # B::Terse is deprecated and just a wrapper around B::Concise now adays
+ eval { B::Concise::compile("-terse", "-$arg", $name)->() };
if ($@) {
- $r->print("B::Terse has failed: $@");
+ $r->print("B::Concise has failed: $@");
}
}
