develooper Front page | perl.perl5.changes | Postings from January 2009

[perl.git] branch maint-5.10, updated. GitLive-maint-5.10-138-gee5f6b4

From:
David Mitchell
Date:
January 27, 2009 15:51
Subject:
[perl.git] branch maint-5.10, updated. GitLive-maint-5.10-138-gee5f6b4
Message ID:
E1LRxi0-0002ti-Av@camel.booking.com
In perl.git, the branch maint-5.10 has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/ee5f6b42bce9adf7f266510884ee26020736962b?hp=a9d5417f3e7dccb0bf466f8aacc44d0269d0cc23>

- Log -----------------------------------------------------------------
commit ee5f6b42bce9adf7f266510884ee26020736962b
Author: Craig A. Berry <craigberry@mac.com>
Date:   Fri Nov 28 21:43:48 2008 +0000

    And (hopefully) the actual change for 34951.  Sigh.
    
    p4raw-id: //depot/perl@34952
    
    (cherry picked from commit 580410d244b57f3e9f5eaecba8c5bded5becd5d0)

M	configure.com

commit f50912c9165a8103faa34a80d510ca30962568fb
Author: H.Merijn Brand <h.m.brand@xs4all.nl>
Date:   Fri Nov 28 07:52:03 2008 +0000

    could we add usedevel to config.h?
    From: Nicholas Clark <nick@ccl4.org>
    Date: Thu, 27 Nov 2008 20:28:08 +0000
    Message-ID: <20081127202807.GG49335@plum.flirble.org>
    
    Subject: Avoid duplicate vendorlib [PATCH]
    From: Gisle Aas <gisle@activestate.com>
    Date: Wed, 12 Nov 2008 13:50:34 +0100
    Message-Id: <71B06786-4C55-4A76-BE24-C01F89015D45@activestate.com>
    
    p4raw-id: //depot/perl@34950
    
    (cherry picked from commit 1be1b388c18674b89d106c333a2dd62d9b736e29)

M	Configure
M	Cross/config.sh-arm-linux
M	NetWare/config.wc
M	Porting/Glossary
M	config_h.SH
M	configure.com
M	epoc/config.sh
M	perl.c
M	plan9/config_sh.sample
M	symbian/config.sh
M	uconfig.sh
M	win32/config.bc
M	win32/config.ce
M	win32/config.gc
M	win32/config.vc
M	win32/config.vc64
-----------------------------------------------------------------------

Summary of changes:
 Configure                 |   13 +++++++++++--
 Cross/config.sh-arm-linux |    1 +
 NetWare/config.wc         |    1 +
 Porting/Glossary          |    4 ++++
 config_h.SH               |    7 +++++++
 configure.com             |    2 ++
 epoc/config.sh            |    1 +
 perl.c                    |    3 +++
 plan9/config_sh.sample    |    1 +
 symbian/config.sh         |    1 +
 uconfig.sh                |    1 +
 win32/config.bc           |    1 +
 win32/config.ce           |    1 +
 win32/config.gc           |    1 +
 win32/config.vc           |    1 +
 win32/config.vc64         |    1 +
 16 files changed, 38 insertions(+), 2 deletions(-)

diff --git a/Configure b/Configure
index e85370c..8f0dc29 100755
--- a/Configure
+++ b/Configure
@@ -25,7 +25,7 @@
 
 # $Id: Head.U 6 2006-08-25 22:21:46Z rmanfredi $
 #
-# Generated on Thu Nov  6 21:06:19 CET 2008 [metaconfig 3.5 PL0]
+# Generated on Fri Nov 28 08:39:51 CET 2008 [metaconfig 3.5 PL0]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -209,6 +209,7 @@ to=''
 usecrosscompile=''
 extern_C=''
 mistrustnm=''
+usedevel=''
 perllibs=''
 dynamic_ext=''
 extensions=''
@@ -2142,7 +2143,8 @@ EOF
 : See if we are using a devel version and want that
 xversion=`awk '/define[ 	]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
 case "$usedevel" in
-$define|true|[yY]*) ;;
+$define|true|[yY]*)
+    usedevel="$define" ;;
 *) case "$xversion" in
    *[13579])
 	cat >&4 <<EOH
@@ -2175,6 +2177,7 @@ EOH
 	esac
 	;;
     esac
+    usedevel="$undef"
     ;;
 esac
 case "$usedevel" in
@@ -7021,6 +7024,11 @@ case "$vendorprefix" in
 esac
 prefixvar=vendorarch
 . ./installprefix
+if $test X"$vendorarch" = X"$vendorlib"; then
+	d_vendorarch="$undef"
+else
+	d_vendorarch="$define"
+fi
 
 : Final catch-all directories to search
 $cat <<EOM
@@ -23030,6 +23038,7 @@ use5005threads='$use5005threads'
 use64bitall='$use64bitall'
 use64bitint='$use64bitint'
 usecrosscompile='$usecrosscompile'
+usedevel='$usedevel'
 usedl='$usedl'
 usedtrace='$usedtrace'
 usefaststdio='$usefaststdio'
diff --git a/Cross/config.sh-arm-linux b/Cross/config.sh-arm-linux
index d28df8e..7b9cad8 100644
--- a/Cross/config.sh-arm-linux
+++ b/Cross/config.sh-arm-linux
@@ -1004,6 +1004,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='define'
 usedtrace='undef'
 usefaststdio='define'
diff --git a/NetWare/config.wc b/NetWare/config.wc
index be85877..4907437 100644
--- a/NetWare/config.wc
+++ b/NetWare/config.wc
@@ -968,6 +968,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='define'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/Porting/Glossary b/Porting/Glossary
index 8f0cdce..2700073 100644
--- a/Porting/Glossary
+++ b/Porting/Glossary
@@ -4890,6 +4890,10 @@ usecrosscompile (Cross.U):
 	This variable conditionally defines the USE_CROSS_COMPILE symbol,
 	and indicates that Perl has been cross-compiled.
 
+usedevel (Devel.U):
+	This variable indicates that Perl was configured with development
+	features enabled.  This should not be done for production builds.
+
 usedl (dlsrc.U):
 	This variable indicates if the system supports dynamic
 	loading of some sort.  See also dlsrc and dlobj.
diff --git a/config_h.SH b/config_h.SH
index a01f274..7706b72 100644
--- a/config_h.SH
+++ b/config_h.SH
@@ -3297,6 +3297,13 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$ebcdic	EBCDIC 		/**/
 
+/* PERL_USE_DEVEL:
+ *	This symbol, if defined, indicates that Perl was configured with
+ *	-Dusedevel, to enable development features.  This should not be
+ *	done for production builds.
+ */
+#$usedevel	PERL_USE_DEVEL		/**/
+
 /* HAS_ATOLF:
  *	This symbol, if defined, indicates that the atolf routine is
  *	available to convert strings into long doubles.
diff --git a/configure.com b/configure.com
index e0f330b..6231a82 100644
--- a/configure.com
+++ b/configure.com
@@ -3169,6 +3169,7 @@ $ THEN d_mymalloc="define"
 $ ELSE d_mymalloc="undef"
 $ ENDIF
 $!
+$ usedevel="undef"
 $ usedl="define"
 $ startperl="""$ perl 'f$env(\""procedure\"")' \""'"+"'p1'\"" \""'"+"'p2'\"" \""'"+"'p3'\"" \""'"+"'p4'\"" \""'"+"'p5'\"" \""'"+"'p6'\"" \""'"+"'p7'\"" \""'"+"'p8'\""!\n"
 $ startperl=startperl + "$ exit++ + ++$status!=0 and $exit=$status=undef; while($#ARGV != -1 and $ARGV[$#ARGV] eq '"+"'){pop @ARGV;}"""
@@ -6519,6 +6520,7 @@ $ WC "usecasesensitive='" + be_case_sensitive + "'"    ! VMS-specific
 $ WC "usedebugging_perl='"+use_debugging_perl+"'"
 $ WC "usedefaulttypes='" + usedefaulttypes + "'"    ! VMS-specific
 $ WC "usecrosscompile='undef'"
+$ WC "usedevel='" + usedevel + "'"
 $ WC "usedl='" + usedl + "'"
 $ WC "usedtrace='undef'"
 $ WC "usefaststdio='" + usefaststdio + "'"
diff --git a/epoc/config.sh b/epoc/config.sh
index 246c04b..37e273b 100644
--- a/epoc/config.sh
+++ b/epoc/config.sh
@@ -873,6 +873,7 @@ uniq='uniq'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='define'
+usedevel='undef'
 usedl='undef'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/perl.c b/perl.c
index 9c8f207..1f238c9 100644
--- a/perl.c
+++ b/perl.c
@@ -1876,6 +1876,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #  ifdef PERL_MEM_LOG_TIMESTAMP
 			     " PERL_MEM_LOG_TIMESTAMP"
 #  endif
+#  ifdef PERL_USE_DEVEL
+			     " PERL_USE_DEVEL"
+#  endif
 #  ifdef PERL_USE_SAFE_PUTENV
 			     " PERL_USE_SAFE_PUTENV"
 #  endif
diff --git a/plan9/config_sh.sample b/plan9/config_sh.sample
index 10b6b1c..d2b6544 100644
--- a/plan9/config_sh.sample
+++ b/plan9/config_sh.sample
@@ -975,6 +975,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='undef'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/symbian/config.sh b/symbian/config.sh
index 40d7c5a..8b2cd4a 100644
--- a/symbian/config.sh
+++ b/symbian/config.sh
@@ -790,6 +790,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='undef'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/uconfig.sh b/uconfig.sh
index 68702f9..c0a749e 100755
--- a/uconfig.sh
+++ b/uconfig.sh
@@ -756,6 +756,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='undef'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/win32/config.bc b/win32/config.bc
index cee153e..5bded78 100644
--- a/win32/config.bc
+++ b/win32/config.bc
@@ -998,6 +998,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='define'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/win32/config.ce b/win32/config.ce
index c6ee19c..8e33968 100644
--- a/win32/config.ce
+++ b/win32/config.ce
@@ -960,6 +960,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='define'
+usedevel='undef'
 usedl='define'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/win32/config.gc b/win32/config.gc
index ee42db8..5c39929 100644
--- a/win32/config.gc
+++ b/win32/config.gc
@@ -998,6 +998,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='define'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/win32/config.vc b/win32/config.vc
index a56d7e2..5990a1c 100644
--- a/win32/config.vc
+++ b/win32/config.vc
@@ -998,6 +998,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='undef'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='define'
 usedtrace='undef'
 usefaststdio='undef'
diff --git a/win32/config.vc64 b/win32/config.vc64
index 29db12c..4a864ea 100644
--- a/win32/config.vc64
+++ b/win32/config.vc64
@@ -998,6 +998,7 @@ use5005threads='undef'
 use64bitall='undef'
 use64bitint='define'
 usecrosscompile='undef'
+usedevel='undef'
 usedl='define'
 usedtrace='undef'
 usefaststdio='undef'

--
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About