… | |
… | |
196 | package cf::pod; |
196 | package cf::pod; |
197 | |
197 | |
198 | sub pom_as_paragraphs_ng($) { |
198 | sub pom_as_paragraphs_ng($) { |
199 | my ($pom) = @_; |
199 | my ($pom) = @_; |
200 | |
200 | |
|
|
201 | # we suckers use global variables, unfortunately. |
201 | local $indent = 0; |
202 | local $indent = 0; |
202 | local $level = 1; |
203 | local $level = 1; |
203 | local @result = ( { } ); |
204 | local @result = ( { } ); |
204 | |
205 | |
205 | $pom->present ("cf::pod::AsParagraphs"); |
206 | $pom->present ("cf::pod::AsParagraphs"); |
… | |
… | |
208 | } |
209 | } |
209 | |
210 | |
210 | sub pom_as_paragraphs($) { |
211 | sub pom_as_paragraphs($) { |
211 | my ($pom) = @_; |
212 | my ($pom) = @_; |
212 | |
213 | |
213 | # we suckers use global variables, unfortunately. |
|
|
214 | my $guard = cf::lock_acquire "cf::pod::as_paragraphs"; |
214 | my $guard = cf::lock_acquire "cf::pod::as_paragraphs"; |
215 | |
215 | |
216 | $pom->pom_as_paragraphs_ng |
216 | $pom->pom_as_paragraphs_ng |
217 | } |
217 | } |
218 | |
218 | |