diff options
author | Karl Berry <karl@freefriends.org> | 2009-07-17 00:59:32 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-07-17 00:59:32 +0000 |
commit | 076fafe106fea5f8bb247a0b9ef5f913ce341311 (patch) | |
tree | 09e36ff5bd4c6eba71849dc7e0828f3890489a78 /Master/texmf-dist/scripts/pdfcrop | |
parent | c952cbb692e8859d785a93ba914937a94aff1269 (diff) |
pdfcrop 1.15 (14jul09)
git-svn-id: svn://tug.org/texlive/trunk@14291 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/pdfcrop')
-rwxr-xr-x | Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl b/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl index a8768f0ef0d..412e979ac50 100755 --- a/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl +++ b/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl @@ -5,7 +5,7 @@ $^W=1; # turn warning on # # pdfcrop.pl # -# Copyright (C) 2002, 2004, 2005, 2008 Heiko Oberdiek. +# Copyright (C) 2002, 2004, 2005, 2008, 2009 Heiko Oberdiek. # # This program may be distributed and/or modified under the # conditions of the LaTeX Project Public License, either version 1.2 @@ -22,10 +22,10 @@ $^W=1; # turn warning on # my $file = "pdfcrop.pl"; my $program = uc($&) if $file =~ /^\w+/; -my $version = "1.14"; -my $date = "2008/09/12"; +my $version = "1.15"; +my $date = "2009/07/14"; my $author = "Heiko Oberdiek"; -my $copyright = "Copyright (c) 2002-2008 by $author."; +my $copyright = "Copyright (c) 2002-2009 by $author."; # # Reqirements: Perl5, Ghostscript # History: @@ -50,6 +50,8 @@ my $copyright = "Copyright (c) 2002-2008 by $author."; # Input files with unsafe file names are linked/copied # to temporary file with safe file name. # 2008/09/12 v1.14: Error detection for invalid Bounding Boxes. +# 2009/07/14 v1.15: Fix for negative coordinates in Bounding Boxes +# (David Menestrina). ### program identification my $title = "$program $version, $date - $copyright\n"; @@ -401,7 +403,7 @@ my $bb = ($::opt_hires) ? "%%HiResBoundingBox" : "%%BoundingBox"; while (<GS>) { print $_ if $::opt_verbose; next unless - /^$bb:\s*([\.\d]+) ([\.\d]+) ([\.\d]+) ([\.\d]+)/o; + /^$bb:\s*(-?[\.\d]+) (-?[\.\d]+) (-?[\.\d]+) (-?[\.\d]+)/o; @bbox = ($1, $2, $3, $4) unless $::opt_bbox; $page++; |