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