summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-07-17 00:59:32 +0000
committerKarl Berry <karl@freefriends.org>2009-07-17 00:59:32 +0000
commit076fafe106fea5f8bb247a0b9ef5f913ce341311 (patch)
tree09e36ff5bd4c6eba71849dc7e0828f3890489a78 /Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl
parentc952cbb692e8859d785a93ba914937a94aff1269 (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/pdfcrop.pl')
-rwxr-xr-xMaster/texmf-dist/scripts/pdfcrop/pdfcrop.pl12
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++;