MAX = 7
Elt "123" HASH = $ADDR' . $c_pattern,
'',
- $] < 5.015
- && 'The hash iterator used in dump.c sets the OOK flag');
+ ($] < 5.015) ? 'The hash iterator used in dump.c sets the OOK flag' : undef);
do_test('reference to anon sub with empty prototype',
sub(){@_},
FILL = 0
MAX = 7', '',
$] >= 5.015
- ? 0
+ ? undef
: 'The hash iterator used in dump.c sets the OOK flag');
do_test('typeglob',
COW_REFCNT = 1 # $] < 5.019007
', '',
$] >= 5.015
- ? 0
+ ? undef
: 'The hash iterator used in dump.c sets the OOK flag');
} else {
do_test('reference to hash containing Unicode',
COW_REFCNT = 1 # $] < 5.019007
', '',
$] >= 5.015
- ? 0
+ ? undef
: 'The hash iterator used in dump.c sets the OOK flag');
}
FILL = 0
MAX = 7', '',
$] >= 5.015
- ? 0
+ ? undef
: 'The hash iterator used in dump.c sets the OOK flag');
do_test('ENAME on a stash',
# Dump with arrays, hashes, and operator return values
@array = 1..3;
-do_test('Dump @array', '@array', <<'ARRAY', '', '', 1);
+do_test('Dump @array', '@array', <<'ARRAY', '', undef, 1);
SV = PVAV\($ADDR\) at $ADDR
REFCNT = 1
FLAGS = \(\)
IV = 3
ARRAY
-do_test('Dump @array,1', '@array,1', <<'ARRAY', '', '', 1);
+do_test('Dump @array,1', '@array,1', <<'ARRAY', '', undef, 1);
SV = PVAV\($ADDR\) at $ADDR
REFCNT = 1
FLAGS = \(\)
ARRAY
%hash = 1..2;
-do_test('Dump %hash', '%hash', <<'HASH', '', '', 1);
+do_test('Dump %hash', '%hash', <<'HASH', '', undef, 1);
SV = PVHV\($ADDR\) at $ADDR
REFCNT = 1
FLAGS = \(SHAREKEYS\)
HASH
$_ = "hello";
-do_test('rvalue substr', 'substr $_, 1, 2', <<'SUBSTR', '', '', 1);
+do_test('rvalue substr', 'substr $_, 1, 2', <<'SUBSTR', '', undef, 1);
SV = PV\($ADDR\) at $ADDR
REFCNT = 1
FLAGS = \(PADTMP,POK,pPOK\)