From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 19 Mar 2000 18:42:35 +0000 (+0000)
Subject: Fix the socklen default type (from Laszlo Molnar;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c85e8b08904ca818d89c23de9b1da2d4e7872b4;p=p5sagit%2Fp5-mst-13.2.git

Fix the socklen default type (from Laszlo Molnar;
though I prefer signed, not unsigned); move the cross-compialtion
wish item to Todo; drop excess permissions in taint.t.

p4raw-id: //depot/cfgperl@5834
---

diff --git a/Configure b/Configure
index f4138e6..94bcbde 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Sat Mar 18 23:12:11 EET 2000 [metaconfig 3.0 PL70]
+# Generated on Sun Mar 19 20:37:30 EET 2000 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.com)
 
 cat >/tmp/c1$$ <<EOF
@@ -13860,7 +13860,7 @@ EOM
 	case "$d_socklen_t" in
 	"$define") yyy="$yyy socklen_t"
 	esac
-	yyy="$yyy $sizetype int long"
+	yyy="$yyy $sizetype int long unsigned"
 	for xxx in $yyy; do
 		case "$socksizetype" in
 		'')	try="extern int accept(int, struct sockaddr *, $xxx *);"
@@ -13880,8 +13880,8 @@ EOM
 		;;
 	esac
 	;;
-*)	: no sockets, so pick relatively harmless defaults
-	socksizetype='unsigned'
+*)	: no sockets, so pick relatively harmless default
+	socksizetype='int'
 	;;
 esac
 
diff --git a/Todo b/Todo
index bf1e729..f91f154 100644
--- a/Todo
+++ b/Todo
@@ -46,6 +46,15 @@ Would be nice to have
 	    an extension (Devel::MProf?) that would return the malloc
 	    stats in a nice Perl datastructure (also a simple interface
 	    to return just the grand total would be good)
+	cross-compilation support
+	    host vs target: compile in the host, get the executable to
+	    the target, get the possible input files to the target,
+	    execute in the target (and do not assume a UNIXish shell
+	    in the target! e.g. no command redirection can be assumed),
+	    get possible output files back to to host.  this needs to work
+	    both during Configure and during the build.  You cannot assume
+	    shared filesystems between the host and the target (you may need
+	    e.g. ftp), executing the target executable may involve e.g. rsh
 	a way to make << and >> to shift bitvectors instead of numbers
 
 Possible pragmas
diff --git a/Todo-5.6 b/Todo-5.6
index 35e6949..7255363 100644
--- a/Todo-5.6
+++ b/Todo-5.6
@@ -47,13 +47,7 @@ Configure
 	libswanted <-> usethreads <-> use64bitint <-> use64bitall <->
   	uselargefiles <-> ...  
     make configuring+building away from source directory work (VPATH et al)
-	this is related to: cross-compilation configuring
-	host vs target: compile in the host, get the executable to the target,
-	get the possible input files to the target, execute in the target,
-	get possible output files back to to host.  this needs to work
-	both during Configure and during the build.  You cannot assume
-	shared filesystems between the host and the target, executing
-	the target executable may involve e.g. rsh
+	this is related to: cross-compilation configuring (see Todo)
     _r support (see Todo for mode detailed description)
     POSIX 1003.1 1996 Edition support--realtime stuff:
 	POSIX semaphores, message queues, shared memory, realtime clocks,
diff --git a/t/op/taint.t b/t/op/taint.t
index acc1c3d..cc8ff87 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -26,8 +26,7 @@ BEGIN {
   }
   if ($Config{d_shm} || $Config{d_msg}) {
      require IPC::SysV;
-     IPC::SysV->import(qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRWXU
-			 S_IRWXG S_IRWXO));
+     IPC::SysV->import(qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRWXU);
   }
 }
 
@@ -618,7 +617,7 @@ else {
 	my $sent = "foobar";
 	my $rcvd;
 	my $size = 2000;
-	my $id = shmget(IPC_PRIVATE, $size, S_IRWXU|S_IRWXG|S_IRWXO) ||
+	my $id = shmget(IPC_PRIVATE, $size, S_IRWXU) ||
 	    warn "# shmget failed: $!\n";
 	if (defined $id) {
 	    if (shmwrite($id, $sent, 0, 60)) {