/* perl.h
*
* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
- * 2002, 2003, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
+ * 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
# define MALLOC_CHECK_TAINT(argc,argv,env)
#endif /* MYMALLOC */
+/* diag_listed_as: "-T" is on the #! line, it must also be used on the command line */
#define TOO_LATE_FOR_(ch,what) Perl_croak(aTHX_ "\"-%c\" is on the #! line, it must also be used on the command line%s", (char)(ch), what)
#define TOO_LATE_FOR(ch) TOO_LATE_FOR_(ch, "")
#define MALLOC_TOO_LATE_FOR(ch) TOO_LATE_FOR_(ch, " with $ENV{PERL_MALLOC_OPT}")
EXTCONST char PL_uudmap[256] =
#include "uudmap.h"
;
-# ifdef MULTIPLICITY
-/* There's no binary compatibility issue with adding a new global PL_bitcount,
- because before this change, under MULTIPLICITY the pre-processor would have
- been replacing the token PL_bitcount with an expression to access the
- interpreter struct. */
EXTCONST char PL_bitcount[256] =
-# else
-/* For binary compatibility, we can't replace the existing pointer PL_bitcount
- with an array PL_bitcount. So keep the existing variable, but make it point
- to our compile-time generated array instead. */
-EXTCONST char PL_bitcount_array[256] =
-# endif
# include "bitcount.h"
;
EXTCONST char* const PL_sig_name[] = { SIG_NAME };
EXTCONST int PL_sig_num[] = { SIG_NUM };
#else
EXTCONST char PL_uudmap[256];
-# ifdef MULTIPLICITY
EXTCONST char PL_bitcount[256];
-# else
-EXTCONST char PL_bitcount_array[256];
-# endif
EXTCONST char* const PL_sig_name[];
EXTCONST int PL_sig_num[];
#endif
typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX);
typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);
+typedef void(CPERLscope(*Perl_ophook_t))(pTHX_ OP*);
/* Interpreter exitlist entry */
typedef struct exitlistentry {