d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix $] variable value (version number), close PR 449

Browse Source 
Submitted by: Bill Fenner <fenner@parc.xerox.com>
This commit is contained in:
Andrey A. Chernov 1995-05-28 19:21:54 +00:00
parent 78420108a3
commit 4b7250c3f9
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=8816
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/usr.bin/perl/perl/perl.c
View File

@ -1,4 +1,4 @@
char rcsid[] = "$RCSfile: perl.c,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:33 $\nPatch level: ###\n";
char rcsid[] = "$RCSfile: perl.c,v $$Revision: 1.2 $$Date: 1994/10/27 23:16:54 $\nPatch level: ###\n";
/*
* Copyright (c) 1991, Larry Wall
*
@ -6,6 +6,12 @@ char rcsid[] = "$RCSfile: perl.c,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:
* License or the Artistic License, as specified in the README file.
*
* $Log: perl.c,v $
* Revision 1.2 1994/10/27 23:16:54 wollman
* Convince Perl to that is is part of the system, as /usr/bin/perl (binary)
* and /usr/share/perl (library). The latter was chosen as analogous to other
* directories already present in /usr/share, like /usr/share/groff_font and
* (particularly) /usr/share/mk.
*
* Revision 1.1.1.1 1994/09/10 06:27:33 gclarkii
* Initial import of Perl 4.046 bmaked
*
@ -119,7 +125,7 @@ setuid perl scripts securely.\n");
euid = (int)geteuid();
gid = (int)getgid();
egid = (int)getegid();
sprintf(patchlevel,"%3.3s%2.2d", index(rcsid,'4'), PATCHLEVEL);
sprintf(patchlevel,"%3.3s%2.2d", "4.0", PATCHLEVEL);
#ifdef MSDOS
/*
* There is no way we can refer to them from Perl so close them to save