Commit | Line | Data |
79072805 |
1 | /* $RCSfile: usersub.c,v $$Revision: 4.1 $$Date: 92/08/07 17:19:07 $ |
7c0587c8 |
2 | * |
3 | * $Log: usersub.c,v $ |
79072805 |
4 | * Revision 4.1 92/08/07 17:19:07 lwall |
5 | * Stage 6 Snapshot |
6 | * |
7c0587c8 |
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 | } |