summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-10-09 00:54:04 +0000
committerKarl Berry <karl@freefriends.org>2009-10-09 00:54:04 +0000
commitf330b6425f6d38a871471a7009046179a4e788b4 (patch)
tree47a2ab172c7036205e97f29c79cbf2b4e50713d1 /Build
parent99b5028b97aa7142fb382e4d76a5f324689572dc (diff)
pdfcrop sync
git-svn-id: svn://tug.org/texlive/trunk@15710 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl12
1 files changed, 10 insertions, 2 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl b/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl
index 98bedd70711..7c2bd4355dd 100755
--- a/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl
+++ b/Build/source/texk/texlive/linked_scripts/pdfcrop/pdfcrop.pl
@@ -22,8 +22,8 @@ $^W=1; # turn warning on
#
my $file = "pdfcrop.pl";
my $program = uc($&) if $file =~ /^\w+/;
-my $version = "1.19";
-my $date = "2009/09/24";
+my $version = "1.20";
+my $date = "2009/10/06";
my $author = "Heiko Oberdiek";
my $copyright = "Copyright (c) 2002-2009 by $author.";
#
@@ -63,6 +63,7 @@ my $copyright = "Copyright (c) 2002-2009 by $author.";
# * Option --version added.
# 2009/09/24 v1.19: * Ghostscript detection rewritten.
# * Cygwin: `gs' is preferred to `gswin32c'.
+# 2009/10/06 v1.20: * File name sanitizing in .tex file.
### program identification
my $title = "$program $version, $date - $copyright\n";
@@ -448,6 +449,13 @@ push @unlink_files, $tmpfile;
open(TMP, ">$tmpfile") or
die "$Error Cannot write tmp file `$tmpfile'!\n";
print TMP "\\def\\pdffile{$inputfilesafe}\n";
+print TMP <<'END_TMP';
+\def\stripprefix#1>{}
+\def\onelevelsanitize#1{%
+ \edef#1{\expandafter\stripprefix\meaning#1}%
+}
+\onelevelsanitize\pdffile
+END_TMP
if ($::opt_tex eq 'pdftex') {
print TMP <<'END_TMP_HEAD';
\csname pdfmapfile\endcsname{}