diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-07-05 22:40:58 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-06 09:01:16 +0000 |
| commit | 3df15adcc3686bbc809ac9706048f258fd787941 (patch) | |
| tree | bd6b7c7ce244294e61821308b249c098f6554ed9 /t | |
| parent | 461824dcfbc00b3c4e20590f06d6c9881e4a416b (diff) | |
| download | perl-3df15adcc3686bbc809ac9706048f258fd787941.tar.gz | |
Introduce a new function, pv_escape(), to display contents of PVs
that might contain non printable chars.
Subject: Re: [PATCH]: fix: [perl #39583] Pattern Match fails for specific length string
Message-ID: <9b18b3110607051140n10c211a1jf17d3b7914d6f68b@mail.gmail.com>
p4raw-id: //depot/perl@28490
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/9uninit | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index fadcd1bd2a..82fc3873ba 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -1017,7 +1017,7 @@ my ($v); my %h = ("\0011\002\r\n\t\f\"\\abcdefghijklmnopqrstuvwxyz", undef); $v = join '', %h; EXPECT -Use of uninitialized value $h{"\0011\2\r\n\t\f\"\\abcdefghijkl"...} in join or string at - line 6. +Use of uninitialized value $h{"\0011\2\r\n\t\f\"\\abcdefghijklm"...} in join or string at - line 6. ######## use warnings 'uninitialized'; my ($m1, $v); |