[PATCH] update Apache2::Status B::Terse is derecated in favor of B::Concise

["Philip M. Gollucci" <pg...@p6m7g8.com>]

Hi,

After reading more documentation, I can fix even one more link.  I believe thats all of them!!!

o s/slow/basic/ As neither B::Terse nor B::Concise support it
   I believe its B::TerseSize that does slow
o as they are B:: modules, they take "-arg" parameters like -exec, -basic, -terse
   not exec, basic, terse, etc....
o from the B::Terse perldoc from 5.8.7
        This version of B::Terse is really just a wrapper that calls B::Concise
        with the -terse option. It is provided for compatibility with old
        scripts (and habits) but using B::Concise directly is now recommended
        instead.
    so, I'll call B::Concise directly.


Index: Status.pm
===================================================================
--- Status.pm   (revision 234145)
+++ Status.pm   (working copy)
@@ -468,7 +468,7 @@
      $r->print(${ $lexi->dumper($info) });
  }

-my %b_terse_exp = ('slow' => 'syntax', 'exec' => 'execution');
+my %b_terse_exp = ('basic' => 'syntax', 'exec' => 'execution');

  sub b_terse_link {
      my($r, $name) = @_;
@@ -477,7 +477,7 @@

      my $script = $r->location;
      my @retval;
-    for (qw(exec slow)) {
+    for (keys %b_terse_exp) {
          my $exp = "$b_terse_exp{$_} order";
          push @retval,
              qq(\n<a href="$script/$_/$name?noh_b_terse">Syntax Tree Dump ($exp)</a>\n);
@@ -498,7 +498,7 @@
      # 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)->() };
+    eval { B::Concise::compile("-terse", "-$arg", $name)->() };
      if ($@) {
          $r->print("B::Terse has failed: $@");
      }
@@ -511,7 +511,7 @@

      my $script = $r->location;
      my @retval;
-    for (qw(exec slow)) {
+    for (keys %b_terse_exp) {
          my $exp = "$b_terse_exp{$_} order";
          push @retval,
              qq(\n<a href="$script/$_/$name?noh_b_terse_size">Syntax Tree Size ($exp)</a>\n);

-- 
END
------------------------------------------------------------
     What doesn't kill us can only make us stronger.
                 Nothing is impossible.
				
Philip M. Gollucci (pgollucci@p6m7g8.com) 301.254.5198
Consultant / http://p6m7g8.net/Resume/
Senior Developer / Liquidity Services, Inc.
   http://www.liquidityservicesinc.com
        http://www.liquidation.com
        http://www.uksurplus.com
        http://www.govliquidation.com
        http://www.gowholesale.com


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org