This curious code appears in perl_construct():

    #ifdef MULTIPLICITY
        init_interp();
        PL_perl_destruct_level = 1;
    #else
        if (PL_perl_destruct_level >  0)
           init_interp();
    #endif

The MULTIPLICITY case seems clear enough.  But I can't figure out why,
in the non-MULTIPLICITY case, the call to init_interp() is conditional
at all, much less why it's conditional on perl_destruct_level.

Anyone remember doing this, or seeing it done?
-- 
Chip Salzenberg                 - a.k.a. -                  <chip@[...].com> 
          schemers think buddha is small, clean, and frowns;
 lispers think buddha is big, has hairy armpits, and laughs.  -- nikodemus