require 'test.pl'; # we use runperl from 'test.pl', so can't use Test::More
}
-plan tests => 157;
+plan tests => 158;
require_ok("B::Concise");
like($out, qr/FUNC: \*FOO::bar/,
"stash rendering works on inlined package");
+# Test that consecutive nextstate ops are not nulled out when PERLDBf_NOOPT
+# is set.
+# XXX Does this test belong here?
+
+$out = runperl ( switches => ["-MO=Concise"],
+ prog => 'BEGIN{$^P = 0x04} 1 if 0; print',
+ stderr => 1 );
+like $out, qr/nextstate.*nextstate/s,
+ 'nulling of nextstate-nextstate happeneth not when $^P | PERLDBf_NOOPT';
+
__END__
/* Two NEXTSTATEs in a row serve no purpose. Except if they happen
to carry two labels. For now, take the easier option, and skip
this optimisation if the first NEXTSTATE has a label. */
- if (!CopLABEL((COP*)o)) {
+ if (!CopLABEL((COP*)o) && !PERLDB_NOOPT) {
OP *nextop = o->op_next;
while (nextop && nextop->op_type == OP_NULL)
nextop = nextop->op_next;