(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 (executable)
--- 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');