From a67499e8bd4537ee7be409ff29a79a4d2a1b13c6 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Sun, 9 Dec 2001 19:53:16 -0500
Subject: [PATCH] (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
---
 t/op/stat.t | 5 +++++
 1 file changed, 5 insertions(+)

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');
 
-- 
2.7.4