perl 4.0 patch 32: patch #20, continued
[perl.git] / atarist / usub / usersub.c
1 /* $RCSfile: usersub.c,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:54:52 $
2  *
3  * $Log:        usersub.c,v $
4  * Revision 4.0.1.1  92/06/08  11:54:52  lwall
5  * Initial revision
6  * 
7  * Revision 4.0.1.1  91/11/05  19:07:24  lwall
8  * patch11: there are now subroutines for calling back from C into Perl
9  * 
10  * Revision 4.0  91/03/20  01:56:34  lwall
11  * 4.0 baseline.
12  * 
13  * Revision 3.0.1.1  90/08/09  04:06:10  lwall
14  * patch19: Initial revision
15  * 
16  */
17
18 #include "EXTERN.h"
19 #include "perl.h"
20
21 int
22 userinit()
23 {
24     install_null();     /* install device /dev/null or NUL: */
25     init_curses();
26     return 0;
27 }