Tatsuki SUGIURA
sugi****@users*****
2006年 9月 6日 (水) 21:47:15 JST
Index: slashjp/Slash/Utility/Data/Data.pm diff -u slashjp/Slash/Utility/Data/Data.pm:1.21 slashjp/Slash/Utility/Data/Data.pm:1.22 --- slashjp/Slash/Utility/Data/Data.pm:1.21 Wed Sep 6 21:34:24 2006 +++ slashjp/Slash/Utility/Data/Data.pm Wed Sep 6 21:47:15 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.21 2006/09/06 12:34:24 sugi Exp $ +# $Id: Data.pm,v 1.22 2006/09/06 12:47:15 sugi Exp $ package Slash::Utility::Data; @@ -62,7 +62,7 @@ $HTML::Tagset::linkElements{slash} = ['src', 'href']; } -($VERSION) = ' $Revision: 1.21 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.22 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw( addDomainTags createStoryTopicData @@ -1456,12 +1456,14 @@ my $code = strip_code($codestr); my $newstr = "<blockquote>$code</blockquote>"; # TODO: This 1-line fix for bug of perl in Debian sarge!? - # substr($str, $pos, $len) returns wrong string. - # In just one test case, returned value have length=122. - # I tested both 5.8.4-8sarge3 and 5.8.4-8sarge4. + # substr($str, $pos, $len) returns wrong string sometime. + # I tested both 5.8.4-8sarge3 and 5.8.4-8sarge4, + # In a test case, returned value have length=122. # 5.8.4-8sarge3 works porperly when using substr as left value! # However, 5.8.4-8sarge4 was broken in any case. - # I stop to use 3rd argument, temporarily. + # + # I cannot find a way to reproduce surely, just stop to + # use 3rd argument, temporarily... #substr($str, $pos, $len) = $newstr; $str = substr($str, 0, $pos).$newstr.substr($str,$pos+$len); pos($str) = $pos + length($newstr); @@ -4271,4 +4273,4 @@ =head1 VERSION -$Id: Data.pm,v 1.21 2006/09/06 12:34:24 sugi Exp $ +$Id: Data.pm,v 1.22 2006/09/06 12:47:15 sugi Exp $