1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
Description: Fix "Unescaped left brace in regex is illegal" error in perl helper scripts
Origin: vendor
Bug-Debian: https://bugs.debian.org/870821
Forwarded: no
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2017-08-06
--- a/Doc/Notes/makeglos.pl
+++ b/Doc/Notes/makeglos.pl
@@ -46,7 +46,7 @@
{
while (<LOGFILE>)
{
- if (m/\\newglossarytype\[(.*)\]{(.*)}{(.*)}{(.*)}/)
+ if (m/\\newglossarytype\[(.*)\]\{(.*)}\{(.*)}\{(.*)}/)
{
$exttype{$2}{'in'} = $3;
$exttype{$2}{'out'} = $4;
@@ -237,7 +237,7 @@
for ($i = 1, $j=-1; $i < $n; $i++)
{
- if ($stuff[$i]=~s/{(.+)\\glosslabel{(.+)}}//)
+ if ($stuff[$i]=~s/\{(.+)\\glosslabel\{(.+)}}//)
{
$name = $&;
--- a/Doc/Tutorial/makeglos.pl
+++ b/Doc/Tutorial/makeglos.pl
@@ -46,7 +46,7 @@
{
while (<LOGFILE>)
{
- if (m/\\newglossarytype\[(.*)\]{(.*)}{(.*)}{(.*)}/)
+ if (m/\\newglossarytype\[(.*)\]\{(.*)}\{(.*)}\{(.*)}/)
{
$exttype{$2}{'in'} = $3;
$exttype{$2}{'out'} = $4;
@@ -237,7 +237,7 @@
for ($i = 1, $j=-1; $i < $n; $i++)
{
- if ($stuff[$i]=~s/{(.+)\\glosslabel{(.+)}}//)
+ if ($stuff[$i]=~s/\{(.+)\\glosslabel\{(.+)}}//)
{
$name = $&;
|
