From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 18 Jul 1996 04:37:13 +0000 (+0000)
Subject: Catch oddball global when using gcc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbb1213b3e2a5834fb0d164ad498978e5d64cffd;p=p5sagit%2Fp5-mst-13.2.git

Catch oddball global when using gcc
---

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 256cdb5..6972c67 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -257,6 +257,14 @@ if ($isvaxc) {
     print STDERR "Unrecognized enum constant \"$_\" ignored\n";
   }
 }
+elsif ($isgcc) {
+  # gcc creates this as a SHR,WRT psect in globals.c, but we
+  # don't see it in the perl.h scan, since it's only declared
+  # if DOINIT is #defined.  Bleah.  It's cheaper to just add
+  # it by hand than to add /Define=DOINIT to the preprocessing
+  # run and wade through all the extra junk.
+  $vars{'Error'}++;
+}
 
 # Eventually, we'll check against existing copies here, so we can add new
 # symbols to an existing options file in an upwardly-compatible manner.