summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/perltex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-09-13 16:20:48 +0000
committerKarl Berry <karl@freefriends.org>2010-09-13 16:20:48 +0000
commit086bc4b16ab450babff05841b78cc999f38fe5bd (patch)
treedde996306453023735f436cc66c9fe0177e7584e /Master/texmf-dist/source/latex/perltex
parent4b0df656c35cd9a2eded4e224631cc9d74fe70d4 (diff)
perltex 2.1 (25jul10)
git-svn-id: svn://tug.org/texlive/trunk@19702 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/perltex')
-rw-r--r--Master/texmf-dist/source/latex/perltex/perltex.dtx51
-rw-r--r--Master/texmf-dist/source/latex/perltex/perltex.ins4
2 files changed, 31 insertions, 24 deletions
diff --git a/Master/texmf-dist/source/latex/perltex/perltex.dtx b/Master/texmf-dist/source/latex/perltex/perltex.dtx
index 4513a50f8d3..3f61570dda6 100644
--- a/Master/texmf-dist/source/latex/perltex/perltex.dtx
+++ b/Master/texmf-dist/source/latex/perltex/perltex.dtx
@@ -1,6 +1,6 @@
% \iffalse meta-comment
%
-% Copyright (C) 2009 Scott Pakin <scott+pt@pakin.org>
+% Copyright (C) 2010 Scott Pakin <scott+pt@pakin.org>
% ---------------------------------------------------
%
% This file may be distributed and/or modified under the conditions of
@@ -22,7 +22,7 @@
%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<package>\ProvidesPackage{perltex}
%<*package>
- [2009/11/24 v2.0 LaTeX macros for use with PerlTeX]
+ [2010/07/10 v2.1 LaTeX macros for use with PerlTeX]
%</package>
%
%<*driver>
@@ -62,7 +62,7 @@
%</driver>
% \fi
%
-% \CheckSum{601}
+% \CheckSum{602}
%
% \CharacterTable
% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
@@ -921,7 +921,7 @@
% \section{License agreement}
% \label{sec:license}
%
-% Copyright \textcopyright{} 2009 Scott Pakin \texttt{<scott+pt@pakin.org>}
+% Copyright \textcopyright{} 2010 Scott Pakin \texttt{<scott+pt@pakin.org>}
%
% \providecommand{\url}[1]{\texttt{##1}}
%
@@ -939,15 +939,16 @@
% \label{sec:acknowledgments}
%
% Thanks to Andrew Mertz for writing the first draft of the code that
-% produces the \PerlTeX-free \noperlmac\ style file and for testing
-% the final draft; to Andrei Alexandrescu for providing a few bug
-% fixes; and to Nick Andrewes for identifying and helping diagnose a
-% problem running \PerlTeX\ with \XeTeX\ and to Jonathan Kew for
-% suggesting a workaround. Also, thanks to the many people who have
-% sent me fan mail or submitted bug reports, documentation
-% corrections, or feature requests. (The \texttt{\string\perldo}
-% macro and the \texttt{--makesty} option were particularly popular
-% requests.)
+% produces the \PerlTeX-free \noperlmac\ style file and for testing the
+% final draft; to Andrei Alexandrescu for providing a few bug fixes; to
+% Nick Andrewes for identifying and helping diagnose a problem running
+% \PerlTeX\ with \XeTeX\ and to Jonathan Kew for suggesting a
+% workaround; and to Linus K\"allberg for reporting and helping diagnose
+% some problems with running \PerlTeX\ on Windows. Also, thanks to the
+% many people who have sent me fan mail or submitted bug reports,
+% documentation corrections, or feature requests. (The
+% \texttt{\string\perldo} macro and the \texttt{--makesty} option were
+% particularly popular requests.)
%
% \PrintChanges
% \PrintIndex
@@ -2144,7 +2145,7 @@
#
# This is a generated file.
#
-# Copyright (C) 2009 Scott Pakin <scott+pt@pakin.org>
+# Copyright (C) 2010 Scott Pakin <scott+pt@pakin.org>
#
# This file may be distributed and/or modified under the conditions
# of the LaTeX Project Public License, either version 1.3c of this
@@ -2192,7 +2193,7 @@ use Pod::Usage;
use File::Basename;
use Fcntl;
use POSIX;
-use Cwd qw(abs_path);
+use File::Spec;
use IO::Handle;
use warnings;
use strict;
@@ -2433,14 +2434,17 @@ $latexcmdline[$firstcmd] =
% \changes{v2.0}{2009/11/24}{Refer to each communication file using
% its absolute path. This makes \perltex\ robust to user code
% that changes the current directory}
+% \changes{v2.1}{2010/07/10}{Replaced \texttt{abs\_path()} with
+% \texttt{File::Spec-\char"3Erel2abs()} because the latter seems
+% to be more robust to nonexistent files}
% \begin{macrocode}
-$toperl = abs_path $toperl;
-$fromperl = abs_path $fromperl;
-$toflag = abs_path $toflag;
-$fromflag = abs_path $fromflag;
-$doneflag = abs_path $doneflag;
-$logfile = abs_path $logfile;
-$pipe = abs_path $pipe;
+$toperl = File::Spec->rel2abs($toperl);
+$fromperl = File::Spec->rel2abs($fromperl);
+$toflag = File::Spec->rel2abs($toflag);
+$fromflag = File::Spec->rel2abs($fromflag);
+$doneflag = File::Spec->rel2abs($doneflag);
+$logfile = File::Spec->rel2abs($logfile);
+$pipe = File::Spec->rel2abs($pipe);
% \end{macrocode}
%
% \changes{v1.9}{2009/09/13}{Introduced handlers for \textsc{sigalrm}
@@ -2615,7 +2619,10 @@ while (1) {
% the Perl code to define. If |$optag| is |USE| then |@otherstuff| will
% be a list of subroutine arguments. If |$optag| is |RUN| then
% |@otherstuff| will be a block of Perl code to run.
+% \changes{v2.1}{2010/07/10}{Normalized line endings across
+% Unix\slash Windows\slash Macintosh}
% \begin{macrocode}
+ $entirefile =~ s/\r//g;
my ($optag, $macroname, @otherstuff) =
map {chomp; $_} split "$separator\n", $entirefile;
% \end{macrocode}
diff --git a/Master/texmf-dist/source/latex/perltex/perltex.ins b/Master/texmf-dist/source/latex/perltex/perltex.ins
index 6abc0acbf3e..6f5b1b2fa57 100644
--- a/Master/texmf-dist/source/latex/perltex/perltex.ins
+++ b/Master/texmf-dist/source/latex/perltex/perltex.ins
@@ -1,5 +1,5 @@
%%
-%% Copyright (C) 2009 Scott Pakin <scott+pt@pakin.org>
+%% Copyright (C) 2010 Scott Pakin <scott+pt@pakin.org>
%%
%% This file may be distributed and/or modified under the conditions of
%% the LaTeX Project Public License, either version 1.3c of this license
@@ -21,7 +21,7 @@
This is a generated file.
-Copyright (C) 2009 Scott Pakin <scott+pt@pakin.org>
+Copyright (C) 2010 Scott Pakin <scott+pt@pakin.org>
This file may be distributed and/or modified under the conditions of
the LaTeX Project Public License, either version 1.3c of this license