diff options
Diffstat (limited to 'Master/tlpkg/libexec/ctan2tds')
| -rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 12 |
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"; |