diff options
| author | Ton Hospel <perl5-porters@ton.iguana.be> | 2005-02-05 01:34:44 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-02-14 21:05:17 +0000 |
| commit | 08ca2aa38a29585fadf425ad3ad4f05750717023 (patch) | |
| tree | 2df17ad5b9f7d2efa2f5999139e801dfb3835e25 /t/uni/case.pl | |
| parent | 3140b3dadd87efbc39d3d4ff1289925baa047cc9 (diff) | |
| download | perl-08ca2aa38a29585fadf425ad3ad4f05750717023.tar.gz | |
Re: encoding neutral unpack
Message-ID: <cu17rk$k78$1@post.home.lunix>
tweaked to remove the 'not supported on this platform'
error messages
p4raw-id: //depot/perl@23966
Diffstat (limited to 't/uni/case.pl')
| -rw-r--r-- | t/uni/case.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/uni/case.pl b/t/uni/case.pl index 0402be402f..43fc84b6ea 100644 --- a/t/uni/case.pl +++ b/t/uni/case.pl @@ -64,7 +64,7 @@ sub casetest { for my $i (sort keys %$spec) { my $w = unidump($spec->{$i}); - my $u = unpack "U0U", $i; + my $u = unpack "C0U", $i; my $h = sprintf "%04X", $u; my $c = chr($u); $c .= chr(0x100); chop $c; my $d = $func->($c); |