summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-16 11:34:57 +0000
committerNorbert Preining <preining@logic.at>2007-11-16 11:34:57 +0000
commitb7899e95726c10175f384c1bf7baadbab493336d (patch)
tree2631069d8f341c9f38c5008c103b1f0471869741 /Master/texmf
parente09474732b311900d75c3ebd4666b95064d67317 (diff)
thumbpdf 3.9
git-svn-id: svn://tug.org/texlive/trunk@5466 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r--Master/texmf/scripts/thumbpdf/thumbpdf.pl14
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/texmf/scripts/thumbpdf/thumbpdf.pl b/Master/texmf/scripts/thumbpdf/thumbpdf.pl
index 832e4e76717..b18a89cf88e 100644
--- a/Master/texmf/scripts/thumbpdf/thumbpdf.pl
+++ b/Master/texmf/scripts/thumbpdf/thumbpdf.pl
@@ -5,7 +5,7 @@ $^W=1; # turn warning on
#
# thumbpdf.pl
#
-# Copyright (C) 1999-2005 Heiko Oberdiek.
+# Copyright (C) 1999-2005, 2007 Heiko Oberdiek.
#
# This work may be distributed and/or modified under the
# conditions of the LaTeX Project Public License, either version 1.3
@@ -26,10 +26,10 @@ $^W=1; # turn warning on
#
my $file = "thumbpdf.pl";
my $program = uc($&) if $file =~ /^\w+/;
-my $version = "3.8";
-my $date = "2005/07/06";
+my $version = "3.9";
+my $date = "2007/11/07";
my $author = "Heiko Oberdiek";
-my $copyright = "Copyright (c) 1999-2005 by $author.";
+my $copyright = "Copyright (c) 1999-2005, 2007 by $author.";
#
# Reqirements: Perl5, Ghostscript
# History:
@@ -142,6 +142,8 @@ my $copyright = "Copyright (c) 1999-2005 by $author.";
# by pdfTeX 1.20a.
# 2005/07/06 v3.8:
# * Fix because of pdfTeX 1.30.
+# 2007/11/07 v3.9:
+# * Deprecation warning of perl 5.8.8 fixed.
#
### program identification
@@ -816,7 +818,7 @@ if ($::opt_makepdf)
"\"";
print "> $cmd\n" if $::opt_verbose;
my @capture = `$cmd`;
- if (!defined(@capture))
+ if (!@capture)
{
die "$Error Cannot execute pdfTeX!\n";
}
@@ -900,7 +902,7 @@ if ($::opt_makedata)
while (<PDF>)
{
$lineno++;
-
+
# continue, if comment line (2nd line of PDF output by pdfTeX 1.30)
next if /^%/;