From f8afa087413b6c1c7901b309057f715e8f6dc12a Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 24 Nov 2014 23:04:03 +0000 Subject: glossaries (24nov14) git-svn-id: svn://tug.org/texlive/trunk@35657 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/glossaries/glossaries.perl | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'Master/texmf-dist/scripts/glossaries/glossaries.perl') 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; -- cgit v1.2.3