summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-08-04 20:31:04 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-08-04 20:31:04 +0000
commit3f54ad2bab26c7a42df396e164e78a422e8f1549 (patch)
tree62afcfab60fa0817654f8787047920db86dfc179
parentaf47ee559953261a98b07a8facdabf8c6a19ae2e (diff)
downloadperl-3f54ad2bab26c7a42df396e164e78a422e8f1549.tar.gz
remove useless 'rcsid' (extension of a suggestion by
Stephen McCamant) p4raw-id: //depot/maint-5.005/perl@1727
-rw-r--r--embed.h1
-rw-r--r--ext/SDBM_File/sdbm/pair.c4
-rw-r--r--ext/SDBM_File/sdbm/sdbm.c4
-rw-r--r--global.sym1
-rw-r--r--gv.c2
-rw-r--r--perl.c2
-rw-r--r--vms/gen_shrfls.pl1
7 files changed, 0 insertions, 15 deletions
diff --git a/embed.h b/embed.h
index e7f8a50fcf..592f39b8c6 100644
--- a/embed.h
+++ b/embed.h
@@ -816,7 +816,6 @@
#define push_return Perl_push_return
#define push_scope Perl_push_scope
#define q Perl_q
-#define rcsid Perl_rcsid
#define reall_srchlen Perl_reall_srchlen
#define ref Perl_ref
#define refkids Perl_refkids
diff --git a/ext/SDBM_File/sdbm/pair.c b/ext/SDBM_File/sdbm/pair.c
index 6b41f88471..a9a805a4aa 100644
--- a/ext/SDBM_File/sdbm/pair.c
+++ b/ext/SDBM_File/sdbm/pair.c
@@ -7,10 +7,6 @@
* page-level routines
*/
-#ifndef lint
-static char rcsid[] = "$Id: pair.c,v 1.10 90/12/13 13:00:35 oz Exp $";
-#endif
-
#include "config.h"
#include "EXTERN.h"
#include "sdbm.h"
diff --git a/ext/SDBM_File/sdbm/sdbm.c b/ext/SDBM_File/sdbm/sdbm.c
index 7bf9d3a97b..637fbe98a1 100644
--- a/ext/SDBM_File/sdbm/sdbm.c
+++ b/ext/SDBM_File/sdbm/sdbm.c
@@ -7,10 +7,6 @@
* core routines
*/
-#ifndef lint
-static char rcsid[] = "$Id: sdbm.c,v 1.16 90/12/13 13:01:31 oz Exp $";
-#endif
-
#include "INTERN.h"
#include "config.h"
#include "sdbm.h"
diff --git a/global.sym b/global.sym
index 9a9ada6e7a..f3c73fedf1 100644
--- a/global.sym
+++ b/global.sym
@@ -79,7 +79,6 @@ pow_ass_amg
ppaddr
psig_name
psig_ptr
-rcsid
reall_srchlen
regkind
repeat_amg
diff --git a/gv.c b/gv.c
index 531fbb55bb..0d96ffa97c 100644
--- a/gv.c
+++ b/gv.c
@@ -19,8 +19,6 @@
#include "EXTERN.h"
#include "perl.h"
-EXT char rcsid[];
-
GV *
gv_AVadd(register GV *gv)
{
diff --git a/perl.c b/perl.c
index 7217536c92..26653a3a49 100644
--- a/perl.c
+++ b/perl.c
@@ -31,8 +31,6 @@ char *getenv _((char *)); /* Usually in <stdlib.h> */
#include <sys/file.h>
#endif
-dEXTCONST char rcsid[] = "perl.c\nPatch level: ###\n";
-
#ifdef IAMSUID
#ifndef DOSUID
#define DOSUID
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index e937e696c2..43029692b2 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -427,7 +427,6 @@ exec "\$ \@$drvrname" if $isvax;
__END__
# Oddball cases, so we can keep the perl.h scan above simple
-rcsid=vars # declared in perl.c
regkind=vars # declared in regcomp.h
simple=vars # declared in regcomp.h
varies=vars # declared in regcomp.h