diff options
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 */ |