diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-07-18 04:37:13 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-07-18 04:37:13 +0000 |
| commit | cbb1213b3e2a5834fb0d164ad498978e5d64cffd (patch) | |
| tree | 6e0e9e3e5c35fd8bbdd27abe2c123e308920d465 | |
| parent | acbb349efe800369164f5f9e27b78797fb74036d (diff) | |
| download | perl-cbb1213b3e2a5834fb0d164ad498978e5d64cffd.tar.gz | |
Catch oddball global when using gcc
| -rw-r--r-- | vms/gen_shrfls.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 256cdb5172..6972c67edf 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. |