[perl5.git] / ext / DynaLoader / dl_none.xs

/* dl_none.xs
 * 
 * Stubs for platforms that do not support dynamic linking
 */

#define PERL_EXT
#include "EXTERN.h"
#define PERL_IN_DL_NONE_XS
#include "perl.h"
#include "XSUB.h"

MODULE = DynaLoader	PACKAGE = DynaLoader

char *
dl_error()
    CODE:
    RETVAL = "Not implemented";
    OUTPUT:
    RETVAL

# end.
Commit	Line	Data
a0d0e21e LW	1	/* dl_none.xs
	2	*
	3	* Stubs for platforms that do not support dynamic linking
	4	*/
	5
73e43954	6	#define PERL_EXT
a0d0e21e	7	#include "EXTERN.h"
d96ba2c4	8	#define PERL_IN_DL_NONE_XS
a0d0e21e LW	9	#include "perl.h"
	10	#include "XSUB.h"
	11
	12	MODULE = DynaLoader PACKAGE = DynaLoader
	13
	14	char *
	15	dl_error()
	16	CODE:
	17	RETVAL = "Not implemented";
	18	OUTPUT:
	19	RETVAL
	20
	21	# end.