Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv25685
Modified Files:
mhutil.pl
Log Message:
* Fixed bug #919.
* Also fixed bug with tag stripping reported by Takashi P.KATOH.
Index: mhutil.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhutil.pl,v
retrieving revision 2.15
retrieving revision 2.16
diff -C2 -r2.15 -r2.16
*** mhutil.pl 27 Jul 2002 05:13:13 -0000 2.15
--- mhutil.pl 30 Jul 2002 05:10:30 -0000 2.16
***************
*** 82,88 ****
# strip tags
if ($has_tags) {
! $subtext =~ s/\A[^<]*>//; # clipped tag
$subtext =~ s/<[^>]*>//g;
! $subtext =~ s/<[^>]*\Z//; # clipped tag
}
--- 82,92 ----
# strip tags
if ($has_tags) {
! # Strip full tags
$subtext =~ s/<[^>]*>//g;
! # Check if clipped part of a tag
! if ($subtext =~ s/<[^>]*\Z//) {
! my $gt = index($$str, '>', $pos);
! $pos = ($gt < 0) ? $html_len : ($gt+1);
! }
}
***************
*** 95,100 ****
$pos = $html_len;
} else {
! $subtext .= substr($$str, $pos, $semi-$pos+1)
! if $semi > $pos;
$pos = $semi+1;
}
--- 99,103 ----
$pos = $html_len;
} else {
! $subtext .= substr($$str, $pos, $semi-$pos+1);
$pos = $semi+1;
}
---------------------------------------------------------------------
To sign-off this list, send email to [EMAIL PROTECTED] with the
message text UNSUBSCRIBE MHONARC-DEV
