diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-11-02 11:58:36 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-02 22:32:33 +0000 |
| commit | de4b552e364e65ce79c216c95f6f553708e83b99 (patch) | |
| tree | a83055b6e5b56364bc93d7afa4c5f1f242bc0f08 /vms/gen_shrfls.pl | |
| parent | 2fc7fd3f18733037e46c7d20cc82d759b0c5a03a (diff) | |
| download | perl-de4b552e364e65ce79c216c95f6f553708e83b99.tar.gz | |
Perl@7504, vms/gen_shrfls.pl
Message-Id: <001102165758.31020@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7531
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 6c81903361..6c54c107e3 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; |