Jari Aalto <[EMAIL PROTECTED]> wrote:
>--- perldoc.orig 2003-09-08 15:22:43.000000000 +0300
>+++ perldoc 2003-09-08 15:30:02.000000000 +0300
>@@ -205,7 +205,28 @@
> my($file, $readit) = @_;
> return 1 if !$readit && $file =~ /\.pod\z/i;
> local($_);
>+
>+ # Under cygwin the /usr/bin/perl is legal executable, but
>+ # you cannot open a file with that name. It must be spelled
>+ # out as "/usr/bin/perl.exe".
>+ #
>+ # The following if-case under cygwin prevents error
>+ #
>+ # $ perldoc perl
>+ # Cannot open /usr/bin/perl: no such file or directory
>+ #
>+ # This would work though
>+ #
>+ # $ perldoc perl.pod
>+
>+ if ( $Is_Cygwin and -x $file and -f "$file.exe" )
>+ {
>+ warn "Cygwin $file.exe search skipped\n" if $opt_v;
>+ return;
>+ }
>+
> open(TEST,"<", $file) or die "Can't open $file: $!";
Oo, good catch! I think that's a strange way for Cygwin to
behave, but it does, so that's a good way to work around it.
--
Sean M. Burke http://search.cpan.org/~sburke/
