diff -Naur Pod-Perldoc-3.14_03/lib/Pod/Perldoc.pm Pod-Perldoc-work/lib/Pod/Perldoc.pm
--- Pod-Perldoc-3.14_03/lib/Pod/Perldoc.pm 2007-09-03 19:08:45.000000000 +0000
+++ Pod-Perldoc-work/lib/Pod/Perldoc.pm 2007-10-25 21:57:39.000000000 +0000
@@ -1342,55 +1342,15 @@
# occasionally hazy distinction between OS-local extension
# associations, and browser-specific MIME mappings.
- if ($self->{'output_to_stdout'}) {
- $self->aside("Sending unpaged output to STDOUT.\n");
- local $_;
- my $any_error = 0;
- foreach my $output (@found) {
- unless( open(TMP, "<", $output) ) { # XXX 5.6ism
- warn("Can't open $output: $!");
- $any_error = 1;
- next;
- }
- while (<TMP>) {
- print or die "Can't print to stdout: $!";
- }
- close TMP or die "Can't close while $output: $!";
- $self->unlink_if_temp_file($output);
- }
- return $any_error; # successful
+ if(@found > 1) {
+ warn
+ "Perldoc is only really meant for reading one document at a time.\n",
+ "So these files are being ignored: ",
+ join(' ', @found[1 .. $#found] ),
+ "\n"
}
- foreach my $pager ( $self->pagers ) {
- $self->aside("About to try calling $pager @found\n");
- if (system($pager, @found) == 0) {
- $self->aside("Yay, it worked.\n");
- return 0;
- }
- $self->aside("That didn't work.\n");
-
- # Odd -- when it fails, under Win32, this seems to neither
- # return with a fail nor return with a success!!
- # That's discouraging!
- }
-
- $self->aside(
- sprintf "Can't manage to find a way to page [%s] via pagers [%s]\n",
- join(' ', @found),
- join(' ', $self->pagers),
- );
-
- if (IS_VMS) {
- DEBUG > 1 and print "Bailing out in a VMSish way.\n";
- eval q{
- use vmsish qw(status exit);
- exit $?;
- 1;
- } or die;
- }
-
- return 1;
- # i.e., an UNSUCCESSFUL return value!
+ return $self->page($found[0], $self->{'output_to_stdout'}, $self->pagers);
}
#..........................................................................
