Help for this page

Select Code to Download


  1. or download this
        SV *sv_name = newSVpv("Carp", 0);
    warn("refbefore %d",SvREFCNT(sv_name));
    load_module(PERL_LOADMOD_NOIMPORT, sv_name, Nullsv);
    warn("refafter %d",SvREFCNT(sv_name));
  2. or download this
    refbefore 1 at ....
refafter 0 at  ....