mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib/MHonArc UTF8.pm,1.2,1.3

2002-07-29 22:10:39
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 majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV