X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.h;h=660eb9162bdd30e04a25ff5d067cac684724b6f0;hb=538c55547865802bb03d48ace141e0ce6fbfa733;hp=ad7a28aa8180ed0e4baf1d2f40fa09a250a00a00;hpb=f2ed23b0151110f1c19629c6dc22479b1c87def4;p=p5sagit%2Fp5-mst-13.2.git diff --git a/util.h b/util.h index ad7a28a..660eb91 100644 --- a/util.h +++ b/util.h @@ -1,6 +1,7 @@ /* util.h * - * Copyright (c) 1991-2002, Larry Wall + * Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002, 2003, 2004, 2005 + * by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -15,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 */ @@ -26,11 +27,11 @@ || ((f)[0] == '\\' && (f)[1] == '\\') /* UNC path */ \ || ((f)[3] == ':')) /* volume name, currently only sys */ # else /* !NETWARE */ -# if defined( DOSISH) || defined(EPOC) +# if defined(DOSISH) || defined(EPOC) || defined(__SYMBIAN32__) # define PERL_FILE_IS_ABSOLUTE(f) \ (*(f) == '/' \ || ((f)[0] && (f)[1] == ':')) /* drive name */ -# else /* NEITHER DOSISH NOR EPOCISH */ +# else /* NEITHER DOSISH NOR EPOCISH NOR SYMBIANISH */ # ifdef MACOS_TRADITIONAL # define PERL_FILE_IS_ABSOLUTE(f) (strchr(f, ':') && *(f) != ':') # else /* !MACOS_TRADITIONAL */