diff options
| author | Craig A. Berry <craigberry@mac.com> | 2014-01-23 18:50:58 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2014-01-23 21:11:30 -0600 |
| commit | 02091bd7ebe469aca7283c42a3c537b2c15079db (patch) | |
| tree | f34c18fd2c9e3d7e994c20f3327c72adc69e0d71 /ext/Devel-Peek | |
| parent | 465d77f974df11d7c9502274aace9a2931fd196a (diff) | |
| download | perl-02091bd7ebe469aca7283c42a3c537b2c15079db.tar.gz | |
Fix $ENV{PATH} flags in Peek.t.
Setting $ENV{PATH} explicitly in bea5cecf09ba646ff0ff made us no
longer have the TEMP flag set on VMS, so make it optional.
Diffstat (limited to 'ext/Devel-Peek')
| -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 4a7af4274f..80a6fb06ba 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -647,7 +647,7 @@ if (${^TAINT}) { MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY SV = PV(?:IV)?\\($ADDR\\) at $ADDR REFCNT = \d+ - FLAGS = \\(TEMP,POK,(?:FAKE,READONLY,)?pPOK\\) + FLAGS = \\((?:TEMP,)?POK,(?:FAKE,READONLY,)?pPOK\\) (?: IV = 0 )? PV = $ADDR "(?i:PATH)"(?:\\\0)? CUR = \d+ |