Change 33873 by [EMAIL PROTECTED] on 2008/05/20 00:34:37
Integrate:
[ 32953]
[ only the configuration parts; skip
MANIFEST mydtrace.h perldtrace.d Makefile.SH cop.h Makefile.SH]
Subject: [PATCH] Add dtrace support
From: Andy Armstrong <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Thu, 10 Jan 2008 22:20:52 +0000
with fixups as discussed on list, plus adding usedtrace to Glossary,
plus propagating all the new config variables everywhere.
(Was there an automatic way to do that? I did it with emacs macros)
[ 32963]
Subject: [PATCH] sh doesn't know about !
From: Andy Armstrong <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Fri, 11 Jan 2008 19:34:25 +0000
[ 32965]
Nit disabling dtrace on VMS (2 single quotes inside double quotes
causes symbol interpolation in DCL).
[ 32967]
Subject: Re: [PATCH] Stop DTrace config option looping in
non-interactive mode
From: Andy Armstrong <[EMAIL PROTECTED]>
Message-Id: <[EMAIL PROTECTED]>
Date: Sat, 12 Jan 2008 20:27:46 +0000
[ 32974]
Intermediate update/regen in cleanup process, dtrace support
is now backported
Affected files ...
... //depot/maint-5.10/perl/Configure#5 integrate
... //depot/maint-5.10/perl/Cross/config.sh-arm-linux#3 integrate
... //depot/maint-5.10/perl/NetWare/config.wc#3 integrate
... //depot/maint-5.10/perl/Porting/Glossary#3 integrate
... //depot/maint-5.10/perl/config_h.SH#3 integrate
... //depot/maint-5.10/perl/configure.com#5 integrate
... //depot/maint-5.10/perl/epoc/config.sh#3 integrate
... //depot/maint-5.10/perl/plan9/config_sh.sample#3 integrate
... //depot/maint-5.10/perl/symbian/config.sh#3 integrate
... //depot/maint-5.10/perl/uconfig.h#3 integrate
... //depot/maint-5.10/perl/uconfig.sh#3 integrate
... //depot/maint-5.10/perl/win32/config.bc#3 integrate
... //depot/maint-5.10/perl/win32/config.ce#3 integrate
... //depot/maint-5.10/perl/win32/config.gc#3 integrate
... //depot/maint-5.10/perl/win32/config.vc#3 integrate
... //depot/maint-5.10/perl/win32/config.vc64#3 integrate
... //depot/maint-5.10/perl/win32/config_H.bc#3 integrate
... //depot/maint-5.10/perl/win32/config_H.ce#3 integrate
... //depot/maint-5.10/perl/win32/config_H.gc#3 integrate
... //depot/maint-5.10/perl/win32/config_H.vc#3 integrate
... //depot/maint-5.10/perl/win32/config_H.vc64#3 integrate
Differences ...
==== //depot/maint-5.10/perl/Configure#5 (xtext) ====
Index: perl/Configure
--- perl/Configure#4~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/Configure 2008-05-19 17:34:37.000000000 -0700
@@ -25,7 +25,7 @@
# $Id: Head.U 6 2006-08-25 22:21:46Z rmanfredi $
#
-# Generated on Wed Jan 9 22:02:14 CET 2008 [metaconfig 3.0 PL70]
+# Generated on Mon Jan 14 17:33:05 CET 2008 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by [EMAIL PROTECTED])
cat >c1$$ <<EOF
@@ -1174,6 +1174,8 @@
archname64=''
use64bitall=''
use64bitint=''
+dtrace=''
+usedtrace=''
usefaststdio=''
ccflags_uselargefiles=''
ldflags_uselargefiles=''
@@ -1235,6 +1237,7 @@
yaccflags=''
CONFIG=''
+: Detect odd OSs
define='define'
undef='undef'
smallmach='pdp11 i8086 z8000 i80286 iAPX286'
@@ -1730,7 +1733,7 @@
touch posthint.sh
: set package name
-package=perl5
+package='perl5'
first=`echo $package | sed -e 's/^\(.\).*/\1/'`
last=`echo $package | sed -e 's/^.\(.*\)/\1/'`
case "`echo AbyZ | tr '[:lower:]' '[:upper:]' 2>/dev/null`" in
@@ -1776,11 +1779,11 @@
'') src=/
rsrc=/
;;
-/*) rsrc="$src";;
-*) rsrc="../$src";;
+/*) rsrc="$src";;
+*) rsrc="../$src";;
esac
if test -f $rsrc/Configure && \
- $contains "^package=$package$" $rsrc/Configure >/dev/null 2>&1
+ $contains "^package='$package'\$" $rsrc/Configure >/dev/null 2>&1
then
: found it, so we are ok.
else
@@ -2668,7 +2671,7 @@
esac
echo " "
-
+: Make symlinks util
case "$mksymlinks" in
$define|true|[yY]*)
case "$src" in
@@ -3899,12 +3902,12 @@
prefix="$ans"
prefixexp="$ansexp"
+: is AFS running?
case "$afsroot" in
'') afsroot=/afs ;;
*) afsroot=$afsroot ;;
esac
-: is AFS running?
echo " "
case "$afs" in
$define|true) afs=true ;;
@@ -4019,6 +4022,7 @@
*) eval "$var=$val";;
esac'
+: Check is we will use socks
case "$usesocks" in
$define|true|[yY]*) dflt='y';;
*) dflt='n';;
@@ -4044,6 +4048,7 @@
$define|true|[yY]*) useperlio="$define";;
esac
+: Check if we want perlio
case "$useperlio" in
$define|true|[yY]*|'') dflt='y';;
*) dflt='n';;
@@ -4062,16 +4067,16 @@
rp='Use the PerlIO abstraction layer?'
. ./myread
case "$ans" in
-y|Y)
+y|Y)
val="$define"
;;
-*)
+*)
echo "Ok, doing things the stdio way."
val="$undef"
;;
esac
set useperlio
-eval $setvar
+eval $setvar
case "$usesocks" in
$define|true|[yY]*)
@@ -4088,7 +4093,6 @@
;;
esac
-
: get the patchlevel
echo " "
echo "Getting the current patchlevel..." >&4
@@ -4295,6 +4299,7 @@
esac
fi
+: Check if multiplicity is required
cat <<EOM
Perl can be built so that multiple Perl interpreters can coexist
@@ -4325,7 +4330,7 @@
set usemultiplicity
eval $setvar
-
+: Check if morebits is requested
case "$usemorebits" in
"$define"|true|[yY]*)
use64bitint="$define"
@@ -4431,6 +4436,7 @@
$eunicefix bsd usg v7 osf1 eunice xenix venix os2
$rm -f foo
+: Checking the C compiler
case "$cc" in
'') dflt=cc;;
*) dflt="$cc";;
@@ -4844,6 +4850,7 @@
'') firstmakefile='makefile';;
esac
+: Check for uselongdouble support
case "$ccflags" in
*-DUSE_LONG_DOUBLE*|*-DUSE_MORE_BITS*) uselongdouble="$define" ;;
esac
@@ -5700,7 +5707,7 @@
;;
esac
-
+: Do we want 64bit support
case "$uselonglong" in
"$define"|true|[yY]*)
cat <<EOM >&4
@@ -7055,6 +7062,88 @@
;;
esac
+: DTrace support
+dflt_dtrace='/usr/sbin/dtrace'
+cat <<EOM
+
+Perl can be built to support DTrace on platforms that support it.
+DTrace is a diagnosis and performance analysis tool from Sun.
+
+If this doesn't make any sense to you, just accept the default '$dflt'.
+EOM
+
+while $test 1 ; do
+ case "$usedtrace" in
+ $define|true|[yY]*)
+ dflt='y'
+ ;;
+ ?*)
+ dflt='y'
+ dflt_dtrace=$usedtrace
+ ;;
+ *)
+ dflt='n'
+ ;;
+ esac
+
+ rp='Support DTrace if available?'
+ . ./myread
+ case "$ans" in
+ y|Y) val="$define" ;;
+ *) val="$undef" ;;
+ esac
+ set usedtrace
+ eval $setvar
+
+ test "X$usedtrace" != "X$define" && break
+
+ echo " "
+ rp='Where is the dtrace executable?'
+ dflt=$dflt_dtrace
+ . ./getfile
+ val="$ans"
+ set dtrace
+ eval $setvar
+
+ if $test -f $dtrace
+ then
+ if $dtrace -h -s ../perldtrace.d \
+ -o perldtrace.tmp >/dev/null 2>&1 \
+ && rm -f perldtrace.tmp
+ then
+ echo " "
+ echo "Good: your $dtrace knows about the -h flag."
+ else
+ cat >&2 <<EOM
+
+*** $me: Fatal Error: $dtrace doesn't support -h flag
+***
+*** Your installed dtrace doesn't support the -h switch to compile a D
+*** program into a C header. Can't continue.
+
+EOM
+ exit 1
+ fi
+ break;
+ fi
+
+ case "$fastread" in
+ yes)
+ cat >&2 <<EOM
+
+*** $me: Fatal Error: $dtrace not found.
+*** Can't continue.
+
+EOM
+ exit 1
+ ;;
+ *)
+ echo "*** $dtrace was not found."
+ echo " "
+ ;;
+ esac
+done
+
: See if we want extra modules installed
echo " "
case "$extras" in
@@ -7331,9 +7420,9 @@
;;
esac
+: get list of predefined functions in a handy place
case "$runnm" in
true)
-: get list of predefined functions in a handy place
echo " "
case "$libc" in
'') libc=unknown
@@ -7960,6 +8049,7 @@
;;
esac
+: Do we want a shared libperl?
also=''
case "$usedl" in
$undef)
@@ -8112,7 +8202,7 @@
xxx=''
tmp_shrpenv=''
if "$useshrplib"; then
- case "$osname" in
+ case "$osname" in
aix)
# We'll set it in Makefile.SH...
;;
@@ -8141,7 +8231,7 @@
esac
case "$xxx" in
'') ;;
- *)
+ *)
# Only add $xxx if it isn't already in ccdlflags.
case " $ccdlflags " in
*" $xxx "*) ;;
@@ -8149,7 +8239,7 @@
cat <<EOM >&4
Adding $xxx to the flags
-passed to $ld so that the perl executable will find the
+passed to $ld so that the perl executable will find the
installed shared $libperl.
EOM
@@ -8647,6 +8737,7 @@
;;
esac
+: Ask for e-mail
$cat <<EOM
I need to get your e-mail address in Internet format if possible, i.e.
@@ -8682,6 +8773,7 @@
esac
done
+: Ask e-mail of administrator
$cat <<EOM
If you or somebody else will be maintaining perl at your site, please
@@ -8920,6 +9012,7 @@
prefixvar=sitescript
. ./setprefixvar
+: Check if faststdio is requested and available
case "$usefaststdio" in
$define|true|[yY]*|'')
xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}'
$rsrc/patchlevel.h`
@@ -8943,7 +9036,7 @@
rp='Use the "fast stdio" if available?'
. ./myread
case "$ans" in
-y|Y) val="$define" ;;
+y|Y) val="$define" ;;
*) val="$undef" ;;
esac
set usefaststdio
@@ -9831,6 +9924,7 @@
chmod +x protochk
$eunicefix protochk
+: Define hasproto macro for Configure internal use
hasproto='varname=$1; func=$2; shift; shift;
while $test $# -ge 2; do
case "$1" in
@@ -9858,6 +9952,7 @@
set sys/select.h i_sysselct
eval $inhdr
+: Define hasfield macro for Configure internal use
hasfield='varname=$1; struct=$2; field=$3; shift; shift; shift;
while $test $# -ge 2; do
case "$1" in
@@ -10958,6 +11053,7 @@
set clearenv d_clearenv
eval $inlibc
+: Define hasstruct macro for Configure internal use
hasstruct='varname=$1; struct=$2; shift; shift;
while $test $# -ge 2; do
case "$1" in
@@ -10976,9 +11072,9 @@
eval $setvar;
$rm_try'
+: see whether socket exists
socketlib=''
sockethdr=''
-: see whether socket exists
echo " "
$echo $n "Hmm... $c" >&4
if set socket val -f d_socket; eval $csym; $val; then
@@ -11063,7 +11159,7 @@
set sys/uio.h i_sysuio
eval $inhdr
-
+: Check for cmsghdr support
echo " "
echo "Checking to see if your system supports struct cmsghdr..." >&4
set d_cmsghdr_s cmsghdr $i_systypes sys/types.h $d_socket sys/socket.h
$i_sysuio sys/uio.h
@@ -11551,6 +11647,7 @@
set dlfcn.h i_dlfcn
eval $inhdr
+: Check what extension to use for shared libs
case "$usedl" in
$define|y|true)
$cat << EOM
@@ -12971,7 +13068,6 @@
set fpclassl d_fpclassl
eval $inlibc
-
: check for fpos64_t
echo " "
echo "Checking to see if you have fpos64_t..." >&4
@@ -13006,7 +13102,7 @@
set sys/mount.h i_sysmount
eval $inhdr
-
+: Check for fs_data_s
echo " "
echo "Checking to see if your system supports struct fs_data..." >&4
set d_fs_data_s fs_data $i_systypes sys/types.h $i_sysparam sys/param.h
$i_sysmount sys/mount.h
@@ -13027,12 +13123,10 @@
set fsetpos d_fsetpos
eval $inlibc
-
: see if fstatfs exists
set fstatfs d_fstatfs
eval $inlibc
-
: see if statvfs exists
set statvfs d_statvfs
eval $inlibc
@@ -13096,7 +13190,6 @@
set getespwnam d_getespwnam
eval $inlibc
-
: see if getfsstat exists
set getfsstat d_getfsstat
eval $inlibc
@@ -13842,6 +13935,7 @@
set getpagesize d_getpagsz
eval $inlibc
+: Optional checks for getprotobyname and getprotobynumber
: see if getprotobyname exists
set getprotobyname d_getpbyname
@@ -14202,6 +14296,7 @@
;;
esac
+: Optional checks for getsbyname and getsbyport
: see if getservbyname exists
set getservbyname d_getsbyname
@@ -15104,7 +15199,7 @@
set d_msg
eval $setvar
-
+: Check for msghdr_s
echo " "
echo "Checking to see if your system supports struct msghdr..." >&4
set d_msghdr_s msghdr $i_systypes sys/types.h $d_socket sys/socket.h $i_sysuio
sys/uio.h
@@ -15700,7 +15795,6 @@
set pthread_attr_setscope d_pthread_attr_setscope
eval $inlibc
-
: see whether the various POSIXish _yields exist
$cat >try.c <<EOP
#include <pthread.h>
@@ -16825,7 +16919,6 @@
set sfio.h i_sfio
eval $inhdr
-
: see if sfio library is available
case "$i_sfio" in
$define)
@@ -17343,24 +17436,21 @@
set sys/stat.h i_sysstat
eval $inhdr
-
: see if stat knows about block sizes
echo " "
echo "Checking to see if your struct stat has st_blocks field..." >&4
set d_statblks stat st_blocks $i_sysstat sys/stat.h
eval $hasfield
-
: see if this is a sys/vfs.h system
set sys/vfs.h i_sysvfs
eval $inhdr
-
: see if this is a sys/statfs.h system
set sys/statfs.h i_sysstatfs
eval $inhdr
-
+: Check for statfs_s
echo " "
echo "Checking to see if your system supports struct statfs..." >&4
set d_statfs_s statfs $i_systypes sys/types.h $i_sysparam sys/param.h
$i_sysmount sys/mount.h $i_sysvfs sys/vfs.h $i_sysstatfs sys/statfs.h
@@ -17371,10 +17461,9 @@
esac
-
: see if struct statfs knows about f_flags
case "$d_statfs_s" in
-define)
+define)
echo " "
echo "Checking to see if your struct statfs has f_flags field..." >&4
set d_statfs_f_flags statfs f_flags $i_systypes sys/types.h $i_sysparam
sys/param.h $i_sysmount sys/mount.h $i_sysvfs sys/vfs.h $i_sysstatfs
sys/statfs.h
@@ -19037,7 +19126,7 @@
EOM
;;
esac
-$rm_try
+$rm_try tryp
: Store the full pathname to the ar program for use in the C program
: Respect a hint or command line value for full_ar.
@@ -19302,7 +19391,7 @@
;;
esac
-
+: Check format strings for internal types
echo " "
$echo "Checking the format strings to be used for Perl's internal types..." >&4
@@ -19361,6 +19450,7 @@
;;
esac
+: Check format string for GID
echo " "
$echo "Checking the format string to be used for gids..." >&4
@@ -19408,7 +19498,6 @@
set setgroups d_setgrps
eval $inlibc
-
: Find type of 2nd arg to 'getgroups()' and 'setgroups()'
echo " "
case "$d_getgrps$d_setgrps" in
@@ -20472,7 +20561,7 @@
fi
-
+: Check format string for UID
echo " "
$echo "Checking the format string to be used for uids..." >&4
@@ -20511,7 +20600,7 @@
;;
esac
-
+: Check if site customization support was requested
case "$usesitecustomize" in
$define|true|[Yy]*)
usesitecustomize="$define"
@@ -20552,7 +20641,6 @@
;;
esac
-
: see if this is a assert.h system
set assert.h i_assert
eval $inhdr
@@ -21009,12 +21097,10 @@
set i_syssockio
eval $setvar
-
: see if this is a syslog.h system
set syslog.h i_syslog
eval $inhdr
-
: see if this is a sys/mode.h system
set sys/mode.h i_sysmode
eval $inhdr
@@ -21035,7 +21121,6 @@
set sys/un.h i_sysun
eval $inhdr
-
: see if this is a sys/utsname.h system
set sys/utsname.h i_sysutsname
eval $inhdr
@@ -22065,6 +22150,7 @@
doublesize='$doublesize'
drand01='$drand01'
drand48_r_proto='$drand48_r_proto'
+dtrace='$dtrace'
dynamic_ext='$dynamic_ext'
eagain='$eagain'
ebcdic='$ebcdic'
@@ -22525,6 +22611,7 @@
use64bitint='$use64bitint'
usecrosscompile='$usecrosscompile'
usedl='$usedl'
+usedtrace='$usedtrace'
usefaststdio='$usefaststdio'
useithreads='$useithreads'
uselargefiles='$uselargefiles'
==== //depot/maint-5.10/perl/Cross/config.sh-arm-linux#3 (text) ====
Index: perl/Cross/config.sh-arm-linux
--- perl/Cross/config.sh-arm-linux#2~33872~ 2008-05-19 16:42:26.000000000
-0700
+++ perl/Cross/config.sh-arm-linux 2008-05-19 17:34:37.000000000 -0700
@@ -530,6 +530,7 @@
doublesize='8'
drand01='drand48()'
drand48_r_proto='0'
+dtrace=''
dynamic_ext='B ByteLoader Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek
Digest/MD5 Encode Fcntl File/Glob Filter/Util/Call I18N/Langinfo IO IPC/SysV
List/Util MIME/Base64 Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via
SDBM_File Socket Storable Sys/Hostname Sys/Syslog Time/HiRes Unicode/Normalize
XS/APItest XS/Typemap attrs re threads threads/shared'
eagain='EAGAIN'
ebcdic='undef'
@@ -985,6 +986,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='define'
+usedtrace='undef'
usefaststdio='define'
useithreads='undef'
uselargefiles='define'
==== //depot/maint-5.10/perl/NetWare/config.wc#3 (text) ====
Index: perl/NetWare/config.wc
--- perl/NetWare/config.wc#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/NetWare/config.wc 2008-05-19 17:34:37.000000000 -0700
@@ -522,6 +522,7 @@
doublesize='8'
drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs'
eagain='EAGAIN'
ebcdic='undef'
@@ -949,6 +950,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='define'
+usedtrace='undef'
usefaststdio='undef'
useithreads='define'
uselargefiles='undef'
==== //depot/maint-5.10/perl/Porting/Glossary#3 (text) ====
Index: perl/Porting/Glossary
--- perl/Porting/Glossary#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/Porting/Glossary 2008-05-19 17:34:37.000000000 -0700
@@ -2414,6 +2414,9 @@
REENTRANT_PROTO_T_ABC macros of reentr.h if d_drand48_r
is defined.
+dtrace (usedtrace.U):
+ This variable holds the location of the dtrace executable.
+
dynamic_ext (Extensions.U):
This variable holds a list of XS extension files we want to
link dynamically into the package. It is used by Makefile.
@@ -4539,9 +4542,9 @@
is defined.
src (src.U):
- This variable holds the path to the package source. It is up to
- the Makefile to use this variable and set VPATH accordingly to
- find the sources remotely.
+ This variable holds the (possibly relative) path of the package source.
+ It is up to the Makefile to use this variable and set VPATH accordingly
+ to find the sources remotely. Use $pkgsrc to have an absolute path.
sSCNfldbl (longdblfio.U):
This variable, if defined, contains the string used by stdio to
@@ -4788,6 +4791,10 @@
This variable indicates if the system supports dynamic
loading of some sort. See also dlsrc and dlobj.
+usedtrace (usedtrace.U):
+ This variable indicates whether we are compiling with dtrace
+ support. See also dtrace.
+
usefaststdio (usefaststdio.U):
This variable conditionally defines the USE_FAST_STDIO symbol,
and indicates that Perl should be built to use 'fast stdio'.
==== //depot/maint-5.10/perl/config_h.SH#3 (text) ====
Index: perl/config_h.SH
--- perl/config_h.SH#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/config_h.SH 2008-05-19 17:34:37.000000000 -0700
@@ -3,6 +3,7 @@
#
# See Porting/config_h.pl
+: Set up for generating config_h.SH
case "$CONFIG_SH" in
'') CONFIG_SH=config.sh ;;
esac
@@ -959,7 +960,7 @@
/* If you can get stringification with catify, tell me how! */
#endif
#if $cpp_stuff == 42
-#define PeRl_CaTiFy(a, b) a ## b
+#define PeRl_CaTiFy(a, b) a ## b
#define PeRl_StGiFy(a) #a
/* the additional level of indirection enables these macros to be
* used as arguments to other macros. See K&R 2nd ed., page 231. */
@@ -2987,6 +2988,7 @@
#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)
# define _GNU_SOURCE
#endif
+
/* HAS_ISASCII:
* This manifest constant lets the C program know that isascii
* is available.
@@ -4434,7 +4436,6 @@
#ifndef USE_64_BIT_INT
#$use64bitint USE_64_BIT_INT /**/
#endif
-
#ifndef USE_64_BIT_ALL
#$use64bitall USE_64_BIT_ALL /**/
#endif
==== //depot/maint-5.10/perl/configure.com#5 (text) ====
Index: perl/configure.com
--- perl/configure.com#4~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/configure.com 2008-05-19 17:34:37.000000000 -0700
@@ -6105,6 +6105,7 @@
$ WC "dlsrc='dl_vms.c'"
$ WC "doublesize='" + doublesize + "'"
$ WC "drand01='" + drand01 + "'"
+$ WC "dtrace='" + "'"
$!
$! The extensions symbol may be quite long
$!
@@ -6420,6 +6421,7 @@
$ WC "usedefaulttypes='" + usedefaulttypes + "'" ! VMS-specific
$ WC "usecrosscompile='undef'"
$ WC "usedl='" + usedl + "'"
+$ WC "usedtrace='undef'"
$ WC "usefaststdio='" + usefaststdio + "'"
$ WC "useieee='" + useieee + "'" ! VMS-specific
$ WC "useithreads='" + useithreads + "'"
==== //depot/maint-5.10/perl/epoc/config.sh#3 (text) ====
Index: perl/epoc/config.sh
--- perl/epoc/config.sh#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/epoc/config.sh 2008-05-19 17:34:37.000000000 -0700
@@ -498,6 +498,7 @@
doublesize='8'
drand01='(rand()/(double)(1U<<RANDBITS))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext=''
eagain='EAGAIN'
ebcdic='undef'
@@ -855,6 +856,7 @@
use64bitint='undef'
usecrosscompile='define'
usedl='undef'
+usedtrace='undef'
usefaststdio='undef'
uselargefiles='undef'
uselongdouble='undef'
==== //depot/maint-5.10/perl/plan9/config_sh.sample#3 (text) ====
Index: perl/plan9/config_sh.sample
--- perl/plan9/config_sh.sample#2~33872~ 2008-05-19 16:42:26.000000000
-0700
+++ perl/plan9/config_sh.sample 2008-05-19 17:34:37.000000000 -0700
@@ -529,6 +529,7 @@
doublesize='8'
drand01='(rand() / (double) ((unsigned long)1 << 15))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext=''
eagain='EAGAIN'
ebcdic='undef'
@@ -956,6 +957,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='undef'
+usedtrace='undef'
usefaststdio='undef'
useithreads='undef'
uselargefiles='define'
==== //depot/maint-5.10/perl/symbian/config.sh#3 (text) ====
Index: perl/symbian/config.sh
--- perl/symbian/config.sh#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/symbian/config.sh 2008-05-19 17:34:37.000000000 -0700
@@ -476,6 +476,7 @@
doublesize='8'
drand01="((rand() & 0x7FFF) / (double) ((unsigned long)1 << 15))"
drand48_r_proto='0'
+dtrace=''
eagain='EAGAIN'
ebcdic='undef'
endgrent_r_proto='0'
@@ -771,6 +772,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='undef'
+usedtrace='undef'
usefaststdio='undef'
useithreads='undef'
uselargefiles='undef'
==== //depot/maint-5.10/perl/uconfig.h#3 (text+w) ====
Index: perl/uconfig.h
--- perl/uconfig.h#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/uconfig.h 2008-05-19 17:34:37.000000000 -0700
@@ -4358,6 +4358,12 @@
/*#define OLD_PTHREADS_API / **/
/*#define USE_REENTRANT_API / **/
+/* USE_DTRACE
+ * This symbol, if defined, indicates that Perl should
+ * be built with support for DTrace.
+ */
+/*#define USE_DTRACE / **/
+
/* PERL_VENDORARCH:
* If defined, this symbol contains the name of a private library.
* The library is private in the sense that it needn't be in anyone's
==== //depot/maint-5.10/perl/uconfig.sh#3 (xtext) ====
Index: perl/uconfig.sh
--- perl/uconfig.sh#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/uconfig.sh 2008-05-19 17:34:37.000000000 -0700
@@ -465,6 +465,7 @@
doublesize='8'
drand01="((rand() & 0x7FFF) / (double) ((unsigned long)1 << 15))"
drand48_r_proto='0'
+dtrace=''
eagain='EAGAIN'
ebcdic='undef'
endgrent_r_proto='0'
@@ -737,6 +738,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='undef'
+usedtrace='undef'
usefaststdio='undef'
useithreads='undef'
uselargefiles='undef'
==== //depot/maint-5.10/perl/win32/config.bc#3 (text) ====
Index: perl/win32/config.bc
--- perl/win32/config.bc#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config.bc 2008-05-19 17:34:37.000000000 -0700
@@ -518,6 +518,7 @@
doublesize='8'
drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs'
eagain='EAGAIN'
ebcdic='undef'
@@ -979,6 +980,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='define'
+usedtrace='undef'
usefaststdio='undef'
useithreads='undef'
uselargefiles='undef'
==== //depot/maint-5.10/perl/win32/config.ce#3 (text) ====
Index: perl/win32/config.ce
--- perl/win32/config.ce#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config.ce 2008-05-19 17:34:37.000000000 -0700
@@ -520,6 +520,7 @@
doublesize='8'
drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs'
eagain='EAGAIN'
ebcdic='undef'
@@ -941,6 +942,7 @@
use64bitint='undef'
usecrosscompile='define'
usedl='define'
+usedtrace='undef'
usefaststdio='undef'
useithreads='~USE_ITHREADS~'
uselargefiles='undef'
==== //depot/maint-5.10/perl/win32/config.gc#3 (text) ====
Index: perl/win32/config.gc
--- perl/win32/config.gc#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config.gc 2008-05-19 17:34:37.000000000 -0700
@@ -518,6 +518,7 @@
doublesize='8'
drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs'
eagain='EAGAIN'
ebcdic='undef'
@@ -979,6 +980,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='define'
+usedtrace='undef'
usefaststdio='undef'
useithreads='undef'
uselargefiles='undef'
==== //depot/maint-5.10/perl/win32/config.vc#3 (text) ====
Index: perl/win32/config.vc
--- perl/win32/config.vc#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config.vc 2008-05-19 17:34:37.000000000 -0700
@@ -518,6 +518,7 @@
doublesize='8'
drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs'
eagain='EAGAIN'
ebcdic='undef'
@@ -979,6 +980,7 @@
use64bitint='undef'
usecrosscompile='undef'
usedl='define'
+usedtrace='undef'
usefaststdio='undef'
useithreads='undef'
uselargefiles='undef'
==== //depot/maint-5.10/perl/win32/config.vc64#3 (text) ====
Index: perl/win32/config.vc64
--- perl/win32/config.vc64#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config.vc64 2008-05-19 17:34:37.000000000 -0700
@@ -518,6 +518,7 @@
doublesize='8'
drand01='(rand()/(double)((unsigned)1<<RANDBITS))'
drand48_r_proto='0'
+dtrace=''
dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs'
eagain='EAGAIN'
ebcdic='undef'
@@ -979,6 +980,7 @@
use64bitint='define'
usecrosscompile='undef'
usedl='define'
+usedtrace='undef'
usefaststdio='undef'
useithreads='undef'
uselargefiles='undef'
==== //depot/maint-5.10/perl/win32/config_H.bc#3 (text+w) ====
Index: perl/win32/config_H.bc
--- perl/win32/config_H.bc#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config_H.bc 2008-05-19 17:34:37.000000000 -0700
@@ -4372,6 +4372,12 @@
/*#define OLD_PTHREADS_API /**/
/*#define USE_REENTRANT_API /**/
+/* USE_DTRACE
+ * This symbol, if defined, indicates that Perl should
+ * be built with support for DTrace.
+ */
+/*#define USE_DTRACE / **/
+
/* PERL_VENDORARCH:
* If defined, this symbol contains the name of a private library.
* The library is private in the sense that it needn't be in anyone's
==== //depot/maint-5.10/perl/win32/config_H.ce#3 (text) ====
Index: perl/win32/config_H.ce
--- perl/win32/config_H.ce#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config_H.ce 2008-05-19 17:34:37.000000000 -0700
@@ -3664,6 +3664,12 @@
/*#define OLD_PTHREADS_API /**/
/*#define USE_REENTRANT_API /**/
+/* USE_DTRACE
+ * This symbol, if defined, indicates that Perl should
+ * be built with support for DTrace.
+ */
+/*#define USE_DTRACE / **/
+
/* PERL_VENDORARCH:
* If defined, this symbol contains the name of a private library.
* The library is private in the sense that it needn't be in anyone's
==== //depot/maint-5.10/perl/win32/config_H.gc#3 (text+w) ====
Index: perl/win32/config_H.gc
--- perl/win32/config_H.gc#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config_H.gc 2008-05-19 17:34:37.000000000 -0700
@@ -4402,6 +4402,12 @@
/*#define OLD_PTHREADS_API /**/
/*#define USE_REENTRANT_API /**/
+/* USE_DTRACE
+ * This symbol, if defined, indicates that Perl should
+ * be built with support for DTrace.
+ */
+/*#define USE_DTRACE / **/
+
/* PERL_VENDORARCH:
* If defined, this symbol contains the name of a private library.
* The library is private in the sense that it needn't be in anyone's
==== //depot/maint-5.10/perl/win32/config_H.vc#3 (text+w) ====
Index: perl/win32/config_H.vc
--- perl/win32/config_H.vc#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config_H.vc 2008-05-19 17:34:37.000000000 -0700
@@ -4398,6 +4398,12 @@
/*#define OLD_PTHREADS_API /**/
/*#define USE_REENTRANT_API /**/
+/* USE_DTRACE
+ * This symbol, if defined, indicates that Perl should
+ * be built with support for DTrace.
+ */
+/*#define USE_DTRACE / **/
+
/* PERL_VENDORARCH:
* If defined, this symbol contains the name of a private library.
* The library is private in the sense that it needn't be in anyone's
==== //depot/maint-5.10/perl/win32/config_H.vc64#3 (text) ====
Index: perl/win32/config_H.vc64
--- perl/win32/config_H.vc64#2~33872~ 2008-05-19 16:42:26.000000000 -0700
+++ perl/win32/config_H.vc64 2008-05-19 17:34:37.000000000 -0700
@@ -4372,6 +4372,12 @@
/*#define OLD_PTHREADS_API /**/
/*#define USE_REENTRANT_API /**/
+/* USE_DTRACE
+ * This symbol, if defined, indicates that Perl should
+ * be built with support for DTrace.
+ */
+/*#define USE_DTRACE / **/
+
/* PERL_VENDORARCH:
* If defined, this symbol contains the name of a private library.
* The library is private in the sense that it needn't be in anyone's
End of Patch.
