source: trunk/essentials/dev-lang/perl/plan9/plan9.c@ 3310

#include "EXTERN.h"
#include "perl.h"

/* Functions mentioned in <sys/socket.h> but not implemented */

int getsockopt(int a, int b, int c, void *d, int *e)
{
    croak("Function \"getsockopt\" not implemented in this version of perl.");
    return (int)NULL; 
}

int setsockopt(int a, int b, int c, void *d, int *e)
{
    croak("Function \"setsockopt\" not implemented in this version of perl.");
    return (int)NULL;
}