diff options
| author | Felipe Gasper <felipe@felipegasper.com> | 2022-01-28 21:35:34 -0500 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-03-04 09:17:54 -0700 |
| commit | 8131b14be4bd2c1e114ba08e4a2cbe76db0a4e22 (patch) | |
| tree | 642169683c1562fe1cc4d7fe352a6d47ec88686e /ext/Devel-Peek | |
| parent | 8a4f7e019ceeb33732fce1e96ddd60afa7ffd716 (diff) | |
| download | perl-8131b14be4bd2c1e114ba08e4a2cbe76db0a4e22.tar.gz | |
Make sv_dump() (and Devel::Peek) escape PV contents with hex, not octal.
This improves the readability of SV dumps for those more familiar with
hex than octal--which, in 2022, is probably an outsized majority of
programmers.
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index fd8d0b44d4..634ab55c85 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -527,7 +527,7 @@ do_test('string with Unicode', REFCNT = 1 FLAGS = \\((?:PADTMP,)?POK,READONLY,pPOK,UTF8\\) # $] < 5.019003 FLAGS = \\((?:PADTMP,)?POK,(?:IsCOW,)?pPOK,UTF8\\) # $] >=5.019003 - PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] + PV = $ADDR "\\\\x8C\\\\x41\\x00\\\\x9D\\\\x41"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] CUR = 5 LEN = \\d+ COW_REFCNT = 1 # $] < 5.019007 @@ -539,7 +539,7 @@ do_test('string with Unicode', REFCNT = 1 FLAGS = \\((?:PADTMP,)?POK,READONLY,pPOK,UTF8\\) # $] < 5.019003 FLAGS = \\((?:PADTMP,)?POK,(?:IsCOW,)?pPOK,UTF8\\) # $] >=5.019003 - PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] + PV = $ADDR "\\\\xC4\\\\x80\\\x00\\\\xC8\\\\x80"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] CUR = 5 LEN = \\d+ COW_REFCNT = 1 # $] < 5.019007 @@ -561,11 +561,11 @@ do_test('reference to hash containing Unicode', KEYS = 1 FILL = 1 MAX = 7 - Elt "\\\214\\\101" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR + Elt "\\\\x8C\\\\x41" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 FLAGS = \\(POK,(?:IsCOW,)?pPOK,UTF8\\) - PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\] + PV = $ADDR "\\\\x9D\\\\x41"\\\0 \[UTF8 "\\\x\{200\}"\] CUR = 2 LEN = \\d+ COW_REFCNT = 1 # $] < 5.019007 @@ -588,11 +588,11 @@ do_test('reference to hash containing Unicode', KEYS = 1 FILL = 1 MAX = 7 - Elt "\\\304\\\200" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR + Elt "\\\\xC4\\\\x80" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 FLAGS = \\(POK,(?:IsCOW,)?pPOK,UTF8\\) - PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\] + PV = $ADDR "\\\\xC8\\\\x80"\\\0 \[UTF8 "\\\x\{200\}"\] CUR = 2 LEN = \\d+ COW_REFCNT = 1 # $] < 5.019007 |