From e4c9343d9db17b8d5e2f22a1a0dd277168f1d3a1 Mon Sep 17 00:00:00 2001 From: ache Date: Sun, 28 May 1995 19:21:54 +0000 Subject: Fix $] variable value (version number), close PR 449 Submitted by: Bill Fenner --- gnu/usr.bin/perl/perl/perl.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'gnu') 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 -- cgit v1.1