From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 10 Dec 2001 00:53:16 +0000 (-0500)
Subject: (retracted by #13597, #13593 does the job better)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a67499e8bd4537ee7be409ff29a79a4d2a1b13c6;p=p5sagit%2Fp5-mst-13.2.git

(retracted by #13597, #13593 does the job better)

Subject: [PATCH t/op/stat.t] -B/-T Cygwin fix
Message-ID: <20011210055316.GA1770@blackrider>

p4raw-id: //depot/perl@13596
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 79f9e29..d915061 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -309,6 +309,11 @@ SKIP: {
 ok(-T 'op/stat.t',      '-T');
 ok(! -B 'op/stat.t',    '!-B');
 
+# Its like this.  stat on Cygwin treats 'perl' to mean 'perl.exe'.  So
+# all the file test operators work that way except -B and -T which
+# has to actually open the file.  open doesn't do the .exe magic.
+$Perl .= $Config{_exe} if $Is_Cygwin and $Perl !~ /$Config{_exe}$/;
+
 ok(-B $Perl,      '-B');
 ok(! -T $Perl,    '!-T');