Tatsuki SUGIURA
sugi****@users*****
2006年 9月 8日 (金) 20:03:55 JST
Index: slashjp/Slash/Utility/Data/Data.pm diff -u slashjp/Slash/Utility/Data/Data.pm:1.22 slashjp/Slash/Utility/Data/Data.pm:1.23 --- slashjp/Slash/Utility/Data/Data.pm:1.22 Wed Sep 6 21:47:15 2006 +++ slashjp/Slash/Utility/Data/Data.pm Fri Sep 8 20:03:55 2006 @@ -1,7 +1,7 @@ # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2005 by Open Source Technology Group. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: Data.pm,v 1.22 2006/09/06 12:47:15 sugi Exp $ +# $Id: Data.pm,v 1.23 2006/09/08 11:03:55 sugi Exp $ package Slash::Utility::Data; @@ -62,7 +62,7 @@ $HTML::Tagset::linkElements{slash} = ['src', 'href']; } -($VERSION) = ' $Revision: 1.22 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.23 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw( addDomainTags createStoryTopicData @@ -2297,6 +2297,7 @@ } else { $text = substr($text, 0, $length); } + $end and $text = join('', reverse(split(//, $text))); $text =~ s/&#?[a-zA-Z0-9]*$//; $text =~ s/<[^>]*$//; return $text; @@ -4273,4 +4274,4 @@ =head1 VERSION -$Id: Data.pm,v 1.22 2006/09/06 12:47:15 sugi Exp $ +$Id: Data.pm,v 1.23 2006/09/08 11:03:55 sugi Exp $
SRAD