a "replacement" for awk and sed
[perl.git] / version.c
1 /* $Header: version.c,v 1.0 87/12/18 13:06:41 root Exp $
2  *
3  * $Log:        version.c,v $
4  * Revision 1.0  87/12/18  13:06:41  root
5  * Initial revision
6  * 
7  */
8
9 #include "patchlevel.h"
10
11 /* Print out the version number. */
12
13 version()
14 {
15     extern char rcsid[];
16
17     printf("%s\r\nPatch level: %d\r\n", rcsid, PATCHLEVEL);
18 }