2009-12-02 Stepan Kasal * add the extra symbols, even though DEBUGGING is not defined diff -ur perl-5.10.1.orig/hv.c perl-5.10.1/hv.c --- perl-5.10.1.orig/hv.c 2009-06-10 14:36:34.000000000 +0200 +++ perl-5.10.1/hv.c 2009-12-02 15:05:07.000000000 +0100 @@ -2926,7 +2926,7 @@ =cut */ -#ifdef DEBUGGING +/* #ifdef DEBUGGING */ void Perl_hv_assert(pTHX_ HV *hv) @@ -2991,7 +2991,7 @@ HvEITER_set(hv, eiter); } -#endif +/* #endif */ /* * Local variables: diff -ur perl-5.10.1.orig/makedef.pl perl-5.10.1/makedef.pl --- perl-5.10.1.orig/makedef.pl 2009-12-02 14:42:12.000000000 +0100 +++ perl-5.10.1/makedef.pl 2009-12-02 14:42:04.000000000 +0100 @@ -617,7 +617,7 @@ )]; } -unless ($define{'DEBUGGING'}) { +unless (1 || $define{'DEBUGGING'}) { skip_symbols [qw( Perl_deb_growlevel Perl_debop diff -ur perl-5.10.1.orig/pad.c perl-5.10.1/pad.c --- perl-5.10.1.orig/pad.c 2009-04-22 23:43:43.000000000 +0200 +++ perl-5.10.1/pad.c 2009-12-02 14:39:21.000000000 +0100 @@ -912,7 +912,7 @@ } -#ifdef DEBUGGING +/* #ifdef DEBUGGING */ /* =for apidoc pad_sv @@ -963,7 +963,7 @@ ); PL_curpad[po] = sv; } -#endif +/* #endif */ diff -ur perl-5.10.1.orig/perl.h perl-5.10.1/perl.h --- perl-5.10.1.orig/perl.h 2009-07-06 13:18:58.000000000 +0200 +++ perl-5.10.1/perl.h 2009-12-02 15:06:44.000000000 +0100 @@ -4457,7 +4457,7 @@ EXTCONST unsigned char PL_freq[]; #endif -#ifdef DEBUGGING +/* #ifdef DEBUGGING */ #ifdef DOINIT EXTCONST char* const PL_block_type[] = { "NULL", @@ -4473,7 +4473,7 @@ #else EXTCONST char* PL_block_type[]; #endif -#endif +/* #endif */ /* These are all the compile time options that affect binary compatibility. Other compile time options that are binary compatible are in perl.c diff -ur perl-5.10.1.orig/perlvars.h perl-5.10.1/perlvars.h --- perl-5.10.1.orig/perlvars.h 2009-02-12 23:58:17.000000000 +0100 +++ perl-5.10.1/perlvars.h 2009-12-02 15:10:39.000000000 +0100 @@ -112,9 +112,9 @@ PERLVARI(Gsig_trapped, int, 0) #endif -#ifdef DEBUGGING +/* #ifdef DEBUGGING */ PERLVAR(Gwatch_pvx, char*) -#endif +/* #endif */ #ifdef PERL_GLOBAL_STRUCT PERLVAR(Gppaddr, Perl_ppaddr_t*) /* or opcode.h */ --- perl-5.10.1/proto.h.kasal 2009-12-02 15:18:39.000000000 +0100 +++ perl-5.10.1/proto.h 2009-12-02 15:29:51.000000000 +0100 @@ -6068,13 +6068,13 @@ #define PERL_ARGS_ASSERT_PAD_CHECK_DUP \ assert(name); assert(ourstash) -#ifdef DEBUGGING +/* #ifdef DEBUGGING */ PERL_CALLCONV void Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_PAD_SETSV \ assert(sv) -#endif +/* #endif */ PERL_CALLCONV void Perl_pad_block_start(pTHX_ int full); PERL_CALLCONV void Perl_pad_tidy(pTHX_ padtidy_type type); PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full)