diff options
author | Karl Berry <karl@freefriends.org> | 2009-11-26 19:31:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-11-26 19:31:48 +0000 |
commit | de7b76c392abe4463c6a765f01b58096a8ebd040 (patch) | |
tree | 3b2fbc1421f3037068addd66954095a24d042963 /Master/texmf-dist/scripts | |
parent | cee29d1652d5add426ac3aae626f1700ed9e7458 (diff) |
perltex 2.0 (24nov09)
git-svn-id: svn://tug.org/texlive/trunk@16180 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-x | Master/texmf-dist/scripts/perltex/perltex.pl (renamed from Master/texmf-dist/scripts/perltex/perltex) | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/perltex/perltex b/Master/texmf-dist/scripts/perltex/perltex.pl index 47f8cfc27ec..64309cc1926 100755 --- a/Master/texmf-dist/scripts/perltex/perltex +++ b/Master/texmf-dist/scripts/perltex/perltex.pl @@ -39,6 +39,7 @@ use Pod::Usage; use File::Basename; use Fcntl; use POSIX; +use Cwd qw(abs_path); use IO::Handle; use warnings; use strict; @@ -104,6 +105,13 @@ $latexcmdline[$firstcmd] = '\plmac@doneflag', $doneflag, '\plmac@pipe', $pipe, $latexcmdline[$firstcmd]; +$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; $SIG{"ALRM"} = sub { undef $latexpid; exit 0; @@ -133,6 +141,7 @@ sub awaitexists ($) } delete_files($toperl, $fromperl, $toflag, $fromflag, $doneflag, $pipe); open (LOGFILE, ">$logfile") || die "open(\"$logfile\"): $!\n"; +autoflush LOGFILE 1; if (defined $styfile) { open (STYFILE, ">$styfile") || die "open(\"$styfile\"): $!\n"; } @@ -211,6 +220,7 @@ while (1) { if ($@) { my $msg = $@; $msg =~ s/at \(eval \d+\) line \d+\W+//; + $msg =~ s/\n/\\MessageBreak\n/g; $msg =~ s/\s+/ /; $result = "\\PackageError{perltex}{$msg}"; my @helpstring; |