diff options
| author | Russ Allbery <rra@cpan.org> | 2021-09-12 11:46:49 -0700 |
|---|---|---|
| committer | Russ Allbery <rra@cpan.org> | 2021-09-12 11:46:49 -0700 |
| commit | 553010fbf8facfc349a4b48b6aa7837ad006013b (patch) | |
| tree | 3ca7a4f6e1766f6951873fc25323cdf638193521 /lib/App/DocKnot/Generate.pm | |
| parent | 3cf50d42278cd531835a077aa70d6eee0e238775 (diff) | |
| parent | dc9ba8b08b01c3793121d11748714fdd4fd3b3d6 (diff) | |
New upstream version 5.00
Diffstat (limited to 'lib/App/DocKnot/Generate.pm')
| -rw-r--r-- | lib/App/DocKnot/Generate.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/App/DocKnot/Generate.pm b/lib/App/DocKnot/Generate.pm index 2869c14..49b73a3 100644 --- a/lib/App/DocKnot/Generate.pm +++ b/lib/App/DocKnot/Generate.pm @@ -10,7 +10,7 @@ # Modules and declarations ############################################################################## -package App::DocKnot::Generate 4.01; +package App::DocKnot::Generate 5.00; use 5.024; use autodie; @@ -178,7 +178,7 @@ sub _code_for_to_text { my @paragraphs = split(m{ \n\n }xms, $text); for my $para (@paragraphs) { my %urls; - while ($para =~ s{ \[ ([^\]]+) \] [(] (\S+) [)] }{$1 [$ref]}xms) { + while ($para =~ s{ \[([^\]]+)\] [(] (\S+) [)] }{$1 [$ref]}xms) { $urls{$ref} = $2; $ref++; } |