diff options
| author | Karl Berry <karl@freefriends.org> | 2011-04-23 00:59:42 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2011-04-23 00:59:42 +0000 |
| commit | 01694b80764a573ee0f6143764493534e7c51c40 (patch) | |
| tree | 4d120ad2023ba1052f8cf73172325c5bc19bac3b /Master/texmf-dist/scripts/pkfix/pkfix.pl | |
| parent | 4dfbc3879382b413ec0e5b66cfa08cb7200a449a (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/pkfix.pl')
| -rwxr-xr-x | Master/texmf-dist/scripts/pkfix/pkfix.pl | 13 |
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: |