bk commit into 4.1 tree (df:1.2585)

[Daniel Fischer]

Below is the list of changes that have just been committed into a local
4.1 repository of df. When df does a push these changes will
be propagated to the main repository and, within 24 hours after the
push, to the public repository.
For information on how to access the public repository
see http://dev.mysql.com/doc/mysql/en/installing-source-tree.html

ChangeSet@stripped, 2006-12-18 13:44:21+01:00, df@stripped +1 -0
  Use a temporary directory for sockets if the socket path becomes too long.

  mysql-test/mysql-test-run.pl@stripped, 2006-12-18 13:44:20+01:00, df@stripped +6 -0
    Use a temporary directory for sockets if the socket path becomes too long.

# This is a BitKeeper patch.  What follows are the unified diffs for the
# set of deltas contained in the patch.  The rest of the patch, the part
# that BitKeeper cares about, is below these diffs.
# User:	df
# Host:	kahlann.erinye.com
# Root:	/home/df/mysql/build/mysql-4.1-build-work

--- 1.167/mysql-test/mysql-test-run.pl	2006-12-05 19:13:30 +01:00
+++ 1.168/mysql-test/mysql-test-run.pl	2006-12-18 13:44:20 +01:00
@@ -58,6 +58,7 @@ $Devel::Trace::TRACE= 0;       # Don't t
 use File::Path;
 use File::Basename;
 use File::Copy;
+use File::Temp qw / tempdir /;
 use Cwd;
 use Getopt::Long;
 use Sys::Hostname;
@@ -1029,6 +1030,11 @@ sub command_line_setup () {
   # paths.
   my $sockdir = $opt_tmpdir;
   $sockdir =~ s|/+$||;
+
+  # On some operating systems, there is a limit to the length of a
+  # UNIX domain socket's path far below PATH_MAX, so try to avoid long
+  # socket path names.
+  $sockdir = tempdir(CLEANUP => 1) if ( length($sockdir) > 80 );
 
   # Put this into a hash, will be a C struct