This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Let state sub fwd decls and nested subs work in anons
[perl5.git] / x2p / util.h
CommitLineData
8665f9e4 1/* util.h
a687059c 2 *
8665f9e4 3 * Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1999, 2000, 2005
4bb101f2 4 * by Larry Wall and others
a687059c 5 *
d48672a2
LW
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8d063cd8
LW
8 */
9
10/* is the string for makedir a directory name or a filename? */
11
55204971
LW
12#define fatal Myfatal
13
8d063cd8
LW
14#define MD_DIR 0
15#define MD_FILE 1
16
8d063cd8
LW
17#ifdef SETUIDGID
18 int eaccess();
19#endif
9c8d0b29 20
20ce7b12
GS
21char * cpy2 ( char *to, char *from, int delim );
22char * cpytill ( char *to, char *from, int delim );
23void growstr ( char **strptr, int *curlen, int newlen );
aab39148
RB
24char * instr ( char *big, const char *little );
25char * savestr ( const char *str );
b7787f18
AL
26void fatal ( const char *pat, ... );
27void warn ( const char *pat, ... );
20ce7b12 28int prewalk ( int numit, int level, int node, int *numericptr );
55497cff 29
20ce7b12 30Malloc_t safemalloc (MEM_SIZE nbytes);
20ce7b12
GS
31Malloc_t saferealloc (Malloc_t where, MEM_SIZE nbytes);
32Free_t safefree (Malloc_t where);