diff options
| author | markm <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
| commit | 3eac21f49bc763a6c0044b4afbc0c7ece760144f (patch) | |
| tree | 4cf1274fa3ca68f7ecf6a3051e0c2243e378afc5 /contrib/perl5/util.h | |
| parent | 259bd53c06712c4ffb0ab7e06898c19ebf221b21 (diff) | |
| download | FreeBSD-src-3eac21f49bc763a6c0044b4afbc0c7ece760144f.zip FreeBSD-src-3eac21f49bc763a6c0044b4afbc0c7ece760144f.tar.gz | |
Vendor import Perl 5.6.1
Diffstat (limited to 'contrib/perl5/util.h')
| -rw-r--r-- | contrib/perl5/util.h | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/contrib/perl5/util.h b/contrib/perl5/util.h index beb5215..d188e34 100644 --- a/contrib/perl5/util.h +++ b/contrib/perl5/util.h @@ -1,6 +1,6 @@ /* util.h * - * Copyright (c) 1991-2000, Larry Wall + * Copyright (c) 1991-2001, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -21,12 +21,16 @@ || ((f)[0] && (f)[1] == ':') /* drive name */ \ || ((f)[0] == '\\' && (f)[1] == '\\')) /* UNC path */ # else /* !WIN32 */ -# ifdef DOSISH +# if defined( DOSISH) || defined(EPOC) # define PERL_FILE_IS_ABSOLUTE(f) \ (*(f) == '/' \ || ((f)[0] && (f)[1] == ':')) /* drive name */ -# else /* !DOSISH */ -# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/') +# else /* NEITHER DOSISH NOR EPOCISH */ +# ifdef MACOS_TRADITIONAL +# define PERL_FILE_IS_ABSOLUTE(f) (strchr(f, ':') && *(f) != ':') +# else /* !MACOS_TRADITIONAL */ +# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/') +# endif /* MACOS_TRADITIONAL */ # endif /* DOSISH */ # endif /* WIN32 */ #endif /* VMS */ |
