blob: f1760a6c7b04c70528d4cc1886d7fdea630e148a (
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
|
/* $RCSfile: usersub.c,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:54:52 $
*
* $Log: usersub.c,v $
* 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;
}
|
