glossaries (24nov14)

git-svn-id: svn://tug.org/texlive/trunk@35657 c570f23f-e606-0410-a88d-b1316a301751

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;