diff options
| author | ache <ache@FreeBSD.org> | 1995-05-28 19:21:54 +0000 |
|---|---|---|
| committer | ache <ache@FreeBSD.org> | 1995-05-28 19:21:54 +0000 |
| commit | e4c9343d9db17b8d5e2f22a1a0dd277168f1d3a1 (patch) | |
| tree | bfc6310a943da89477814f990515303ae5df7f28 | |
| parent | 2d5b3b26b84068a992442df1db389f2205b4b0b9 (diff) | |
| download | FreeBSD-src-e4c9343d9db17b8d5e2f22a1a0dd277168f1d3a1.zip FreeBSD-src-e4c9343d9db17b8d5e2f22a1a0dd277168f1d3a1.tar.gz | |
Fix $] variable value (version number), close PR 449
Submitted by: Bill Fenner <fenner@parc.xerox.com>
| -rw-r--r-- | gnu/usr.bin/perl/perl/perl.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/perl/perl.c b/gnu/usr.bin/perl/perl/perl.c index efb226c..f727d1f 100644 --- a/gnu/usr.bin/perl/perl/perl.c +++ b/gnu/usr.bin/perl/perl/perl.c @@ -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 |
