diff options
| author | Eric Brine <ikegami@adaelis.com> | 2009-11-26 19:16:16 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-11-30 08:29:39 +0100 |
| commit | ee6ba15dedda3e88eb66891eaf387c00a4c0a2fb (patch) | |
| tree | 9eb2ac85893de10cb4ed50013dbac6305324ecbd /t/comp/require.t | |
| parent | 75068674a0c83a71b3705f2c6000b34d849b9640 (diff) | |
| download | perl-ee6ba15dedda3e88eb66891eaf387c00a4c0a2fb.tar.gz | |
Fix -DPERL_NO_UTF16_FILTER
Diffstat (limited to 't/comp/require.t')
| -rw-r--r-- | t/comp/require.t | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index baf48870a3..988a102103 100644 --- a/t/comp/require.t +++ b/t/comp/require.t @@ -266,9 +266,9 @@ EOT if ($Is_EBCDIC || $Is_UTF8) { exit; } my %templates = ( - utf8 => 'C0U', - utf16be => 'n', - utf16le => 'v', + 'UTF-8' => 'C0U', + 'UTF-16BE' => 'n', + 'UTF-16LE' => 'v', ); sub bytes_to_utf { @@ -280,6 +280,9 @@ sub bytes_to_utf { foreach (sort keys %templates) { $i++; do_require(bytes_to_utf($_, qq(print "ok $i # $_\\n"; 1;\n), 1)); + if ($@ =~ /^(Unsupported script encoding \Q$_\E)/) { + print "ok $i # skip $1\n"; + } } END { |