predump

   1     SV *sv;
   2     GV* tmpgv;
   3
   4     /* initialize everything that won't change if we undump */
   5
   6     if (siggv = gv_fetchpv("SIG",allgvs)) {
   7         HV *hv;
   8         SvMULTI_on(siggv);
   9         hv = GvHVn(siggv);
  10         hv_magic(hv, siggv, 'S');
  11
  12         /* initialize signal stack */
  13         signalstack = newAV();
  14         av_store(signalstack, 32, Nullsv);
  15         av_clear(signalstack);
  16         AvREAL_off(signalstack);
  17     }
  18
  19     magicalize("!#?^~=-%.+&*()<>,\\/[|`':\004\t\020\024\027\006");
  20
  21     ampergv = gv_fetchpv("&",allgvs);
  22     leftgv = gv_fetchpv("`",allgvs);
  23     rightgv = gv_fetchpv("'",allgvs);
  24     sawampersand = (ampergv || leftgv || rightgv);
  25     if (tmpgv = gv_fetchpv(":",allgvs))
  26         sv_setpv(GvSV(tmpgv),chopset);
  27
  28     /* these aren't necessarily magical */
  29     if (tmpgv = gv_fetchpv("\014",allgvs)) {
  30         sv_setpv(GvSV(tmpgv),"\f");
  31         formfeed = GvSV(tmpgv);
  32     }
  33     if (tmpgv = gv_fetchpv(";",allgvs))
  34         sv_setpv(GvSV(tmpgv),"\034");
  35     if (tmpgv = gv_fetchpv("]",allgvs)) {
  36         sv = GvSV(tmpgv);
  37         sv_upgrade(sv, SVt_PVNV);
  38         sv_setpv(sv,rcsid);
  39         SvNV(sv) = atof(patchlevel);
  40         SvNOK_on(sv);
  41     }