remove useless 'rcsid' (extension of a suggestion by

Stephen McCamant)

p4raw-id: //depot/maint-5.005/perl@1727

diff --git a/embed.h b/embed.h
index e7f8a50..592f39b 100644 (file)
--- 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 6b41f88..a9a805a 100644 (file)
--- 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 7bf9d3a..637fbe9 100644 (file)
--- 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 9a9ada6..f3c73fe 100644 (file)
--- 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 531fbb5..0d96ffa 100644 (file)
--- 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 7217536..26653a3 100644 (file)
--- 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 e937e69..4302969 100644 (file)
--- 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