summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xpdftool.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/pdftool.pl b/pdftool.pl
index 42e792d..40a5559 100755
--- a/pdftool.pl
+++ b/pdftool.pl
@@ -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];