Change 13593: [PATCH t/test.pl] Moving Cygwin .exe logic into which_perl

[Jarkko Hietaniemi]

Change 13593 by jhi@alpha on 2001/12/10 13:22:49

        Subject: [PATCH t/test.pl] Moving Cygwin .exe logic into which_perl
        From: Michael G Schwern <[EMAIL PROTECTED]>
        Date: Mon, 10 Dec 2001 02:54:22 -0500
        Message-ID: <20011210075422.GI1770@blackrider>

Affected files ...

.... //depot/perl/t/test.pl#24 edit

Differences ...

==== //depot/perl/t/test.pl#24 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~  Mon Dec 10 06:30:06 2001
+++ perl/t/test.pl      Mon Dec 10 06:30:06 2001
@@ -302,6 +302,11 @@
            }
        }
        
+        # Its like this.  stat on Cygwin treats 'perl' to mean 'perl.exe'
+        # but open does not.  This can get confusing, so to be safe we
+        # always put the .exe on the end on Cygwin.
+        $Perl .= $exe if $^O eq 'cygwin' && $Perl !~ /\Q$exe\E$/;
+
        warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;
        
        # For subcommands to use.
End of Patch.