diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-08-27 15:16:42 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-27 15:16:42 +0000 |
| commit | daced680dbb75eec05dbd8b165b1a9437d0f6111 (patch) | |
| tree | 741ba054917367001dce29e674a1e99c8fa229d3 /vms/genconfig.pl | |
| parent | 94dd39f730bfb48683a46a6412b010592b808b4a (diff) | |
| download | perl-daced680dbb75eec05dbd8b165b1a9437d0f6111.tar.gz | |
Changes USE_THREADS to USE_5005THREADS in the entire source.
Thanks to H. Merijn Brand for the patch.
Some of the comments and or guards might be removable in perl.h now.
p4raw-id: //depot/perl@11758
Diffstat (limited to 'vms/genconfig.pl')
| -rw-r--r-- | vms/genconfig.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/vms/genconfig.pl b/vms/genconfig.pl index ef1d5ad4a5..2794a172a1 100644 --- a/vms/genconfig.pl +++ b/vms/genconfig.pl @@ -157,8 +157,8 @@ foreach (@ARGV) { $optimize = $qual; $ccflags =~ s/$qual//; } - $usethreads = ($ccflags =~ m!/DEF[^/]+USE_THREADS!i and - $ccflags !~ m!/UND[^/]+USE_THREADS!i); + $usethreads = ($ccflags =~ m!/DEF[^/]+USE_5005THREADS!i and + $ccflags !~ m!/UND[^/]+USE_5005THREADS!i); print OUT "usethreads='",($usethreads ? 'define' : 'undef'),"'\n";; $optimize = "$debug$optimize"; print OUT "ccflags='$ccflags'\n"; @@ -367,8 +367,8 @@ close IN; # as the manifest for the obsolete variable $d_eunice. print OUT "d_eunice='undef'\n"; delete $pp_vars{VMS}; -# XXX temporary -- USE_THREADS is currently on CC command line -delete $pp_vars{'USE_THREADS'}; +# XXX temporary -- USE_5005THREADS is currently on CC command line +delete $pp_vars{'USE_5005THREADS'}; foreach (sort keys %pp_vars) { warn "Didn't see $_ in $infile\n"; |