summaryrefslogtreecommitdiff
path: root/t/op/magic.t
diff options
context:
space:
mode:
authorYitzchak Scott-Thoennes <sthoenna@efn.org>2006-02-20 03:09:33 -0800
committerSteve Peters <steve@fisharerojo.org>2006-02-20 23:01:41 +0000
commit4bbb71267116eb89ad713505b2cb1ec776c520e0 (patch)
treec1fc4185c8f5c22e14869afa36b617386e4e9a56 /t/op/magic.t
parent232d1c150c060ca27ef1d2d4770fed5de0e66c01 (diff)
downloadperl-4bbb71267116eb89ad713505b2cb1ec776c520e0.tar.gz
op/magic failure on cygwin after 1.5.19-4
Message-ID: <20060220190933.GA1316@efn.org> p4raw-id: //depot/perl@27252
Diffstat (limited to 't/op/magic.t')
-rwxr-xr-xt/op/magic.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t
index b28a082e79..294beb0209 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -257,7 +257,7 @@ EOF
s{\\}{/}g;
ok((($Is_MSWin32 || $Is_os2) ? uc($_) eq uc($s1) : $_ eq $s1), " :$_:!=:$s1:");
$_ = `$perl $script`;
- s/\.exe//i if $Is_Dos or $Is_os2;
+ s/\.exe//i if $Is_Dos or $Is_os2 or $Is_Cygwin;
s{./$perl}{$perl} if $Is_BeOS; # revert BeOS execvp() side-effect
s{\\}{/}g;
ok((($Is_MSWin32 || $Is_os2) ? uc($_) eq uc($s1) : $_ eq $s1), " :$_:!=:$s1: after `$perl $script`");