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

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

#include "EXTERN.h"
#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
	6	#include "EXTERN.h"
	7	#include "perl.h"
	8	#include "XSUB.h"
	9
	10	MODULE = DynaLoader PACKAGE = DynaLoader
	11
	12	char *
	13	dl_error()
	14	CODE:
	15	RETVAL = "Not implemented";
	16	OUTPUT:
	17	RETVAL
	18
	19	# end.