diff options
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; |