… | |
… | |
72 | { |
72 | { |
73 | AV *priv = newAV (); |
73 | AV *priv = newAV (); |
74 | SV *rv = newRV_noinc ((SV *)priv); |
74 | SV *rv = newRV_noinc ((SV *)priv); |
75 | |
75 | |
76 | av_fill (priv, CD_MAX); |
76 | av_fill (priv, CD_MAX); |
77 | AvARRAY (priv)[CD_WAIT] = newAV (); /* badbad */ |
77 | AvARRAY (priv)[CD_WAIT] = (SV *)newAV (); /* badbad */ |
78 | AvARRAY (priv)[CD_TYPE] = newSViv (type); |
78 | AvARRAY (priv)[CD_TYPE] = newSViv (type); |
79 | AvARRAY (priv)[CD_OK ] = &PL_sv_no; |
79 | AvARRAY (priv)[CD_OK ] = &PL_sv_no; |
80 | AvARRAY (priv)[CD_HITS] = newSViv (0); |
80 | AvARRAY (priv)[CD_HITS] = newSViv (0); |
81 | AvARRAY (priv)[CD_GOT ] = newSViv (0); |
81 | AvARRAY (priv)[CD_GOT ] = newSViv (0); |
82 | SvREADONLY_on (priv); |
82 | SvREADONLY_on (priv); |