summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/glossaries/glossaries.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/glossaries/glossaries.perl')
-rw-r--r--Master/texmf-dist/scripts/glossaries/glossaries.perl13
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/texmf-dist/scripts/glossaries/glossaries.perl b/Master/texmf-dist/scripts/glossaries/glossaries.perl
index ba6fdd5c5a8..9065e966cf1 100644
--- a/Master/texmf-dist/scripts/glossaries/glossaries.perl
+++ b/Master/texmf-dist/scripts/glossaries/glossaries.perl
@@ -1,8 +1,8 @@
# File : glossaries.perl
# Author : Nicola L.C. Talbot
# Date : 14th June 2007
-# Last Modified : 2012-09-21
-# Version : 1.05
+# Last Modified : 2014-09-24
+# Version : 1.06
# Description : LaTeX2HTML (limited!) implementation of glossaries
# package. Note that not all the glossaries.sty
# macros have been implemented.
@@ -251,7 +251,8 @@ sub gls_compare{
local($x0) = '';
local($y0) = '';
- if ($x=~s/^(&#(?:\d+|x[\da-f]+);)//)
+ #v1.06 added /i for case-insensitive match
+ if ($x=~s/^(&#(?:\d+|x[\da-f]+);)//i)
{
$x0 = $1;
}
@@ -260,7 +261,7 @@ sub gls_compare{
$x0 = $1;
}
- if ($y=~s/^(&#(?:\d+|x[\da-f]+);)//)
+ if ($y=~s/^(&#(?:\d+|x[\da-f]+);)//i)
{
$y0 = $1;
}
@@ -271,7 +272,7 @@ sub gls_compare{
local($numx);
- if ($x0=~/&#(\d+|x[\da-f]+);/)
+ if ($x0=~/&#(\d+|x[\da-f]+);/i)
{
$numx = $1;
@@ -284,7 +285,7 @@ sub gls_compare{
local($numy);
- if ($y0=~/&#(\d+|x[\da-f]+);/)
+ if ($y0=~/&#(\d+|x[\da-f]+);/i)
{
$numy = $1;