Skip Menu |

This queue is for tickets about the Encode CPAN distribution.

Report information
The Basics
Id: 28780
Status: resolved
Priority: 0/
Queue: Encode
People
Owner: DANKOGAI [...] cpan.org
Requestors: aletellier [...] epsiloninteractive.com
Cc:
AdminCc:
Bug Information
Severity: Critical
Broken in: 2.23
Fixed in: (no value)

History Show all quoted text
  Fri Aug 10 02:52:12 2007 aletellier [...] epsiloninteractive.com - Ticket created
Subject: issue converting EUC-KR to ISO-2022-KR
Converting from EUC-KR to ISO-2022-KR always adds $)C at the beginning of the line, . $)C24788876 992268 aldo letellier >H3gGO=J can reproduce using piconv too piconv -f EUC-KR -t ISO-2022-KR korean_euc_kr.txt > korean_iso_2022_kr.piconv.txt Attached files Aldo
Subject: korean_euc_kr.txt
PROFILE_ID PLIST_ID PROFILE_KEY EMAIL_ADDR KOREAN_TEXT 24788877 992268 schoi@office.bigfootinteractive.com schoi@office.bigfootinteractive.com ¾È³çÇÏ½Ê 24788878 992268 1 sshama@bigfootinteractive.com 24788876 992268 aletellier@office.bigfootinteractive.com aletellier@office.bigfootinteractive.com ¾È³çÇϽÊ
Subject: korean_iso_2022_kr.piconv.txt
$)CPROFILE_ID PLIST_ID PROFILE_KEY EMAIL_ADDR KOREAN_TEXT $)C24788877 992268 schoi@office.bigfootinteractive.com schoi@office.bigfootinteractive.com >H3gGO=J $)C24788878 992268 1 sshama@bigfootinteractive.com $)C24788876 992268 aletellier@office.bigfootinteractive.com aletellier@office.bigfootinteractive.com >H3gGO=J
  Thu Aug 16 00:44:30 2007 aletellier [...] epsiloninteractive.com - Correspondence added
From: aletellier [...] epsiloninteractive.com
Narrow the issue to this "Encode::KR::2022_KR::euc_iso" function call, the line: substr( $$r_str, 0, 0 ) = $ESC{'2022_KR'}; Inserts the escape sequence in the beg of the string? It should insert in the beg of each korean word. ..... sub euc_iso { no warnings qw(uninitialized); my $r_str = shift; substr( $$r_str, 0, 0 ) = $ESC{'2022_KR'}; # put the designator at the beg. $$r_str =~ s{ # move KS X 1001 characters in GR to GL ($RE{EUC_C}+) # and enclose them with SO and SI }{ my $str = $1; $str =~ tr/\xA1-\xFE/\x21-\x7E/; "\x0e" . $str . "\x0f"; }geox; $$r_str; }
  Wed Aug 22 18:23:56 2007 aletellier [...] epsiloninteractive.com - Severity Critical added
  Wed May 07 16:37:59 2008 DANKOGAI [...] cpan.org - Status changed from 'new' to 'open'
  Wed May 07 16:49:00 2008 DANKOGAI [...] cpan.org - Taken
  Wed May 07 16:52:43 2008 DANKOGAI [...] cpan.org - Status changed from 'open' to 'resolved'