ALLOC_THREAD_KEY; \
PERL_SET_THX(my_perl); \
OP_REFCNT_INIT; \
+ MUTEX_INIT(&PL_dollarzero_mutex); \
} \
else { \
PERL_SET_THX(my_perl); \
/* Init the real globals (and main thread)? */
if (!PL_linestr) {
-#ifdef USE_ITHREADS
- MUTEX_INIT(&PL_dollarzero_mutex); /* for $0 modifying */
-#endif
#ifdef PERL_FLEXIBLE_EXCEPTIONS
PL_protect = MEMBER_TO_FPTR(Perl_default_protect); /* for exceptions */
#endif
Safefree(PL_exitlist);
+ PL_exitlist = NULL;
+ PL_exitlistlen = 0;
+
if (destruct_level == 0){
DEBUG_P(debprofdump());
Tells Perl to C<require> the file named by the string argument. It is
analogous to the Perl code C<eval "require '$file'">. It's even
-implemented that way; consider using Perl_load_module instead.
+implemented that way; consider using load_module instead.
=cut */
return s;
case 'A':
forbid_setid("-A");
+ if (!PL_preambleav)
+ PL_preambleav = newAV();
if (*++s) {
- SV *sv=newSVpv("use assertions::activate split(/,/,q{",0);
+ SV *sv = newSVpvn("use assertions::activate split(/,/,q{",37);
sv_catpv(sv,s);
sv_catpv(sv,"})");
s+=strlen(s);
- if(!PL_preambleav)
- PL_preambleav = newAV();
av_push(PL_preambleav, sv);
}
else
- Perl_croak(aTHX_ "No space allowed after -A");
+ av_push(PL_preambleav, newSVpvn("use assertions::activate",24));
return s;
case 'M':
forbid_setid("-M"); /* XXX ? */
"EPOC port by Olaf Flebbe, 1999-2002\n");
#endif
#ifdef UNDER_CE
- printf("WINCE port by Rainer Keuchel, 2001-2002\n");
- printf("Built on " __DATE__ " " __TIME__ "\n\n");
+ PerlIO_printf(PerlIO_stdout(),"WINCE port by Rainer Keuchel, 2001-2002\n");
+ PerlIO_printf(PerlIO_stdout(),"Built on " __DATE__ " " __TIME__ "\n\n");
wce_hitreturn();
#endif
#ifdef BINARY_BUILD_NOTICE