[perl5.git] / atarist / usersub.c

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

int userinit()
{
    install_null();	/* install device /dev/null or NUL: */
    return 0;
}
Commit	Line	Data
2b69d0c2 LW	1	#include "EXTERN.h"
	2	#include "perl.h"
	3	#include <stdio.h>
	4
	5	int userinit()
	6	{
	7	install_null(); /* install device /dev/null or NUL: */
	8	return 0;
	9	}