Tatsuki SUGIURA
sugi****@users*****
2006年 9月 2日 (土) 00:12:18 JST
Index: slashjp/Slash/Utility/Data/Data.pm diff -u slashjp/Slash/Utility/Data/Data.pm:1.16 slashjp/Slash/Utility/Data/Data.pm:1.17 --- slashjp/Slash/Utility/Data/Data.pm:1.16 Fri Jul 14 10:54:25 2006 +++ slashjp/Slash/Utility/Data/Data.pm Sat Sep 2 00:12:17 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.16 2006/07/14 01:54:25 sugi Exp $ +# $Id: Data.pm,v 1.17 2006/09/01 15:12:17 sugi Exp $ package Slash::Utility::Data; @@ -62,7 +62,7 @@ $HTML::Tagset::linkElements{slash} = ['src', 'href']; } -($VERSION) = ' $Revision: 1.16 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.17 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw( addDomainTags createStoryTopicData @@ -2039,7 +2039,7 @@ sub fixparam { my($url) = @_; - $url =~ s/([^$URI::unreserved ])/$URI::Escape::escapes{$1}/og; + $url =~ s/([^$URI::unreserved !*'"()])/$URI::Escape::escapes{$1}/og; $url =~ s/ /+/g; return $url; } @@ -4260,4 +4260,4 @@ =head1 VERSION -$Id: Data.pm,v 1.16 2006/07/14 01:54:25 sugi Exp $ +$Id: Data.pm,v 1.17 2006/09/01 15:12:17 sugi Exp $
スラド