diff options
Diffstat (limited to 'vms/genconfig.pl')
| -rw-r--r-- | vms/genconfig.pl | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/vms/genconfig.pl b/vms/genconfig.pl index 924fa08dc6..521be99e11 100644 --- a/vms/genconfig.pl +++ b/vms/genconfig.pl @@ -6,7 +6,7 @@ # that went into your perl binary. In addition, values which change from run # to run may be supplied on the command line as key=val pairs. # -# Rev. 2-Oct-1996 Charles Bailey bailey@genetics.upenn.edu +# Rev. 3-Dec-1996 Charles Bailey bailey@genetics.upenn.edu # #==== Locations of installed Perl components @@ -154,17 +154,12 @@ foreach (@ARGV) { print OUT "i_niin=",$dosock ? "'define'\n" : "'undef'\n"; print OUT "i_neterrno=",$dosock ? "'define'\n" : "'undef'\n"; - if ($cctype eq 'decc') { - print OUT "d_stdstdio='define'\n"; - print OUT "d_stdio_ptr_lval='define'\n"; - print OUT "d_stdio_cnt_lval='define'\n"; - print OUT "d_stdiobase='define'\n"; - } - else { - print OUT "d_stdstdio='undef'\n"; - print OUT "d_stdio_ptr_lval='undef'\n"; - print OUT "d_stdio_cnt_lval='undef'\n"; - print OUT "d_stdiobase='undef'\n"; + if ($cctype eq 'decc') { $rtlhas = 'define'; } + else { $rtlhas = 'undef'; } + foreach (qw[ d_stdstdio d_stdio_ptr_lval d_stdio_cnt_lval d_stdiobase + d_locconv d_setlocale i_locale d_mbstowcs d_mbtowc + d_wcstombs d_wctomb d_mblen d_mktime d_strcoll d_strxfrm ]) { + print OUT "$_='$rtlhas'\n"; } next; } |