This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(retracted by #13597, #13593 does the job better)
authorMichael G. Schwern <schwern@pobox.com>
Mon, 10 Dec 2001 00:53:16 +0000 (19:53 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 10 Dec 2001 13:31:38 +0000 (13:31 +0000)
Subject: [PATCH t/op/stat.t] -B/-T Cygwin fix
Message-ID: <20011210055316.GA1770@blackrider>

p4raw-id: //depot/perl@13596

t/op/stat.t

index 79f9e29..d915061 100755 (executable)
@@ -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');