From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Tue, 2 Nov 2004 17:24:29 +0000 (-0800)
Subject: Re: [perl #30633] Perl's "do" operator with a variety of absolute paths under Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=546cd220972dafe91724980b525f77bf080c60b2;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #30633] Perl's "do" operator with a variety of absolute paths under Cygwin
Message-ID: <20041103012429.GA7196@efn.org>

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

diff --git a/util.h b/util.h
index 2319d15..1a1c9ff 100644
--- a/util.h
+++ b/util.h
@@ -16,7 +16,7 @@
 		 && (isALNUM((f)[1]) || strchr("$-_]>",(f)[1])))))
 
 #else		/* !VMS */
-#  ifdef WIN32
+#  if defined(WIN32) || defined(__CYGWIN__)
 #    define PERL_FILE_IS_ABSOLUTE(f) \
 	(*(f) == '/' || *(f) == '\\'		/* UNC/rooted path */	\
 	 || ((f)[0] && (f)[1] == ':'))		/* drive name */