summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/pkfix
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-04-23 00:59:42 +0000
committerKarl Berry <karl@freefriends.org>2011-04-23 00:59:42 +0000
commit01694b80764a573ee0f6143764493534e7c51c40 (patch)
tree4d120ad2023ba1052f8cf73172325c5bc19bac3b /Master/texmf-dist/scripts/pkfix
parent4dfbc3879382b413ec0e5b66cfa08cb7200a449a (diff)
pkfix (22apr11)
git-svn-id: svn://tug.org/texlive/trunk@22168 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/pkfix')
-rwxr-xr-xMaster/texmf-dist/scripts/pkfix/pkfix.pl13
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/texmf-dist/scripts/pkfix/pkfix.pl b/Master/texmf-dist/scripts/pkfix/pkfix.pl
index 52e4d7698e8..9a983f0a272 100755
--- a/Master/texmf-dist/scripts/pkfix/pkfix.pl
+++ b/Master/texmf-dist/scripts/pkfix/pkfix.pl
@@ -5,7 +5,7 @@ $^W=1; # turn warning on
#
# pkfix.pl
#
-# Copyright (C) 2001, 2005, 2007, 2009 Heiko Oberdiek.
+# Copyright (C) 2001, 2005, 2007, 2009, 2011 Heiko Oberdiek.
#
# This work may be distributed and/or modified under the
# conditions of the LaTeX Project Public License, either version 1.3
@@ -25,10 +25,10 @@ $^W=1; # turn warning on
my $file = "pkfix.pl";
my $program = uc($&) if $file =~ /^\w+/;
my $project = lc($program);
-my $version = "1.5";
-my $date = "2009/03/18";
+my $version = "1.6";
+my $date = "2011/04/22";
my $author = "Heiko Oberdiek";
-my $copyright = "Copyright (c) 2001, 2005, 2007, 2009 by $author.";
+my $copyright = "Copyright (c) 2001, 2005, 2007, 2009, 2011 by $author.";
#
# Reqirements: Perl5, dvips
# History:
@@ -77,6 +77,9 @@ my $copyright = "Copyright (c) 2001, 2005, 2007, 2009 by $author.";
# * Deprecation warning of perl 5.8.8 fixed.
# 2009/03/18 v1.5:
# * Patch to support dvips 5.399 (submitted by Melissa O'Neill).
+# 2011/04/22 v1.6:
+# * Bug fix: input and output files are read and written in
+# binary mode (thanks M.S. Dousti for bug report).
#
### program identification
my $title = "$program $version, $date - $copyright\n";
@@ -204,7 +207,9 @@ my $encoding_string = "";
### open input and output files
open(IN, $infile) or die "$Error Cannot open `$infile'!\n";
+binmode(IN);
open(OUT, ">$outfile") or die "$Error Cannot write `$outfile'!\n";
+binmode(OUT);
##################################
# expected format: