From de4b552e364e65ce79c216c95f6f553708e83b99 Mon Sep 17 00:00:00 2001
From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Thu, 2 Nov 2000 11:58:36 -0500
Subject: [PATCH] Perl@7504, vms/gen_shrfls.pl Message-Id:
 <001102165758.31020@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@7531
---
 vms/gen_shrfls.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl
index 6c81903..6c54c10 100644
--- a/vms/gen_shrfls.pl
+++ b/vms/gen_shrfls.pl
@@ -68,6 +68,9 @@ if ($docc) {
   elsif (-f '[-]perl.h') { $dir = '[-]'; }
   else { die "$0: Can't find perl.h\n"; }
 
+  $use_threads = $use_mymalloc = $case_about_case = $debugging_enabled = 0;
+  $hide_mymalloc = $isgcc = 0;
+
   # Go see what is enabled in config.sh
   $config = $dir . "config.sh";
   open CONFIG, "< $config";
@@ -77,6 +80,7 @@ if ($docc) {
     $care_about_case++ if /d_vms_case_sensitive_symbols='define'/;
     $debugging_enabled++ if /usedebugging_perl='Y'/;
     $hide_mymalloc++ if /embedmymalloc='Y'/;
+    $isgcc++ if /gccversion='[^']/;
   }
   close CONFIG;
   
@@ -93,8 +97,7 @@ if ($docc) {
 
   # check for gcc - if present, we'll need to use MACRO hack to
   # define global symbols for shared variables
-  $isgcc = `$cc_cmd _nla0:/Version` =~ /GNU/
-           or 0; # make debug output nice
+
   print "\$isgcc: $isgcc\n" if $debug;
   print "\$debugging_enabled: $debugging_enabled\n" if $debug;
 
-- 
2.7.4