diff options
author | Karl Berry <karl@freefriends.org> | 2014-11-24 23:04:03 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-11-24 23:04:03 +0000 |
commit | f8afa087413b6c1c7901b309057f715e8f6dc12a (patch) | |
tree | 7774fcf0fe11e151874b45bcc01ab171dad4b44f /Master/texmf-dist/scripts/glossaries/glossaries.perl | |
parent | 226ee7542cb7aebf33c102943c20102bca7e9db3 (diff) |
glossaries (24nov14)
git-svn-id: svn://tug.org/texlive/trunk@35657 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/glossaries/glossaries.perl')
-rw-r--r-- | Master/texmf-dist/scripts/glossaries/glossaries.perl | 13 |
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; |