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

Timestamp:

2017-07-07T19:19:14+12:00 (7 years ago)

Author:

ak19

Message:

When testing GS3.08's GLI on Ubuntu v 16.04, found its perl v 5.22.1 issued warnings about unescaped left brace in regex. As per ​https://unix.stackexchange.com/questions/238539/automake-error-unescaped-left-brace-in-regex-is-deprecated, in even later versions of perl, this counts as a syntax error rather than resulting in a warning. So making the minimum number of changes that allowed perl to parse the plugins and open GLI successfully, without issuing warnings on perl 5.22.1 on this Ubuntu 16.04.

File:

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

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

@@ -791 +791 @@
 
     # quoted { } chars
-    $text =~ s@\\{@{@g;
+    $text =~ s@\\\{@{@g;
     $text =~ s@\\}@}@g;
 
@@ -805 +805 @@
 
     $text =~ s@\\infty@infinity@g;       # or unicode 0x221E...
-    $text =~ s@\^{(.*?)}@<sup>$1</sup>@g; # superscript
+    $text =~ s@\^\{(.*?)}@<sup>$1</sup>@g; # superscript
     $text =~ s@\^([^\{])@<sup>$1</sup>@g;
-    $text =~ s@\_{(.*?)}@<sub>$1</sub>@g; # subscript
+    $text =~ s@\_\{(.*?)}@<sub>$1</sub>@g; # subscript
     $text =~ s@\_([^\{])@<sub>$1</sub>@g;