Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib/MHonArc
In directory subversions:/tmp/cvs-serv25685/MHonArc
Modified Files:
UTF8.pm
Log Message:
* Fixed bug #919.
* Also fixed bug with tag stripping reported by Takashi P.KATOH.
Index: UTF8.pm
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/MHonArc/UTF8.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** UTF8.pm 27 Jul 2002 05:13:14 -0000 1.2
--- UTF8.pm 30 Jul 2002 05:10:30 -0000 1.3
***************
*** 103,109 ****
# strip tags
if ($has_tags) {
! $subtext =~ s/\A[^<]*>//; # clipped tag
$subtext =~ s/<[^>]*>//g;
! $subtext =~ s/<[^>]*\Z//; # clipped tag
}
--- 103,113 ----
# strip tags
if ($has_tags) {
! # Strip full tags
$subtext =~ s/<[^>]*>//g;
! # Check if clipped part of a tag
! if ($subtext =~ s/<[^>]*\Z//) {
! my $gt = $u->index('>', $pos);
! $pos = ($gt < 0) ? $html_len : ($gt+1);
! }
}
***************
*** 116,121 ****
$pos = $html_len;
} else {
! $subtext .= $u->substr($pos, $semi-$pos+1)
! if $semi > $pos;
$pos = $semi+1;
}
--- 120,124 ----
$pos = $html_len;
} else {
! $subtext .= $u->substr($pos, $semi-$pos+1);
$pos = $semi+1;
}
---------------------------------------------------------------------
To sign-off this list, send email to [EMAIL PROTECTED] with the
message text UNSUBSCRIBE MHONARC-DEV
