Tatsuki SUGIURA
sugi****@users*****
2006年 10月 24日 (火) 17:54:01 JST
Index: slashjp/Slash/Utility/Data/Data.pm diff -u slashjp/Slash/Utility/Data/Data.pm:1.23 slashjp/Slash/Utility/Data/Data.pm:1.24 --- slashjp/Slash/Utility/Data/Data.pm:1.23 Fri Sep 8 20:03:55 2006 +++ slashjp/Slash/Utility/Data/Data.pm Tue Oct 24 17:54:01 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.23 2006/09/08 11:03:55 sugi Exp $ +# $Id: Data.pm,v 1.24 2006/10/24 08:54:01 sugi Exp $ package Slash::Utility::Data; @@ -62,7 +62,7 @@ $HTML::Tagset::linkElements{slash} = ['src', 'href']; } -($VERSION) = ' $Revision: 1.23 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.24 $ ' =~ /\$Revision:\s+([^\s]+)/; @EXPORT = qw( addDomainTags createStoryTopicData @@ -2233,7 +2233,7 @@ my $token = ':::INSERT__23__HERE:::'; # no # is OK, unless ... $url =~ s/#/$token/g; - if ($url =~ m|^https?://|i || $url =~ m|^/|) { + if ($url =~ m|^https?://|i || $url =~ m|^/| || $url =~ m|^$token|) { # HTTP, in which case the first # is OK $url =~ s/$token/#/; } @@ -4274,4 +4274,4 @@ =head1 VERSION -$Id: Data.pm,v 1.23 2006/09/08 11:03:55 sugi Exp $ +$Id: Data.pm,v 1.24 2006/10/24 08:54:01 sugi Exp $
SRAD