Perl_sv_vcatpvfn_flags: make 'fill' var a boolean

[perl5.git] / Configure

diff --git a/Configure b/Configure
index 9d91a81..3259249 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -937,7 +937,7 @@ d_wcstombs=''
 d_wcsxfrm=''
 d_wctomb=''
 d_writev=''
-default_inc_excludes_dot='undef'
+default_inc_excludes_dot=''
 dlext=''
 bin_ELF=''
 cccdlflags=''
@@ -2896,7 +2896,6 @@ case "$lns" in
 *)     echo "No symbolic links, so not testing for their testing..." >&4
        ;;
 esac
-echo " "
 
 : Make symlinks util
 case "$mksymlinks" in
@@ -17114,8 +17113,9 @@ $volatile int bletched = 0;
 $signal_t blech(int s) { bletched = 1; }
 #endif
 
-int checkit($nvtype d, char *where) {
-    unsigned char *p = (char *)&d;
+int checkit($nvtype d, const char *where) {
+    void *v = &d;
+    unsigned char *p = (unsigned char *)v;
     unsigned char *end = p + sizeof(d);
     int fail = 0;
 
@@ -17125,7 +17125,7 @@ int checkit($nvtype d, char *where) {
     if (!fail)
        return 0;
 
-    p = (char *)&d;
+    p = (unsigned char *)v;
     printf("No - %s: 0x", where);
     while (p < end)
        printf ("%02X", *p++);
@@ -20638,15 +20638,15 @@ a shared directory. This can lead to executing unexpected code.
 EOM
 
 # When changing to exclude by default:
-#case "$default_inc_excludes_dot" in
-#    $undef|false|[nN]*) dflt="n" ;;
-#    *)                  dflt="y" ;;
-#esac
-# For now:
 case "$default_inc_excludes_dot" in
-    $define|true|[yY]*) dflt="y" ;;
-    *)                  dflt="n" ;;
+    $undef|false|[nN]*) dflt="n" ;;
+    *)                  dflt="y" ;;
 esac
+# To turn exclude off by default:
+#case "$default_inc_excludes_dot" in
+#    $define|true|[yY]*) dflt="y" ;;
+#    *)                  dflt="n" ;;
+#esac
 
 rp='Exclude '.' from @INC by default? '
 . ./myread
@@ -20666,9 +20666,13 @@ $cat >try.c <<EOP
 #define LONG_DOUBLEKIND $longdblkind
 #endif
 #$i_math I_MATH
+#$i_string I_STRING
 #ifdef I_MATH
 #include <math.h>
 #endif
+#ifdef I_STRING
+#  include <string.h>
+#endif
 #include <stdio.h>
 /* Note that whether the sign bit is on or off
  * for NaN depends on the CPU/FPU, and possibly
@@ -20685,7 +20689,8 @@ $cat >try.c <<EOP
  * to even mention, causing immediate SIGFPE or equivalent: this is
  * the case with VAX floating point, for example.
  */
-static void bytes(unsigned char *p, unsigned int n) {
+static void bytes(void *v, unsigned int n) {
+  unsigned char *p = (unsigned char *)v;
   int i;
   for (i = 0; i < n; i++) {
     printf("0x%02x%s", p[i], i < n - 1 ? ", " : "\n");
@@ -21015,7 +21020,7 @@ EOM
         ;;
     *) dtraceobject=$undef ;;
     esac
-    $rm -f try.c try.o perldtrace.o perldtrace.h
+    $rm_try perldtrace.o perldtrace.h
 esac
 
 : Determine if this is an EBCDIC system
@@ -23055,7 +23060,7 @@ main(int argc, char **argv) {
        return 4;
     }
 
-    buffer = malloc(size);
+    buffer = (char *)malloc(size);
     if (!buffer) {
        perror("malloc");
        return 5;
@@ -23154,7 +23159,7 @@ main(int argc, char **argv) {
        return 2;
     }
 
-    buffer = malloc(size);
+    buffer = (char *)malloc(size);
     if (!buffer) {
        perror("malloc");
        return 3;