view release on metacpan or  search on metacpan

ACE.xs  view on Meta::CPAN

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

#include "sdi.h"

static int
not_here(s)
char *s;
{
    croak("%s not implemented on this architecture", s);
    return -1;
}

static double
constant(name, arg)
char *name;
int arg;

ACE.xs  view on Meta::CPAN

	case 'M':
		if (strEQ(name, "MUST_CHOOSE_PIN")) return MUST_CHOOSE_PIN;
		break;
	case 'U':
		if (strEQ(name, "USER_SELECTABLE")) return USER_SELECTABLE;
		break;
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

union config_record configure;

MODULE = Authen::ACE		PACKAGE = Authen::ACE

PROTOTYPES: ENABLE