This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix problems from Carp's partial EBCDIC support
[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=''
d_wcsxfrm=''
d_wctomb=''
d_writev=''
-default_inc_excludes_dot='
undef
'
+default_inc_excludes_dot=''
dlext=''
bin_ELF=''
cccdlflags=''
dlext=''
bin_ELF=''
cccdlflags=''
@@
-2896,7
+2896,6
@@
case "$lns" in
*) echo "No symbolic links, so not testing for their testing..." >&4
;;
esac
*) echo "No symbolic links, so not testing for their testing..." >&4
;;
esac
-echo " "
: Make symlinks util
case "$mksymlinks" in
: Make symlinks util
case "$mksymlinks" in
@@
-17114,8
+17113,9
@@
$volatile int bletched = 0;
$signal_t blech(int s) { bletched = 1; }
#endif
$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;
unsigned char *end = p + sizeof(d);
int fail = 0;
@@
-17125,7
+17125,7
@@
int checkit($nvtype d, char *where) {
if (!fail)
return 0;
if (!fail)
return 0;
- p = (
char *)&d
;
+ p = (
unsigned char *)v
;
printf("No - %s: 0x", where);
while (p < end)
printf ("%02X", *p++);
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:
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
case "$default_inc_excludes_dot" in
- $
define|true|[yY]*) dflt="y
" ;;
- *) dflt="
n
" ;;
+ $
undef|false|[nN]*) dflt="n
" ;;
+ *) dflt="
y
" ;;
esac
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
rp='Exclude '.' from @INC by default? '
. ./myread
@@
-20666,9
+20666,13
@@
$cat >try.c <<EOP
#define LONG_DOUBLEKIND $longdblkind
#endif
#$i_math I_MATH
#define LONG_DOUBLEKIND $longdblkind
#endif
#$i_math I_MATH
+#$i_string I_STRING
#ifdef I_MATH
#include <math.h>
#endif
#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
#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.
*/
* 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");
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
;;
*) 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
esac
: Determine if this is an EBCDIC system
@@
-23055,7
+23060,7
@@
main(int argc, char **argv) {
return 4;
}
return 4;
}
- buffer = malloc(size);
+ buffer =
(char *)
malloc(size);
if (!buffer) {
perror("malloc");
return 5;
if (!buffer) {
perror("malloc");
return 5;
@@
-23154,7
+23159,7
@@
main(int argc, char **argv) {
return 2;
}
return 2;
}
- buffer = malloc(size);
+ buffer =
(char *)
malloc(size);
if (!buffer) {
perror("malloc");
return 3;
if (!buffer) {
perror("malloc");
return 3;