/* test2.c -- Funktion mit einem Argument, ohne Rueckgabewerte */
/*            Mit embedmain.c zusammenlinken.                  */

#include <string.h>

#include <EXTERN.h>
#include <perl.h>

void doit(void) {
  dSP;

  char buf[80];
  strncpy(buf, "hello brave new world!", sizeof(buf)-1);

  ENTER;
    SAVETMPS;
      PUSHMARK(SP);
        XPUSHs(sv_2mortal(newSVpv(buf, 0)));
      PUTBACK;
      perl_call_pv("func1", G_DISCARD);
    FREETMPS;
  LEAVE;
}