CVS: mhonarc/MHonArc/lib mhutil.pl,2.15,2.16

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 majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV