view release on metacpan or  search on metacpan

Embperl.xs  view on Meta::CPAN

OUTPUT:
    RETVAL


void
embperl_GetPackageOfFile(sSourcefile, sPackage, mtime, bEP1Compat)
    char * sSourcefile
    char * sPackage
    double mtime
    int    bEP1Compat
PPCODE:
    tFile * pFile = GetFileData (sSourcefile, sPackage, mtime, bEP1Compat) ;
    EXTEND(SP,2) ;
    PUSHs(sv_2mortal(newSViv(pFile -> mtime == -1?1:0))) ;
    PUSHs(sv_2mortal(newSVpv(pFile -> sCurrPackage, pFile -> nCurrPackage))) ;




void
embperl_logerror(code, sText, pApacheReqSV=NULL)