This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[perl #70764] $' fails to initialized for pre-compiled regular expression matches
[perl5.git]
/
plan9
/
plan9ish.h
diff --git
a/plan9/plan9ish.h
b/plan9/plan9ish.h
index
bac6a92
..
0fdce12
100644
(file)
--- a/
plan9/plan9ish.h
+++ b/
plan9/plan9ish.h
@@
-54,7
+54,7
@@
/* USEMYBINMODE
* This symbol, if defined, indicates that the program should
/* USEMYBINMODE
* This symbol, if defined, indicates that the program should
- * use the routine my_binmode(FILE *fp, char iotype) to insure
+ * use the routine my_binmode(FILE *fp, char iotype
, int mode
) to insure
* that a file is in "binary" mode -- that is, that no translation
* of bytes occurs on read or write operations.
*/
* that a file is in "binary" mode -- that is, that no translation
* of bytes occurs on read or write operations.
*/
@@
-93,9
+93,7
@@
*/
/* #define ALTERNATE_SHEBANG "#!" / **/
*/
/* #define ALTERNATE_SHEBANG "#!" / **/
-#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
-# include <signal.h>
-#endif
+#include <signal.h>
#ifndef SIGABRT
# define SIGABRT SIGILL
#ifndef SIGABRT
# define SIGABRT SIGILL
@@
-106,9
+104,10
@@
#define ABORT() kill(PerlProc_getpid(),SIGABRT);
#define BIT_BUCKET "/dev/null"
#define ABORT() kill(PerlProc_getpid(),SIGABRT);
#define BIT_BUCKET "/dev/null"
-#define PERL_SYS_INIT(c,v) MALLOC_INIT
+#define PERL_SYS_INIT_BODY(c,v) \
+ MALLOC_CHECK_TAINT2(*c,*v) PERLIO_INIT; MALLOC_INIT
#define dXSUB_SYS
#define dXSUB_SYS
-#define PERL_SYS_TERM
()
MALLOC_TERM
+#define PERL_SYS_TERM
_BODY() PERLIO_TERM;
MALLOC_TERM
/*
* fwrite1() should be a routine with the same calling sequence as fwrite(),
/*
* fwrite1() should be a routine with the same calling sequence as fwrite(),
@@
-131,4
+130,10
@@
/* For use by POSIX.xs */
extern int tcsendbreak(int, int);
/* For use by POSIX.xs */
extern int tcsendbreak(int, int);
+#define CONDOP_SIZE 4 /* The Plan 9 compiler cannot return quads from ?: */
+
+#undef HAS_SYMLINK /* Plan 9 doesn't really have these. */
+#undef HAS_LSTAT
+#undef HAS_READLINK
+
#endif /* __PLAN9ISH_H__ */
#endif /* __PLAN9ISH_H__ */