4.4BSD/usr/src/contrib/perl-4.036/atarist/usersub.c

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

int userinit()
{
    install_null();	/* install device /dev/null or NUL: */
    return 0;
}