PUTBACK;
rv = call_sv(MY_CXT.callback[3],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[4],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[5],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[6],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[7],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[8],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[9],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[10],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[11],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
#ifdef PERL_HAS_64BITINT
XPUSHs(sv_2mortal(newSViv(off)));
#else
- asprintf(&temp, "%llu", off);
+ if (asprintf(&temp, "%llu", off) == -1)
+ croak("Memory allocation failure!");
XPUSHs(sv_2mortal(newSVpv(temp, 0)));
free(temp);
#endif
PUTBACK;
rv = call_sv(MY_CXT.callback[12],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[13],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
#ifdef PERL_HAS_64BITINT
XPUSHs(sv_2mortal(newSViv(off)));
#else
- asprintf(&temp, "%llu", off);
+ if (asprintf(&temp, "%llu", off) == -1)
+ croak("Memory allocation failure!");
XPUSHs(sv_2mortal(newSVpv(temp, 0)));
free(temp);
#endif
#ifdef PERL_HAS_64BITINT
XPUSHs(sv_2mortal(newSViv(off)));
#else
- asprintf(&temp, "%llu", off);
+ if (asprintf(&temp, "%llu", off) == -1)
+ croak("Memory allocation failure!");
XPUSHs(sv_2mortal(newSVpv(temp, 0)));
free(temp);
#endif
PUTBACK;
rv = call_sv(MY_CXT.callback[16],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[18],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[19],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FH_RELEASEHANDLE(fi);
FREETMPS;
LEAVE;
PUTBACK;
rv = call_sv(MY_CXT.callback[20],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[21],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;
PUTBACK;
rv = call_sv(MY_CXT.callback[24],G_SCALAR);
SPAGAIN;
- if(rv)
- rv = POPi;
- else
- rv = 0;
+ rv = (rv ? POPi : 0);
FREETMPS;
LEAVE;
PUTBACK;