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