--- deliantra/server/lib/cf/pod.pm 2009/11/03 23:44:21 1.21 +++ deliantra/server/lib/cf/pod.pm 2012/11/06 21:52:55 1.27 @@ -1,23 +1,22 @@ # -# # This file is part of Deliantra, the Roguelike Realtime MMORPG. -# -# Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team -# +# +# Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012 Marc Alexander Lehmann / Robin Redeker / the Deliantra team +# # Deliantra is free software: you can redistribute it and/or modify it under # the terms of the Affero GNU General Public License as published by the # Free Software Foundation, either version 3 of the License, or (at your # option) any later version. -# +# # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. -# +# # You should have received a copy of the Affero GNU General Public License # and the GNU General Public License along with this program. If not, see # . -# +# # The authors can be reached via e-mail to # @@ -214,13 +213,13 @@ my ($path) = @_; Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path], - 7 => sub { + 8 => sub { my ($src) = @_; cf::fork_call { - my $pod = $src->[0]; - utf8::decode $pod; - Coro::Storable::blocking_nfreeze pom_as_paragraphs +(Pod::POM->new->parse_text ($pod)) + Coro::Storable::blocking_nfreeze + pom_as_paragraphs + +(Pod::POM->new->parse_text ($src->[0])) } }; }