diff options
Diffstat (limited to 'pdftool.pl')
| -rwxr-xr-x | pdftool.pl | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -416,7 +416,7 @@ open *IN, "<&PSIN" or die "Can't dup: $!"; if (defined $select) { @cmd = ('psselect', "-p$select"); push @cmd, '-q' if defined $quiet; - my $pid = open2 *OUT, "<&IN", @cmd; + my $pid = open3 "<&IN", *OUT, ">&LOG", @cmd; push @pids, [$pid, @cmd]; open *IN, "<&OUT" or die "Can't dup: $!"; } @@ -531,7 +531,7 @@ if (defined $book) { @cmd = ('psbook'); push @cmd, '-q' if defined $quiet; - my $pid = open2 *OUT, "<&IN", @cmd; + my $pid = open3 "<&IN", *OUT, ">&LOG", @cmd; open *IN, "<&OUT" or die "Can't dup: $!"; push @pids, [$pid, @cmd]; } @@ -556,7 +556,7 @@ my @specs = &calc_specs ($horiz, $vert, $rotate, $scale, my $pagespecs = "$nup:" . join ('+', @specs); @cmd = ('pstops', '-w', $bbox[2], '-h', $bbox[3], $pagespecs); push @cmd, '-q' if defined $quiet; -my $pid = open2 *OUT, "<&IN", @cmd; +my $pid = open3 "<&IN", *OUT, ">&LOG", @cmd; open *IN, "<&OUT" or die "Can't dup: $!"; push @pids, [$pid, @cmd]; @@ -569,7 +569,7 @@ push @pids, [$pid, @cmd]; "-dNOPAUSE", "-dAutoRotatePages=/None", "-c", "<< /Orientation $rotate /PageSize [$outwidth $outheight] >> setpagedevice", "-f", "-"); -$pid = open2 ">&FOUT", "<&IN", @cmd; +$pid = open3 "<&IN", ">&FOUT", ">&LOG", @cmd; push @pids, [$pid, @cmd]; |