This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [perl #30633] Perl's "do" operator with a variety of absolute paths under Cygwin
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Tue, 2 Nov 2004 17:24:29 +0000 (09:24 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 Nov 2004 07:39:04 +0000 (07:39 +0000)
Message-ID: <20041103012429.GA7196@efn.org>

p4raw-id: //depot/perl@23468

util.h

diff --git a/util.h b/util.h
index 2319d15..1a1c9ff 100644 (file)
--- 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 */