diff options
| author | Karl Williamson <khw@cpan.org> | 2017-12-27 18:55:13 -0700 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2018-03-12 08:24:46 +0000 |
| commit | e3344ddbfd9ba6a7f8433fbc3f86d141c84d22ec (patch) | |
| tree | 33fd1494986083a1cc2c1c0861194e588752910a | |
| parent | f252c27cfa1fd8b07c3781a8cae30b22f169e9d6 (diff) | |
| download | perl-e3344ddbfd9ba6a7f8433fbc3f86d141c84d22ec.tar.gz | |
Fix t/comp/parser_run.t for EBCDIC
Commit 36000cd1c47863d8412b285701db7232dd450239 added a test which isn't
portable to EBCDIC, using \xD5. The is "N" on EBCDIC platforms, whereas
a non-alphabetic character was intended.
Change to use \xB6 which means paragraph sign on both character sets.
(cherry picked from commit faa9b9ce7303b784a3dbd278ddaa49f8789c1672)
| -rw-r--r-- | t/comp/parser_run.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t index 0fca5b2800..a4cd8361b4 100644 --- a/t/comp/parser_run.t +++ b/t/comp/parser_run.t @@ -25,10 +25,10 @@ Identifier too long at - line 3. EXPECT fresh_perl_is(<<EOS, <<'EXPECT', {}, "linestart before bufptr"); -\${ \xD5eeeeeeeeeeee +\${ \xB6eeeeeeeeeeee 'x EOS -Unrecognized character \xD5; marked by <-- HERE after ${ <-- HERE near column 4 at - line 1. +Unrecognized character \xB6; marked by <-- HERE after ${ <-- HERE near column 4 at - line 1. EXPECT __END__ |