This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix the socklen default type (from Laszlo Molnar;
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 19 Mar 2000 18:42:35 +0000 (18:42 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 19 Mar 2000 18:42:35 +0000 (18:42 +0000)
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

Configure
Todo
Todo-5.6
t/op/taint.t

index f4138e6..94bcbde 100755 (executable)
--- 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 (file)
--- 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
index 35e6949..7255363 100644 (file)
--- 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,
index acc1c3d..cc8ff87 100755 (executable)
@@ -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)) {