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;
}
}
|
