perl 4.0 patch 31: patch #20, continued

[p5sagit/p5-mst-13.2.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;
}