/mge;
$pattern =~ s/^\h+COW_REFCNT = .*\n//mg
if $Config{ccflags} =~
- /-DPERL_(?:OLD_COPY_ON_WRITE|NO_COW)/;
-
+ /-DPERL_(?:OLD_COPY_ON_WRITE|NO_COW)/
+ || $] < 5.019003;
print $pattern, "\n" if $DEBUG;
my ($dump, $dump2) = split m/\*\*\*\*\*\n/, scalar <IN>;
print $dump, "\n" if $DEBUG;
PV = $ADDR "foo"\\\0
CUR = 3
LEN = \\d+
- COW_REFCNT = 1 # $] >=5.019003
+ COW_REFCNT = 1
');
do_test('immediate constant (string)',
PV = $ADDR "bar"\\\0
CUR = 3
LEN = \\d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
');
do_test('assignment of immediate constant (integer)',
PV = $ADDR "foo"\\\0
CUR = 3
LEN = \\d+
- COW_REFCNT = 1 # $] >=5.019003
+ COW_REFCNT = 1
');
my $c_pattern;
PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
CUR = 5
LEN = \\d+
- COW_REFCNT = 1 # $] >=5.019003
+ COW_REFCNT = 1
');
} else {
do_test('string with Unicode',
PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\]
CUR = 5
LEN = \\d+
- COW_REFCNT = 1 # $] >=5.019003
+ COW_REFCNT = 1
');
}
PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\]
CUR = 2
LEN = \\d+
- COW_REFCNT = 1 # $] < 5.009
+ COW_REFCNT = 1
', '',
$] > 5.009
? $] >= 5.015
PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\]
CUR = 2
LEN = \\d+
- COW_REFCNT = 1 # $] >= 5.019003
+ COW_REFCNT = 1
', '',
$] > 5.009
? $] >= 5.015
PV = $ADDR "Perl rules"\\\0
CUR = 10
LEN = \\d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
GVGV::GV = $ADDR\\t"main" :: "const"
FILE = ".*\\b(?i:peek\\.t)"
DEPTH = 0(?:
PV = $ADDR "(?:Rules|Foamy)"\\\0
CUR = \d+
LEN = \d+
- COW_REFCNT = 1 # $] >=5.019003
+ COW_REFCNT = 1
){2}');
$b = keys %small;
PV = $ADDR "(?:Rules|Foamy)"\\\0
CUR = \d+
LEN = \d+
- COW_REFCNT = 1 # $] >=5.019003
+ COW_REFCNT = 1
){2}');
$b = %small;
PV = $ADDR "(?:Rules|Foamy)"\\\0
CUR = \d+
LEN = \d+
- COW_REFCNT = 1 # $] >=5.019003
+ COW_REFCNT = 1
){2}');
# This should immediately start with the FILL cached correctly.
PV = $ADDR "rules"\\\0
CUR = 5
LEN = \d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
');
eval 'index "", perl';
PV = $ADDR "rules"\\\0
CUR = 5
LEN = \d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
MAGIC = $ADDR
MG_VIRTUAL = &PL_vtbl_regexp
MG_TYPE = PERL_MAGIC_bm\\(B\\)
PV = $ADDR "rules"\\\0
CUR = 5
LEN = \d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
MAGIC = $ADDR
MG_VIRTUAL = &PL_vtbl_regexp
MG_TYPE = PERL_MAGIC_bm\\(B\\)
PV = $ADDR "foamy"\\\0
CUR = 5
LEN = \d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
');
is(study beer, 1, "Our studies were successful");
PV = $ADDR "foamy"\\\0
CUR = 5
LEN = \d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
');
my $want = 'SV = PVMG\\($ADDR\\) at $ADDR
PV = $ADDR "foamy"\\\0
CUR = 5
LEN = \d+
- COW_REFCNT = 0 # $] >=5.019003
+ COW_REFCNT = 0
MAGIC = $ADDR
MG_VIRTUAL = &PL_vtbl_regexp
MG_TYPE = PERL_MAGIC_bm\\(B\\)