perllocale.pod changes

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index e5d263a..b65bdb9 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -723,11 +723,7 @@ perl_destruct(pTHXx)
     Safefree(PL_psig_ptr);
     Safefree(PL_psig_name);
     nuke_stacks();
-#ifdef EBCDIC
-    PL_hints = HINT_BYTE;      /* Reset hints. Should hints be per-interpreter ? */
-#else
     PL_hints = 0;              /* Reset hints. Should hints be per-interpreter ? */
-#endif
     
     DEBUG_P(debprofdump());
 #ifdef USE_THREADS
@@ -2029,7 +2025,7 @@ NULL
 char *
 Perl_moreswitches(pTHX_ char *s)
 {
-    I32 numlen;
+    STRLEN numlen;
     U32 rschar;
 
     switch (*s) {
@@ -2510,20 +2506,12 @@ S_init_main_stash(pTHX)
     HvNAME(PL_defstash) = savepv("main");
     PL_incgv = gv_HVadd(gv_AVadd(gv_fetchpv("INC",TRUE, SVt_PVAV)));
     GvMULTI_on(PL_incgv);
-#ifdef EBCDIC
-    PL_hintgv = gv_fetchpv("\010",TRUE, SVt_PV); /* ^H */
-#else
     PL_hintgv = gv_fetchpv("\010",TRUE, SVt_PV); /* ^H */
-#endif
     GvMULTI_on(PL_hintgv);
     PL_defgv = gv_fetchpv("_",TRUE, SVt_PVAV);
     PL_errgv = gv_HVadd(gv_fetchpv("@", TRUE, SVt_PV));
     GvMULTI_on(PL_errgv);
-#ifdef EBCDIC
-    PL_replgv = gv_fetchpv("\022", TRUE, SVt_PV); /* ^R */
-#else
     PL_replgv = gv_fetchpv("\022", TRUE, SVt_PV); /* ^R */
-#endif
     GvMULTI_on(PL_replgv);
     (void)Perl_form(aTHX_ "%240s",""); /* Preallocate temp - for immediate signals. */
     sv_grow(ERRSV, 240);       /* Preallocate - for immediate signals. */
@@ -3649,6 +3637,7 @@ S_init_main_thread(pTHX)
     thr->tid = 0;
     thr->next = thr;
     thr->prev = thr;
+    thr->thr_done = 0;
     MUTEX_UNLOCK(&PL_threads_mutex);
 
 #ifdef HAVE_THREAD_INTERN