diff options
| author | Karl Berry <karl@freefriends.org> | 2009-10-03 15:28:25 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2009-10-03 15:28:25 +0000 |
| commit | b316efb7c226ec53ad21c090980220a4dacd15ff (patch) | |
| tree | 7f08ae23b5af61ca3574aa88326cea1606cc9910 /Master/tlpkg/libexec | |
| parent | ffae7911290698a9da1d39087cd103badc4c586c (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-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"; |