summaryrefslogtreecommitdiff
path: root/Master/tlpkg/libexec
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-10-03 15:28:25 +0000
committerKarl Berry <karl@freefriends.org>2009-10-03 15:28:25 +0000
commitb316efb7c226ec53ad21c090980220a4dacd15ff (patch)
tree7f08ae23b5af61ca3574aa88326cea1606cc9910 /Master/tlpkg/libexec
parentffae7911290698a9da1d39087cd103badc4c586c (diff)
fixme 4.1 (30sep09)
git-svn-id: svn://tug.org/texlive/trunk@15612 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/libexec')
-rwxr-xr-xMaster/tlpkg/libexec/ctan2tds12
1 files changed, 12 insertions, 0 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index 2d6f0341470..add8c4f5444 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -605,6 +605,7 @@ chdir $startdir || die "chdir($startdir) failed: $!"; # back to raw
%prehook = (
'cm-super' => '&PREHOOK_cm_super',
+ 'fixme' => '&PREHOOK_fixme',
'ibygrk' => '&PREHOOK_ibygrk',
'vhistory' => '&PREHOOK_vhistory',
'wsuipa' => '&PREHOOK_wsuipa',
@@ -2039,12 +2040,14 @@ sub rundvi {
sub runjob
{
my ($job) = @_;
+ my $status = 0;
if ($opt_test) {
print "WOULDRUNJOB $job\n";
} else {
my $Jobid = "_$$";
&SYSTEM ("$job >$Jobid.log 2>&1");
+ $status = $?;
local *TMP;
open (TMP, "$Jobid.log") || die "open($Jobid.log) failed: $!";
my @output = (<TMP>);
@@ -2055,7 +2058,10 @@ sub runjob
}
close (TMP);
unlink ("$Jobid.log");
+
+ die "goodbye, exit status $status for $job\n" if $status != 0;
}
+ return $status;
}
# remove all files matching something in $KILLPATT.
@@ -3450,6 +3456,12 @@ sub PREHOOK_cm_super
&SYSTEM ("$RM -rf dvipdfm");
}
+sub PREHOOK_fixme
+{
+ print "PREHOOK_$package - create dtx subdirs\n";
+ &xmkdir ("themes", "layouts", "layouts/env", "layouts/target");
+}
+
sub PREHOOK_ibygrk
{
print "PREHOOK_$package - handle ibycus4.map\n";