diff options
author | Mark Wells <mark@freeside.biz> | 2013-02-28 20:31:12 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2013-02-28 20:31:44 -0800 |
commit | 71cfb409fca5c4f8cfb639a0f022de8c640b7775 (patch) | |
tree | 8b1e259b1b3c1cea8d06a316407df3833fb816dd /FS/FS/Misc.pm | |
parent | 2bdfa5c7730b31c51956d190aa0df2728181ab9c (diff) |
import an incredibly useful debugging tool from 2.3
Diffstat (limited to 'FS/FS/Misc.pm')
-rw-r--r-- | FS/FS/Misc.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/Misc.pm b/FS/FS/Misc.pm index 5e89abc..de9fb52 100644 --- a/FS/FS/Misc.pm +++ b/FS/FS/Misc.pm @@ -699,7 +699,8 @@ sub generate_ps { open(POSTSCRIPT, "<$file.ps") or die "can't open $file.ps: $! (error in LaTeX template?)\n"; - unlink("$file.dvi", "$file.log", "$file.aux", "$file.ps", "$file.tex"); + unlink("$file.dvi", "$file.log", "$file.aux", "$file.ps", "$file.tex") + unless $FS::CurrentUser::CurrentUser->option('save_tmp_typesetting'); my $ps = ''; @@ -757,7 +758,8 @@ sub generate_pdf { open(PDF, "<$file.pdf") or die "can't open $file.pdf: $! (error in LaTeX template?)\n"; - unlink("$file.dvi", "$file.log", "$file.aux", "$file.pdf", "$file.tex"); + unlink("$file.dvi", "$file.log", "$file.aux", "$file.pdf", "$file.tex") + unless $FS::CurrentUser::CurrentUser->option('save_tmp_typesetting'); my $pdf = ''; while (<PDF>) { |