diff options
-rwxr-xr-x | minimun | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5,13 +5,13 @@ use warnings; use IPC::Run qw(run); use Time::HiRes qw( time ); -my $in; +my ($in, $out); $in .= "\\award\n"; $in .= "\\bye\n"; my $timestamp = time; -run ['/usr/bin/pdftex', '-jobname', "$timestamp", 'format.tex'], '<', \$in; +run ['/usr/bin/pdftex', '-jobname', "$timestamp", 'format.tex'], '<', \$in, '>', \$out; print "Content-type: application/pdf\n\n"; open(DOC, '<', "$timestamp.pdf"); while (<DOC>){ |