Changeset 32129 for main/trunk/greenstone2/perllib/plugins/BibTexPlugin.pm

Timestamp:

2018-02-13T10:38:29+13:00 (6 years ago)

Author:

kjdon

Message:

After () in a regex, {} signifys quantifiers. eg (xx){2,4} - 2-4 occurrences. In later perl versions, it is illegal to have an unescaped { after a ) in a regex. If you actually want to match { you need to escape it. So I have escaped all { following ) in regex

File:

• main/trunk/greenstone2/perllib/plugins/BibTexPlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/BibTexPlugin.pm

@@ -704 +704 @@
            
     # remove {} around a single character (eg \'{e})
-    $text =~ s@(\\[`'="^~\.]){(\w)}@{$1$2}@g; #`
+    $text =~ s@(\\[`'="^~\.])\{(\w)}@{$1$2}@g; #`
 
     # \, is another way of doing cedilla \c
@@ -711 +711 @@
     # remove {} around a single character for special 1 letter commands -
     # need to insert a space. Eg \v{s}  ->  {\v s}
-    $text =~ s@(\\[uvcH]){(\w)}@{$1 $2}@g;
+    $text =~ s@(\\[uvcH])\{(\w)}@{$1 $2}@g;
 
     # only do if the text contains a '\' character.