diff options
| author | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
| commit | f56e05005c751822074f0a22aa9a98d2eb189924 (patch) | |
| tree | e28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/util.h | |
| parent | 344ddc14973a1519f100f54051dcb068069fe43c (diff) | |
| download | FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz | |
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/util.h')
| -rw-r--r-- | contrib/perl5/util.h | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/contrib/perl5/util.h b/contrib/perl5/util.h deleted file mode 100644 index d188e34..0000000 --- a/contrib/perl5/util.h +++ /dev/null @@ -1,36 +0,0 @@ -/* util.h - * - * 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. - * - */ - -#ifdef VMS -# define PERL_FILE_IS_ABSOLUTE(f) \ - (*(f) == '/' \ - || (strchr(f,':') \ - || ((*(f) == '[' || *(f) == '<') \ - && (isALNUM((f)[1]) || strchr("$-_]>",(f)[1]))))) - -#else /* !VMS */ -# ifdef WIN32 -# define PERL_FILE_IS_ABSOLUTE(f) \ - (*(f) == '/' \ - || ((f)[0] && (f)[1] == ':') /* drive name */ \ - || ((f)[0] == '\\' && (f)[1] == '\\')) /* UNC path */ -# else /* !WIN32 */ -# if defined( DOSISH) || defined(EPOC) -# define PERL_FILE_IS_ABSOLUTE(f) \ - (*(f) == '/' \ - || ((f)[0] && (f)[1] == ':')) /* drive name */ -# 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 */ |
