Change 13596 by jhi@alpha on 2001/12/10 13:31:38
(retracted by #13597, #13593 does the job better)
Subject: [PATCH t/op/stat.t] -B/-T Cygwin fix
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Mon, 10 Dec 2001 00:53:16 -0500
Message-ID: <20011210055316.GA1770@blackrider>
Affected files ...
.... //depot/perl/t/op/stat.t#46 edit
Differences ...
==== //depot/perl/t/op/stat.t#46 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Mon Dec 10 06:45:05 2001
+++ perl/t/op/stat.t Mon Dec 10 06:45:05 2001
@@ -309,6 +309,11 @@
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');
End of Patch.
