Lines Matching refs:output
127 sub opt_t { # choose plaintext as output format
133 sub opt_u { # choose raw pod as output format
140 # choose man as the output format, and specify the proggy to run
146 sub opt_o_with { # "o" for output format
152 warn "\"$rest\" isn't a valid output format. Skipping.\n";
156 $self->aside("Noting \"$rest\" as desired output format...\n");
256 -T Send output to STDOUT without any pager
558 printf "Perldoc (%s) output saved to %s\n",
978 # that the output file does in fact exist and is closed.
986 # as a 0-length output file?
1258 $self->aside("Sending unpaged output to STDOUT.\n");
1261 foreach my $output (@found) {
1262 unless( open(TMP, "<", $output) ) { # XXX 5.6ism
1263 warn("Can't open $output: $!");
1270 close TMP or die "Can't close while $output: $!";
1271 $self->unlink_if_temp_file($output);
1421 DEBUG > 3 and print "About to try writing to specified output file $outspec\n";
1479 sub page { # apply a pager to the output file
1480 my ($self, $output, $output_to_stdout, @pagers) = @_;
1482 $self->aside("Sending unpaged output to STDOUT.\n");
1483 open(TMP, "<", $output) or die "Can't open $output: $!"; # XXX 5.6ism
1488 close TMP or die "Can't close while $output: $!";
1489 $self->unlink_if_temp_file($output);
1494 $output = VMS::Filespec::rmsexpand($output, '.') if IS_VMS;
1496 $self->aside("About to try calling $pager $output\n");
1498 last if system("$pager $output") == 0;
1500 last if system("$pager \"$output\"") == 0;