[popfile-commit] engine/UI HTML.pm,1.380,1.381

[naoki i. <am...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24849/UI

Modified Files:
	HTML.pm 
Log Message:
Fixed a bug that causes segmentation faults when displaying messages which have very long To, Cc or From headers in the POPFile UI.

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.380
retrieving revision 1.381
diff -C2 -d -r1.380 -r1.381
*** HTML.pm	3 Dec 2007 12:58:41 -0000	1.380
--- HTML.pm	29 Jan 2008 15:03:29 -0000	1.381
***************
*** 3047,3051 ****
                           # Remove wrong characters as euc-jp.
                           for my $i (1..4) {
!                              $$row[$i] =~ s/\G((?:$euc_jp)*)([\x80-\xFF](?=(?:$euc_jp)*))?/$1/og;
                           }
                       }
--- 3047,3055 ----
                           # Remove wrong characters as euc-jp.
                           for my $i (1..4) {
!                             my $result = '';
!                             while ( $$row[$i] =~ /((?:$euc_jp){1,300})/og ) {
!                                 $result .= $1;
!                             }
!                             $$row[$i] = $result;
                           }
                       }