This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PL_bincompat_options was missing options that affect the interpreter struct.
authorNicholas Clark <nick@ccl4.org>
Mon, 18 Jul 2011 15:26:09 +0000 (17:26 +0200)
committerNicholas Clark <nick@ccl4.org>
Mon, 18 Jul 2011 15:26:09 +0000 (17:26 +0200)
It had most, but not all, C pre-processor options that change the size of the
interpreter struct.

perl.c
perl.h

diff --git a/perl.c b/perl.c
index 914fbcd..4878f9c 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1701,15 +1701,9 @@ S_Internals_V(pTHX_ CV *cv)
 #  ifdef USE_LOCALE
                             " USE_LOCALE"
 #  endif
-#  ifdef USE_LOCALE_COLLATE
-                            " USE_LOCALE_COLLATE"
-#  endif
 #  ifdef USE_LOCALE_CTYPE
                             " USE_LOCALE_CTYPE"
 #  endif
-#  ifdef USE_LOCALE_NUMERIC
-                            " USE_LOCALE_NUMERIC"
-#  endif
 #  ifdef USE_PERL_ATOF
                             " USE_PERL_ATOF"
 #  endif              
diff --git a/perl.h b/perl.h
index 25d29aa..7304e05 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4629,12 +4629,24 @@ EXTCONST char PL_bincompat_options[] =
 #  ifdef FAKE_THREADS
                             " FAKE_THREADS"
 #  endif
+#  ifdef FCRYPT
+                            " FCRYPT"
+#  endif
+#  ifdef HAS_TIMES
+                            " HAS_TIMES"
+#  endif
+#  ifdef HAVE_INTERP_INTERN
+                            "  HAVE_INTERP_INTERN"
+#  endif
 #  ifdef MULTIPLICITY
                             " MULTIPLICITY"
 #  endif
 #  ifdef MYMALLOC
                             " MYMALLOC"
 #  endif
+#  ifdef PERLIO_LAYERS
+                            " PERLIO_LAYERS"
+#  endif
 #  ifdef PERL_DEBUG_READONLY_OPS
                             " PERL_DEBUG_READONLY_OPS"
 #  endif
@@ -4650,6 +4662,9 @@ EXTCONST char PL_bincompat_options[] =
 #  ifdef PERL_MAD
                             " PERL_MAD"
 #  endif
+#  ifdef PERL_MICRO
+                            " PERL_MICRO"
+#  endif
 #  ifdef PERL_NEED_APPCTX
                             " PERL_NEED_APPCTX"
 #  endif
@@ -4689,6 +4704,12 @@ EXTCONST char PL_bincompat_options[] =
 #  ifdef USE_LARGE_FILES
                             " USE_LARGE_FILES"
 #  endif
+#  ifdef USE_LOCALE_COLLATE
+                            " USE_LOCALE_COLLATE"
+#  endif
+#  ifdef USE_LOCALE_NUMERIC
+                            " USE_LOCALE_NUMERIC"
+#  endif
 #  ifdef USE_LONG_DOUBLE
                             " USE_LONG_DOUBLE"
 #  endif