Safefree(PL_reg_poscache);
free_tied_hv_pool();
Safefree(PL_op_mask);
- Safefree(PL_psig_ptr);
- PL_psig_ptr = (SV**)NULL;
Safefree(PL_psig_name);
PL_psig_name = (SV**)NULL;
- Safefree(PL_bitcount);
- PL_bitcount = NULL;
+ PL_psig_ptr = (SV**)NULL;
Safefree(PL_psig_pend);
PL_psig_pend = (int*)NULL;
PL_formfeed = NULL;
if ((tmpgv = gv_fetchpvs("0", GV_ADD|GV_NOTQUAL, SVt_PV))) {
sv_setpv(GvSV(tmpgv),PL_origfilename);
- {
- GV * const gv = gv_fetchpv("0", GV_ADD, SVt_PV);
- if (gv)
- sv_magic(GvSV(gv), MUTABLE_SV(gv), PERL_MAGIC_sv, "0", 1);
- }
}
if ((PL_envgv = gv_fetchpvs("ENV", GV_ADD|GV_NOTQUAL, SVt_PVHV))) {
HV *hv;
subdir = newSVsv(libdir);
if (add_versioned_sub_dirs) {
-#define PERL_ARCH_FMT_PREFIX "/"
-#define PERL_ARCH_FMT_SUFFIX ""
-#define PERL_ARCH_FMT_PATH "/" PERL_FS_VERSION
/* .../version/archname if -d .../version/archname */
- sv_catpvs(subdir, PERL_ARCH_FMT_PATH \
- PERL_ARCH_FMT_PREFIX ARCHNAME PERL_ARCH_FMT_SUFFIX);
+ sv_catpvs(subdir, "/" PERL_FS_VERSION "/" ARCHNAME);
subdir = S_incpush_if_exists(aTHX_ av, subdir, libdir);
/* .../version if -d .../version */
- sv_catpvs(subdir, PERL_ARCH_FMT_PATH);
+ sv_catpvs(subdir, "/" PERL_FS_VERSION);
subdir = S_incpush_if_exists(aTHX_ av, subdir, libdir);
}
if (addoldvers) {
for (incver = incverlist; *incver; incver++) {
/* .../xxx if -d .../xxx */
- Perl_sv_catpvf(aTHX_ subdir, PERL_ARCH_FMT_PREFIX \
- "%s" PERL_ARCH_FMT_SUFFIX, *incver);
+ Perl_sv_catpvf(aTHX_ subdir, "/%s", *incver);
subdir = S_incpush_if_exists(aTHX_ av, subdir, libdir);
}
}
if (add_archonly_sub_dirs) {
/* .../archname if -d .../archname */
- sv_catpvs(subdir,
- PERL_ARCH_FMT_PREFIX ARCHNAME PERL_ARCH_FMT_SUFFIX);
+ sv_catpvs(subdir, "/" ARCHNAME);
subdir = S_incpush_if_exists(aTHX_ av, subdir, libdir);
}