diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-01-04 05:26:00 -0600 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2003-01-06 06:43:11 +0000 |
| commit | 143a3e5ef1446bbe436a43486e7681c31b0c8407 (patch) | |
| tree | b63366b39c4f63f0d734525b3d966c3cbabaa96d /ext/Devel | |
| parent | 5ce10329cdf928fb6a8fbddb793336dc3ff530e6 (diff) | |
| download | perl-143a3e5ef1446bbe436a43486e7681c31b0c8407.tar.gz | |
VMS test adjustments
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E171928.1040100@mac.com>
p4raw-id: //depot/perl@18451
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 697ac4c679..687dff042a 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -433,8 +433,14 @@ do_test(21, MG_TYPE = PERL_MAGIC_envelem\\(e\\) (?: MG_FLAGS = 0x01 TAINTEDDIR -)? MG_LEN = 4 - MG_PTR = $ADDR "(?i:PATH)" +)? MG_LEN = -?\d+ + MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY + SV = PV\\($ADDR\\) at $ADDR + REFCNT = \d+ + FLAGS = \\(TEMP,POK,pPOK\\) + PV = $ADDR "(?i:PATH)"\\\0 + CUR = \d+ + LEN = \d+) MAGIC = $ADDR MG_VIRTUAL = &PL_vtbl_taint MG_TYPE = PERL_MAGIC_taint\\(t\\)'); |