view release on metacpan or  search on metacpan

Banner.xs  view on Meta::CPAN

#include "XSUB.h"

#include "ppport.h"

MODULE = Apache2::Banner   PACKAGE = Apache2::Banner

const char*
banner()
  CODE:
    RETVAL=ap_get_server_banner();
  OUTPUT:
    RETVAL

const char*
description()
  CODE:
    RETVAL=ap_get_server_description();
  OUTPUT:
    RETVAL

char*
date(time)
    apr_time_t time
  CODE:
    char date[APR_RFC822_DATE_LEN];
    ap_recent_rfc822_date(date, time);
    RETVAL=date;
  OUTPUT:
    RETVAL

ppport.h  view on Meta::CPAN

PTR2ul|5.007001||p
PTRV|5.006000||p
PUSHMARK|||
PUSH_MULTICALL||5.011000|
PUSHi|||
PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_context_layers||5.009004|
PerlIO_eof||5.007003|
PerlIO_error||5.007003|
PerlIO_fileno||5.007003|
PerlIO_fill||5.007003|
PerlIO_flush||5.007003|
PerlIO_get_base||5.007003|
PerlIO_get_bufsiz||5.007003|

ppport.h  view on Meta::CPAN

{
    dSP;
    SV* sv = newSVpv(p, 0);

    PUSHMARK(sp);
    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    if (croak_on_error && SvTRUE(GvSV(errgv)))
	croak(SvPVx(GvSV(errgv), na));

    return sv;
}

#endif
#endif