summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/perltex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-11-26 19:31:48 +0000
committerKarl Berry <karl@freefriends.org>2009-11-26 19:31:48 +0000
commitde7b76c392abe4463c6a765f01b58096a8ebd040 (patch)
tree3b2fbc1421f3037068addd66954095a24d042963 /Master/texmf-dist/scripts/perltex
parentcee29d1652d5add426ac3aae626f1700ed9e7458 (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/perltex')
-rwxr-xr-xMaster/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;