summaryrefslogtreecommitdiff
path: root/util.h
diff options
context:
space:
mode:
authorYitzchak Scott-Thoennes <sthoenna@efn.org>2004-11-02 09:24:29 -0800
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-11-03 07:39:04 +0000
commit546cd220972dafe91724980b525f77bf080c60b2 (patch)
tree35323819afaa01b2d3abc0d7e2a3933040cde857 /util.h
parent81aa54e6a925ccb45b7cc335e1ceb6706382d0a8 (diff)
downloadperl-546cd220972dafe91724980b525f77bf080c60b2.tar.gz
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
Diffstat (limited to 'util.h')
-rw-r--r--util.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/util.h b/util.h
index 2319d15e1c..1a1c9ff190 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 */