[inseparable changes from patch from perl5.003_22 to perl5.003_23]

[p5sagit/p5-mst-13.2.git] / vms / genconfig.pl

diff --git a/vms/genconfig.pl b/vms/genconfig.pl
index 924fa08..3680147 100644 (file)
--- 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
@@ -102,6 +102,9 @@ installprivlib='$installprivlib'
 installarchlib='$installarchlib'
 installsitelib='$installsitelib'
 installsitearch='$installsitearch'
+path_sep='|'
+startperl='\$ perl 'f\$env("procedure")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !
+$ exit++ + ++$status != 0 and $exit = $status = undef;
 EndOfIntro
 
 foreach (@ARGV) {
@@ -126,7 +129,9 @@ foreach (@ARGV) {
       print OUT "gccversion='$1'\n";
     }
     elsif ($archsufx eq 'VAX' &&
-           `$val/NoObject/NoList /prefix=all _nla0:` =~ /IVQUAL/) {
+           # Check exit status too, in case message is turned off
+           ( `$val/NoObject/NoList /prefix=all _nla0:` =~ /IVQUAL/ ||
+              $? == 0x38240 )) {
       $cctype = 'vaxc';
       $d_attr = 'undef';
     }
@@ -154,17 +159,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;
   }