Update B-Debug’s tests for split optimisation

[perl5.git] / cpan / B-Debug / t / debug.t

diff --git a/cpan/B-Debug/t/debug.t b/cpan/B-Debug/t/debug.t
index e523d3d..0af3bd9 100644 (file)
--- a/cpan/B-Debug/t/debug.t
+++ b/cpan/B-Debug/t/debug.t
@@ -59,6 +59,12 @@ leave enter nextstate label leaveloop enterloop null and defined null
 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 pushre null
+gvsv const nextstate subst const unstack
+EOF
 } else {
   $b=<<EOF;
 leave enter nextstate label leaveloop enterloop null and defined null null