diff options
| author | Norbert Preining <preining@logic.at> | 2007-11-16 11:34:57 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2007-11-16 11:34:57 +0000 |
| commit | b7899e95726c10175f384c1bf7baadbab493336d (patch) | |
| tree | 2631069d8f341c9f38c5008c103b1f0471869741 /Master/texmf | |
| parent | e09474732b311900d75c3ebd4666b95064d67317 (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.pl | 14 |
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 /^%/; |