diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-10-20 03:48:15 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-20 12:35:31 +0000 |
| commit | 403396f30d585890949c05474748da70e45175f2 (patch) | |
| tree | 43496b7a44187a9a2ae7475fe7033164507759a7 /vms/gen_shrfls.pl | |
| parent | c374061b9ba82691b40ff2548705034128367828 (diff) | |
| download | perl-403396f30d585890949c05474748da70e45175f2.tar.gz | |
Perl 5.6.0/5.7.0, vms/gen_shrfls.pl update
Message-Id: <001020074423.39b82@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7376
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 68bb6e8e60..6c81903361 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -68,16 +68,17 @@ if ($docc) { elsif (-f '[-]perl.h') { $dir = '[-]'; } else { die "$0: Can't find perl.h\n"; } - # Go see if debugging is enabled in config.h - $config = $dir . "config.h"; + # Go see what is enabled in config.sh + $config = $dir . "config.sh"; open CONFIG, "< $config"; while(<CONFIG>) { - $debugging_enabled++ if /define\s+DEBUGGING/; - $use_mymalloc++ if /define\s+MYMALLOC/; - $hide_mymalloc++ if /define\s+EMBEDMYMALLOC/; - $use_threads++ if /define\s+USE_THREADS/; - $care_about_case++ if /define\s+VMS_WE_ARE_CASE_SENSITIVE/; + $use_threads++ if /usethreads='define'/; + $use_mymalloc++ if /usemymalloc='Y'/; + $care_about_case++ if /d_vms_case_sensitive_symbols='define'/; + $debugging_enabled++ if /usedebugging_perl='Y'/; + $hide_mymalloc++ if /embedmymalloc='Y'/; } + close CONFIG; # put quotes back onto defines - they were removed by DCL on the way in if (($prefix,$defines,$suffix) = |