diff options
author | Karl Berry <karl@freefriends.org> | 2018-09-08 21:41:40 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-09-08 21:41:40 +0000 |
commit | 80b28c052dd903d1c5c60a1faafd530bec8f5e45 (patch) | |
tree | abfbd5f51a0c77909ccb703f62dfbbeed6f05654 /Master/texmf-dist/scripts/thumbpdf | |
parent | 3c44afcf87fb8597bb6da350f1777c8bf5b14517 (diff) |
thumbpdf (8sep18)
git-svn-id: svn://tug.org/texlive/trunk@48625 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/thumbpdf')
-rwxr-xr-x | Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl b/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl index 8bf4e0958aa..a5f0b54eafe 100755 --- a/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl +++ b/Master/texmf-dist/scripts/thumbpdf/thumbpdf.pl @@ -5,7 +5,7 @@ $^W=1; # turn warning on # # thumbpdf.pl # -# Copyright (C) 1999-2014 Heiko Oberdiek. +# Copyright (C) 1999-2018 Heiko Oberdiek. # # This work may be distributed and/or modified under the # conditions of the LaTeX Project Public License, either version 1.3 @@ -27,10 +27,10 @@ $^W=1; # turn warning on my $file = "thumbpdf.pl"; my $program = uc($&) if $file =~ /^\w+/; my $prj = 'thumbpdf'; -my $version = "3.16"; -my $date = "2014/07/15"; +my $version = "3.17"; +my $date = "2018/09/07"; my $author = "Heiko Oberdiek"; -my $copyright = "Copyright (c) 1999-2014 by $author."; +my $copyright = "Copyright (c) 1999-2018 by $author."; # # Reqirements: Perl5, Ghostscript # History: @@ -156,6 +156,8 @@ my $copyright = "Copyright (c) 1999-2014 by $author."; # 2014/07/15 v3.16 # * Patch for "thumbpdf.pl" by Norbert Preining because of # pdfTeX 1.40.15 (TeX Live 2014). +# 2018/09/07 v3.17 +# * { } quoted as \{ \} in regex for "new" stricter perl syntax. # ### program identification @@ -1454,7 +1456,7 @@ END_DTA my $length = $thumblength[$i]; my $dict = $objtext[$thumbobj[$i]]; $dict =~ s/\\the\\pdflastobj\\\s*\d+\s*R/{RGB_$i}/; - $dict =~ s/\\UseRGB{(\d+)}\\\s*\d+\s*R/{RGB_$1}/; + $dict =~ s/\\UseRGB\{(\d+)\}\\\s*\d+\s*R/{RGB_$1}/; $dict =~ s/\/Length\s+\d+\s*//; $dict =~ s/^\s+//; $dict =~ s/\s+$//; |