[ViewVC] Diff of: cvs/deliantra/server/lib/cf/pod.pm

Comparing deliantra/server/lib/cf/pod.pm (file contents):
Revision 1.27 by root, Tue Nov 6 21:52:55 2012 UTC vs.
Revision 1.29 by root, Wed Nov 21 10:28:52 2012 UTC

 *view_seq_T      = sub { "T<$_[1]>" };
 *view_seq_G      = sub { "G<$_[1]>" };
 *view_seq_zero   = sub { "Z<>" };
 *view_seq_space  = sub { my $text = $_[1]; $text =~ s/ /\xa0/g; $text };
 *view_seq_index  = sub { push @{ $result[-1]{index} }, $_[1]; "" };
+#view_seq_entity
 sub view_seq_text {
    my $text = $_[1];
    $text =~ s/\s+/ /g;
    aspod $text
 #############################################################################
 package cf::pod;
-sub pom_as_paragraphs($) {
+sub pom_as_paragraphs_ng($) {
    my ($pom) = @_;
-   # we suckers use global variables, unfortunately.
-   my $guard = cf::lock_acquire "cf::pod::as_paragraphs";
    local $indent = 0;
    local $level  = 1;
    local @result = ( { } );
    $pom->present ("cf::pod::AsParagraphs");
    [grep $_->{index} || exists $_->{markup}, @result]
 }
+sub pom_as_paragraphs($) {
+   my ($pom) = @_;
+   # we suckers use global variables, unfortunately.
+   my $guard = cf::lock_acquire "cf::pod::as_paragraphs";
+   $pom->pom_as_paragraphs_ng
+}
 sub load_pod($) {
    my ($path) = @_;
    Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path],
       8 => sub {
          my ($src) = @_;
          cf::fork_call {
             Coro::Storable::blocking_nfreeze
-               pom_as_paragraphs
+               pom_as_paragraphs_ng
                   +(Pod::POM->new->parse_text ($src->[0]))
          }
       };
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines