Update B-Debug to CPAN version 1.24

  [DELTA]

1.24 2016-12-11 rurban
  * add 5.25.6 support: split optimization

3 files changed, 7 insertions, 10 deletions

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index de7942cb5a..e5a2064685 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -173,7 +173,7 @@ use File::Glob qw(:case);
     },
 
     'B::Debug' => {
-        'DISTRIBUTION' => 'RURBAN/B-Debug-1.23.tar.gz',
+        'DISTRIBUTION' => 'RURBAN/B-Debug-1.24.tar.gz',
         'FILES'        => q[cpan/B-Debug],
         'EXCLUDED'     => ['t/pod.t'],
     },
diff --git a/cpan/B-Debug/Debug.pm b/cpan/B-Debug/Debug.pm
index fd66405bac..e295635d35 100644
--- a/cpan/B-Debug/Debug.pm
+++ b/cpan/B-Debug/Debug.pm
@@ -1,6 +1,6 @@
 package B::Debug;
 
-our $VERSION = '1.23';
+our $VERSION = '1.24';
 
 use strict;
 require 5.006;
diff --git a/cpan/B-Debug/t/debug.t b/cpan/B-Debug/t/debug.t
index 0c79adbc24..0f60b95a5b 100644
--- a/cpan/B-Debug/t/debug.t
+++ b/cpan/B-Debug/t/debug.t
@@ -56,30 +56,27 @@ my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';
 if ($is_thread) {
     $b=<<EOF;
 leave enter nextstate label leaveloop enterloop null and defined null
-threadsv readline gv lineseq nextstate aassign null pushmark split
+threadsv readline gv lineseq nextstate aassign null pushmark split pushre
 threadsv const null pushmark rvav gv nextstate subst const unstack
 EOF
 } elsif ($] >= 5.021005) {
   $b=<<EOF;
 leave enter nextstate label leaveloop enterloop null and defined null null
-gvsv readline gv lineseq nextstate split null
+gvsv readline gv lineseq nextstate split pushre null
 gvsv const nextstate subst const unstack
 EOF
 } else {
   $b=<<EOF;
 leave enter nextstate label leaveloop enterloop null and defined null null
-gvsv readline gv lineseq nextstate aassign null pushmark split null
+gvsv readline gv lineseq nextstate aassign null pushmark split pushre null
 gvsv const null pushmark rvav gv nextstate subst const unstack
 EOF
 }
-#$b .= " nextstate" if $] < 5.008001; # ??
 $b=~s/\n/ /g; $b=~s/\s+/ /g;
 $b =~ s/\s+$//;
+$b =~ s/split pushre/split/ if $] >= 5.025006;
 
-TODO: {
-  local $TODO = '5.21.5 split optimization' if $] == 5.021005;
-  is($a, $b);
-}
+is($a, $b);
 
 like(B::Debug::_printop(B::main_root),  qr/LISTOP\s+\[OP_LEAVE\]/);
 like(B::Debug::_printop(B::main_start), qr/OP\s+\[OP_ENTER\]/);