diff options
| author | David Mitchell <davem@iabyn.com> | 2013-03-23 20:32:00 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-03-23 21:36:09 +0000 |
| commit | 2b656fcc48f28912136698c28b3bd916c42d74f8 (patch) | |
| tree | c4a1d971dedce86ca55b62508b2d49aa9f2063e5 /ext | |
| parent | dd73cf18925e32a75c77fd20b406e6bcea3fc198 (diff) | |
| download | perl-2b656fcc48f28912136698c28b3bd916c42d74f8.tar.gz | |
fix Peek.t to work with NEW COW
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 3 | ||||
| -rw-r--r-- | ext/XS-APItest/t/svpeek.t | 10 |
2 files changed, 7 insertions, 6 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 116c204078..912bf8c1cb 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -969,7 +969,8 @@ do_test('UTF-8 in a regular expression', SUBSTRS = $ADDR PPRIVATE = $ADDR OFFS = $ADDR - QR_ANONCV = 0x0 + QR_ANONCV = 0x0(?: + SAVED_COPY = 0x0)? '); done_testing(); diff --git a/ext/XS-APItest/t/svpeek.t b/ext/XS-APItest/t/svpeek.t index 59851d3bb4..c8792b5019 100644 --- a/ext/XS-APItest/t/svpeek.t +++ b/ext/XS-APItest/t/svpeek.t @@ -44,7 +44,7 @@ like (DPeek ($1), qr'^PVMG\("', ' $1'); is (DPeek (\@INC), '\AV()', '\@INC'); is (DPeek (\%INC), '\HV()', '\%INC'); is (DPeek (*STDOUT), 'GV()', '*STDOUT'); - is (DPeek (sub {}), '\CV(__ANON__)', 'sub {}'); + is (DPeek (sub {}), '\CV("__ANON__")', 'sub {}'); { our ($VAR, @VAR, %VAR); open VAR, "<", $^X or die "Can't open $^X: $!"; @@ -67,18 +67,18 @@ like (DPeek ($1), qr'^PVMG\("', ' $1'); is (DPeek ($VAR), 'PVIV("a\n\342\202\254"\0) [UTF8 "a\n\x{20ac}"]', ' $VAR "a\x0a\x{20ac}"'); $VAR = sub { "VAR" }; - is (DPeek ($VAR), '\CV(__ANON__)', ' $VAR sub { "VAR" }'); - is (DPeek (\$VAR), '\\\CV(__ANON__)', '\$VAR sub { "VAR" }'); + is (DPeek ($VAR), '\CV("__ANON__")', ' $VAR sub { "VAR" }'); + is (DPeek (\$VAR), '\\\CV("__ANON__")', '\$VAR sub { "VAR" }'); $VAR = 0; - is (DPeek (\&VAR), '\CV(VAR)', '\&VAR'); + is (DPeek (\&VAR), '\CV("VAR")', '\&VAR'); is (DPeek ( *VAR), 'GV()', ' *VAR'); is (DPeek (*VAR{GLOB}), '\GV()', ' *VAR{GLOB}'); like (DPeek (*VAR{SCALAR}), qr'\\PV(IV|MG)\(0\)',' *VAR{SCALAR}'); is (DPeek (*VAR{ARRAY}), '\AV()', ' *VAR{ARRAY}'); is (DPeek (*VAR{HASH}), '\HV()', ' *VAR{HASH}'); - is (DPeek (*VAR{CODE}), '\CV(VAR)', ' *VAR{CODE}'); + is (DPeek (*VAR{CODE}), '\CV("VAR")', ' *VAR{CODE}'); is (DPeek (*VAR{IO}), '\IO()', ' *VAR{IO}'); is (DPeek (*VAR{FORMAT}),$]<5.008?'SV_UNDEF':'\FM()',' *VAR{FORMAT}'); } |