X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.h;h=7d373525bfcbd94c8f6fc7bc14140a13a6058282;hb=27cc343c4fb8030e5afb7c3824647d9e5e1d08d6;hp=2ee897e5dbcdf5f8503bdd6246a216fa1e9e5961;hpb=4c79ee7a1e7564ef83d0ac25d6677fdebb3ec7aa;p=p5sagit%2Fp5-mst-13.2.git diff --git a/util.h b/util.h index 2ee897e..7d37352 100644 --- a/util.h +++ b/util.h @@ -1,6 +1,7 @@ /* util.h * - * Copyright (c) 1991-2003, Larry Wall + * Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002, + * 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(SYMBIAN) # 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 */