diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-12-19 18:55:43 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-01-03 11:05:09 +0000 |
| commit | 235cc2e3b03f7c8478aa5ccdbe27e0aaf735bb46 (patch) | |
| tree | edd08b576231ab95592753390c5dcb39f0338063 /ext/Devel | |
| parent | 089197fafbcea8edb9a8f7b55a201115f3f2010a (diff) | |
| download | perl-235cc2e3b03f7c8478aa5ccdbe27e0aaf735bb46.tar.gz | |
remove flag SvPADBUSY
Message-ID: <20021219185543.C9530@fdgroup.com>
p4raw-id: //depot/perl@18409
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index a1ed214d19..697ac4c679 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -85,7 +85,7 @@ do_test( 5, $c = 456, 'SV = IV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(PADBUSY,PADMY,IOK,pIOK\\) + FLAGS = \\(PADMY,IOK,pIOK\\) IV = 456'); # If perl is built with PERL_PRESERVE_IVUV then maths is done as integers @@ -206,7 +206,7 @@ do_test(13, RV = $ADDR SV = PVCV\\($ADDR\\) at $ADDR REFCNT = 2 - FLAGS = \\(PADBUSY,PADMY,POK,pPOK,ANON,WEAKOUTSIDE\\) + FLAGS = \\(PADMY,POK,pPOK,ANON,WEAKOUTSIDE\\) IV = 0 NV = 0 PROTOTYPE = "" @@ -327,7 +327,7 @@ do_test(18, chr(256).chr(0).chr(512), 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\) + FLAGS = \\((?:PADTMP,)?POK,READONLY,pPOK,UTF8\\) PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] CUR = 5 LEN = \\d+'); @@ -336,7 +336,7 @@ do_test(18, chr(256).chr(0).chr(512), 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\) + FLAGS = \\((?:PADTMP,)?POK,READONLY,pPOK,UTF8\\) PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] CUR = 5 LEN = \\d+'); @@ -402,7 +402,7 @@ do_test(20, $x, 'SV = PVMG\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(PADBUSY,PADMY,SMG,POK,pPOK\\) + FLAGS = \\(PADMY,SMG,POK,pPOK\\) IV = 0 NV = 0 PV = $ADDR ""\\\0 |