diff options
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r-- | Master/texmf-dist/doc/support/pdfcrop/README | 19 | ||||
-rwxr-xr-x | Master/texmf-dist/scripts/pdfcrop/pdfcrop.pl | 12 |
2 files changed, 19 insertions, 12 deletions
diff --git a/Master/texmf-dist/doc/support/pdfcrop/README b/Master/texmf-dist/doc/support/pdfcrop/README index d9a0e4d6e21..9d47638d3f6 100644 --- a/Master/texmf-dist/doc/support/pdfcrop/README +++ b/Master/texmf-dist/doc/support/pdfcrop/README @@ -1,4 +1,4 @@ -README for pdfcrop 2008/09/12 v1.14 +README for pdfcrop 2009/07/14 v1.15 TABLE OF CONTENTS ================= @@ -23,7 +23,7 @@ PDF file with removed margins. B. COPYRIGHT, DISCLAIMER, LICENSE ================================= -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 @@ -56,8 +56,8 @@ E. INSTALLATION 1. Perl script `pdfcrop.pl': - TDS 1.1 location: - * texmf/scripts/pdfcrop/pdfcrop.pl + TDS 1.1 location (TDS means "texmf" tree, see CTAN:tds/tds.pdf): + * TDS:scripts/pdfcrop/pdfcrop.pl * and a directory that is part of PATH contains a wrapper script or link with name "pdfcrop". @@ -69,15 +69,15 @@ E. INSTALLATION * Move the file to a directory where the shell can find it (environment variable PATH, e.g. /usr/local/bin/). - Dos/Windows/(OS2) + Dos/Windows * See requirements. I do not expect that the perl script - run under DOS or Windows. With cygwin it can work however. + run under DOS. 2. Documentation `README': Copy it to an appropriate place, for example `/usr/local/share/doc/pdfcrop/README'. - I is allowed to rename it to `pdfcrop.txt'. + It is allowed to rename it to `pdfcrop.txt'. TDS location: somewhere below texmf/doc/... (?) @@ -85,6 +85,8 @@ E. INSTALLATION TDS:doc/support/pdfcrop/README TDS:doc/scripts/pdfcrop/README TDS:doc/scripts/pdfcrop.txt + TeXLive 2008 and 2009 put it in + TDS:doc/support/pdfcrop/README F. USER INTERFACE ================= @@ -110,6 +112,7 @@ Ionut Georgescu Yves J\"ager R (Chandra) Chandrasekhar Christian Stapfer +David Menestrina I. QUESTIONS, SUGGESTED IMPROVEMENTS ==================================== @@ -153,6 +156,8 @@ K. HISTORY 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). L. TODO ======= 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++; |