summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/thumbpdf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-09-08 21:41:40 +0000
committerKarl Berry <karl@freefriends.org>2018-09-08 21:41:40 +0000
commit80b28c052dd903d1c5c60a1faafd530bec8f5e45 (patch)
treeabfbd5f51a0c77909ccb703f62dfbbeed6f05654 /Master/texmf-dist/scripts/thumbpdf
parent3c44afcf87fb8597bb6da350f1777c8bf5b14517 (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-xMaster/texmf-dist/scripts/thumbpdf/thumbpdf.pl12
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+$//;