From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Mon, 20 Feb 2006 11:09:33 +0000 (-0800)
Subject: op/magic failure on cygwin after 1.5.19-4
X-Git-Tag: accepted/trunk/20130322.191538~18460
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4bbb71267116eb89ad713505b2cb1ec776c520e0;p=platform%2Fupstream%2Fperl.git

op/magic failure on cygwin after 1.5.19-4
Message-ID: <20060220190933.GA1316@efn.org>

p4raw-id: //depot/perl@27252
---

diff --git a/t/op/magic.t b/t/op/magic.t
index b28a082..294beb0 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`");