CODE:
{
int index;
- NV ret;
if(!items) {
XSRETURN_UNDEF;
}
PROTOTYPE: &@
CODE:
{
- SV *ret;
int index;
I32 markix;
GV *gv;
STRLEN len;
char *ptr = SvPV(str,len);
ST(0) = sv_newmortal();
- SvUPGRADE(ST(0),SVt_PVNV);
+ (void)SvUPGRADE(ST(0),SVt_PVNV);
sv_setpvn(ST(0),ptr,len);
if(SvNOKp(num) || !SvIOKp(num)) {
SvNVX(ST(0)) = SvNV(num);
croak("weak references are not implemented in this release of perl");
#endif
-SV *
+void
isweak(sv)
SV *sv
PROTOTYPE: $