diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2018-09-26 22:20:34 +0200 |
|---|---|---|
| committer | Thomas Schwinge <thomas@schwinge.name> | 2018-09-26 22:37:03 +0200 |
| commit | 6a870e98d7f94402e83c02e9d7dfffb15f9013e4 (patch) | |
| tree | 8aa2eb88a27798abd2a2d9ef3a70b3dba9a4160e /.library/IkiWiki/Plugin/getfield.pm | |
| parent | e089958182566e2076ecf724dd2871edf287dcfa (diff) | |
Resolve incompatibility in "getfield" and "texinfo" plugins
... seen with recent versions of Perl:
Failed to load plugin IkiWiki::Plugin::getfield: Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/{{ <-- HERE \$([-\w/]+#)?[-\w]+}}/ at [...]/.library/IkiWiki/Plugin/getfield.pm line 68.
Compilation failed in require at (eval 94) line 1.
BEGIN failed--compilation aborted at (eval 94) line 1.
Diffstat (limited to '.library/IkiWiki/Plugin/getfield.pm')
| -rw-r--r-- | .library/IkiWiki/Plugin/getfield.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/.library/IkiWiki/Plugin/getfield.pm b/.library/IkiWiki/Plugin/getfield.pm index 971e7ecb..fb876f35 100644 --- a/.library/IkiWiki/Plugin/getfield.pm +++ b/.library/IkiWiki/Plugin/getfield.pm @@ -65,13 +65,13 @@ sub do_filter (@) { my $page_type=pagetype($page_file); if (defined $page_type) { - while ($params{content} =~ /{{\$([-\w\/]+#)?[-\w]+}}/) + while ($params{content} =~ /\{\{\$([-\w\/]+#)?[-\w]+\}\}/) { # substitute {{$var}} variables (source-page) - $params{content} =~ s/{{\$([-\w]+)}}/get_field_value($1,$page)/eg; + $params{content} =~ s/\{\{\$([-\w]+)\}\}/get_field_value($1,$page)/eg; # substitute {{$page#var}} variables (source-page) - $params{content} =~ s/{{\$([-\w\/]+)#([-\w]+)}}/get_other_page_field_value($2,$page,$1)/eg; + $params{content} =~ s/\{\{\$([-\w\/]+)#([-\w]+)\}\}/get_other_page_field_value($2,$page,$1)/eg; } } @@ -79,12 +79,12 @@ sub do_filter (@) { $page_type=pagetype($page_file); if (defined $page_type) { - while ($params{content} =~ /{{\+\$([-\w\/]+#)?[-\w]+\+}}/) + while ($params{content} =~ /\{\{\+\$([-\w\/]+#)?[-\w]+\+\}\}/) { # substitute {{+$var+}} variables (dest-page) - $params{content} =~ s/{{\+\$([-\w]+)\+}}/get_field_value($1,$destpage)/eg; + $params{content} =~ s/\{\{\+\$([-\w]+)\+\}\}/get_field_value($1,$destpage)/eg; # substitute {{+$page#var+}} variables (source-page) - $params{content} =~ s/{{\+\$([-\w\/]+)#([-\w]+)\+}}/get_other_page_field_value($2,$destpage,$1)/eg; + $params{content} =~ s/\{\{\+\$([-\w\/]+)#([-\w]+)\+\}\}/get_other_page_field_value($2,$destpage,$1)/eg; } } |