diff options
author | Karl Williamson <khw@cpan.org> | 2022-03-26 06:50:28 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-03-26 11:41:43 -0600 |
commit | 594fe94a53c71226f70f36c7e96539b8ede1d6e1 (patch) | |
tree | 584e4b5cd1bd43aa9cdda1666b20a949166bd23a /ext/Devel-Peek/t | |
parent | 9e3e2820c0b1a62da54172be27a025f57e691166 (diff) | |
download | perl-594fe94a53c71226f70f36c7e96539b8ede1d6e1.tar.gz |
Devel::Peek::Peek.t: Add missing '\' for EBCDIC
This file was recently changed, and the EBCDIC side of the change had a
typo.
Diffstat (limited to 'ext/Devel-Peek/t')
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index ecf8edf09a..8adce83e28 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 "\\\\x8C\\\\x41\\x00\\\\x9D\\\\x41"\\\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 |