diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-27 02:20:06 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-27 02:20:06 +0000 |
commit | e6abe6d8247cf3e8d3e08a706b164c5f207b68b6 (patch) | |
tree | 988d6298b0cc73076787c228019ce79e2ece8767 /ext/Devel | |
parent | b5807cdb4dcca15943f9a9e9da29b721ee5fec38 (diff) | |
download | perl-e6abe6d8247cf3e8d3e08a706b164c5f207b68b6.tar.gz |
Dump SvUTF8(sv)s also as \x{...}.
TODO: dump the SvUTF8() hash keys similarly.
p4raw-id: //depot/perl@12243
Diffstat (limited to 'ext/Devel')
-rw-r--r-- | ext/Devel/Peek/Peek.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index be7bf820d7..cd2dc6f8fe 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -12,7 +12,7 @@ BEGIN { use Devel::Peek; -print "1..17\n"; +print "1..18\n"; our $DEBUG = 0; open(SAVERR, ">&STDERR") or die "Can't dup STDERR: $!"; @@ -317,6 +317,15 @@ do_test(17, FLAGS = $ADDR EGV = $ADDR\\t"a"'); +do_test(18, + chr(256).chr(0).chr(512), +'SV = PV\\($ADDR\\) at $ADDR + REFCNT = 1 + FLAGS = \\(PADBUSY,PADTMP,POK,READONLY,pPOK,UTF8\\) + PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 "\\\x\{100\}\\\x\{0\}\\\x\{200\}" + CUR = 5 + LEN = 6'); + END { 1 while unlink("peek$$"); } |