diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-11-27 22:27:32 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-11-27 22:27:32 +0000 |
commit | 2e0c081329a0b25faea3ba31f4016998ec65285c (patch) | |
tree | 0db5e1f1960dbca6d9f2ed73d5b0cc95c830b577 /cpan/Encode/t | |
parent | 51418c6ac55f33024e046e599878137a9e0a2e7d (diff) | |
download | perl-2e0c081329a0b25faea3ba31f4016998ec65285c.tar.gz |
Update Encode to CPAN version 2.65
[DELTA]
$Revision: 2.65 $ $Date: 2014/11/27 14:08:33 $
! Changes Encode.xs bin/enc2xs
Applied 3 patches from jhi:
0001-For-C-don-t-use-the-array-size-in-forward-declaratiotion
0002-Unused-variables
0003-1-needs-casting-to-STRLEN
Message-Id: <54753674.6070909@iki.fi>
Diffstat (limited to 'cpan/Encode/t')
-rw-r--r-- | cpan/Encode/t/encoding.t | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/cpan/Encode/t/encoding.t b/cpan/Encode/t/encoding.t index 847c26f643..8c7f253377 100644 --- a/cpan/Encode/t/encoding.t +++ b/cpan/Encode/t/encoding.t @@ -14,7 +14,7 @@ BEGIN { } } -print "1..33\n"; +print "1..31\n"; no warnings "deprecated"; use encoding "latin1"; # ignored (overwritten by the next line) @@ -202,10 +202,3 @@ print "ok 28\n"; print $h1{"\x{3af}"} == 41 ? "ok 30\n" : "not ok 30\n"; print $h2{"\xdf"} == 42 ? "ok 31\n" : "not ok 31\n"; } - -# Order of finding the above-Latin1 code point should not matter: both should -# assume Latin1/Unicode encoding -print "not " if "\xDF\x{100}" =~ /\x{3af}\x{100}/; -print "ok 32\n"; -print "not " if "\x{100}\xDF" =~ /\x{100}\x{3af}/; -print "ok 33\n"; |