Bug #4602 for Encode: Encode hangs with PerlIO decoding the attached file

Sun Dec 07 13:24:26 2003 msergeant [...] cpan.org - Ticket created

Subject:

Encode hangs with PerlIO decoding the attached file

The attached file is decoded from a spam, and declares itself as iso-2022-jp. When I try the following: perl -e 'open(my $fh, "./split/100T_1X_PM3_EMQ_MT__message.txt") || die $!; binmode($fh, ":encoding(iso-2022-jp)") || die $!; while (<$fh>) { print }' It just hangs there, using 100% CPU. This is on perl 5.8.1 that ships with Mac OS X Panther.

<MÒ> DM-Master s¢cJæîò1-2-27 Îì@O 090-8159-3461 <ÆÒ> lbg`l .zMâ~ÌûÍ±¿çÜÅ@master1@yume.otegami.com .¦zMâ~è±«©çñ48ÔÈàÅ½f³êÜ·B .[N[jO@íÌÌáÉæèñàzMâ~ÌlÉ .ÁÄ¢éÂ\«ª èÜµ½B½É\µó èÜ¹ñÅµ½B .»Ìæ¤ÈûÍ¼ÉuñÚvÆñðLüµÄãLAhXÉÁÄ¾³¢B .»êÈOÌûÍ¼ÉzMâ~ÆLüµÄãLAhXÉÁÄ¾³¢B .II¦K¸zMâ~ÌAhX©ç¨è¾³¢II . . .*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c* .TCgªÁ¦ÄµÜ¤°êª èÜ·ÌÅA¨ßÉ©ÉÄº³¢Ëô .*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c* . .@@@@@@@@@@ÝÉÀèIèØêÔßII .\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ .b@@@@@ ââ@http://net-channel.info/@áá .\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ . .¡ ¡\\\\\\\\\\\\\\\\\\\\\\\\\\ . ¡ .¡@@@\òRÌ¨qlÌºÉ¨¦µÄ...\ .@@@@@@@@@Â¢ÉÅVÅ¨ófWªoêII . .@@@@@@@@¨qlÌúÒð ØèÜ¹ñ . .\\\\\\\\\\\\\\\\\\\\\\\\\\¡ ¡ . .@}«j«A«É«Í« .@ª®ª®ª®ª®ª® .@½«Ü«ç«È«¢«f««Î«©«è«Ì«©«M«ì« .@ª®ª®ª®ª®ª®ª®ª®ª®ª®ª®ª®ª®ª®ª® . .@@@@úÒÊèÌ1Å·BÆ©ÉÆE üè©M èB . .I___N___D___E___X__________________________________________ . .PDACh¨óf . .QDfl¨óf . .RDB¨óf . .SDCv¨óf . .TD»Ì¼@Ã~æÈÇ . .@@@@@@@@@@@@@@@@@@@@2980~æè .___________________________________________________________ . .ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª . .@@@@@@BàRâç¹ÈµÌ{¨AoÅ·B . .@@@@@@@@ÇêàµIÉµIðdË½©MìB . .ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª . .@@@@@@@@@@ÝÉÀèIèØêÔßII .\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ .b@@@@@ ââ@http://net-channel.info/@áá .\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ . .*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c* .TCgªÁ¦ÄµÜ¤°êª èÜ·ÌÅA¨ßÉ©ÉÄº³¢Ëô .*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*c*

Wed Dec 31 07:39:39 2003 DANKOGAI [...] cpan.org - Told changed from Not set to Wed Dec 31 07:39:39 2003

Wed Dec 31 07:40:19 2003 DANKOGAI [...] cpan.org - Told changed from Wed Dec 31 07:39:39 2003 to Wed Dec 31 07:40:19 2003

Wed Dec 31 07:40:38 2003 DANKOGAI [...] cpan.org - Told changed from Wed Dec 31 07:40:19 2003 to Wed Dec 31 07:40:38 2003

Wed Dec 31 07:57:13 2003 DANKOGAI [...] cpan.org - Correspondence added

Show quoted text

> The attached file is decoded from a spam, and declares itself as > iso-2022-jp. When I try the following: > > perl -e 'open(my $fh, "./split/100T_1X_PM3_EMQ_MT__message.txt") || die $!;

binmode($fh, ":encoding(iso-2022-jp)") || die $!; while (<$fh>) { print }' Show quoted text

> > It just hangs there, using 100% CPU. > > This is on perl 5.8.1 that ships with Mac OS X Panther.

I simply could not reproduce your problem on /usr/bin/perl of MacOS X v10.3.2 or any other combination of platforms and perl builds. I pretty much doubt if it is Encode's problem but if you want me to work on it further, I need reports in depth including * what uname -a says * what "perl -V" says Dan the Encode Maitainer

Wed Dec 31 07:57:14 2003 DANKOGAI [...] cpan.org - Status changed from 'new' to 'resolved'

Fri Oct 01 16:31:56 2004 DANKOGAI [...] cpan.org - Taken