In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a3929e2d04da78f1e4fb19121feb28e87f556fb0?hp=b423b62bc2df6471c52c760378439f1ca4ac4880>
- Log ----------------------------------------------------------------- commit a3929e2d04da78f1e4fb19121feb28e87f556fb0 Author: Jerry D. Hedden <[email protected]> Date: Wed Aug 12 14:28:37 2009 -0400 Typos in perlbug.PL (cherry picked from commit 7acb6aa6c27bdd5c90522b7c65c5e3cf9a184f6b) M utils/perlbug.PL commit 42701d4a9b11c2bf0b4e746b508f335e8cbccd29 Author: David Mitchell <[email protected]> Date: Wed Aug 12 19:11:24 2009 +0100 perlbug.PL assumes patchlevel.h has simple patch lists; but these days it contains macros that expand to patch lists; for now, just skip these macros. need a proper fix sometime. (cherry picked from commit 8a00c8caf7ac9ccd6bd8eaa8869321108bfef1c6) M utils/perlbug.PL commit 54cd7feefc8c5a721e40bbc17735f0744c165975 Author: David Mitchell <[email protected]> Date: Wed Aug 12 16:50:09 2009 +0100 release_managers_guide: mention testing perlbug (cherry picked from commit 47b1f0962035bb360c3ab2d10009defe22415877) M Porting/release_managers_guide.pod commit 9aa41cc32be72554b1c8a11d670dd3904be11d2e Author: Moritz Lenz <[email protected]> Date: Wed Aug 12 14:41:17 2009 +0200 document split in void context in perlfunc.pod (cherry picked from commit 521fe6911c4cc74d9f8b0db8553451c4ccf7ad7f) M pod/perlfunc.pod commit 3a71026754835e2696cbd89e4f38dafaea6d6070 Author: H.Merijn Brand <[email protected]> Date: Wed Aug 12 09:34:28 2009 +0200 Remove duplicate entry (from config_heavy.pl) (cherry picked from commit 94a9a4bc91d62776a9de76c5bf25aeb1129c1a24) M Configure ----------------------------------------------------------------------- Summary of changes: Configure | 11 +++++------ Porting/release_managers_guide.pod | 24 ++++++++++++++++++++++++ pod/perlfunc.pod | 7 ++++--- utils/perlbug.PL | 2 ++ 4 files changed, 35 insertions(+), 9 deletions(-) diff --git a/Configure b/Configure index 185d6b6..dda80a9 100755 --- a/Configure +++ b/Configure @@ -25,7 +25,7 @@ # $Id: Head.U 6 2006-08-25 22:21:46Z rmanfredi $ # -# Generated on Tue Jun 30 00:49:36 CEST 2009 [metaconfig 3.5 PL0] +# Generated on Wed Aug 12 09:30:48 CEST 2009 [metaconfig 3.5 PL0] # (with additional metaconfig patches by [email protected]) cat >c1$$ <<EOF @@ -21644,9 +21644,9 @@ find_extensions=' leaf=`echo $xxx | $sed -e s/.*-//`; if $test -d File-Glob; then $ls -1 $xxx > $$.tmp; - if $contains "\.xs$" $$.tmp > /dev/null 2>&1; then + if $contains "\.xs$" $$.tmp > /dev/null 2>&1; then known_extensions="$known_extensions $this_ext"; - elif $contains "\.c$" $$.tmp > /dev/null 2>&1; then + elif $contains "\.c$" $$.tmp > /dev/null 2>&1; then known_extensions="$known_extensions $this_ext"; elif $test -d $xxx; then nonxs_extensions="$nonxs_extensions $this_ext"; @@ -22122,7 +22122,9 @@ $startsh # Target system : $myuname EOT +: Add in command line options if available $test -f UU/cmdline.opt && $cat UU/cmdline.opt >> config.sh + $spitshell <<EOT >>config.sh Author='$Author' @@ -23191,9 +23193,6 @@ zcat='$zcat' zip='$zip' EOT -: Add in command line options if available -$test -f UU/cmdline.opt && $cat UU/cmdline.opt >> config.sh - : add special variables $test -f $src/patchlevel.h && \ awk '/^#define[ ]+PERL_/ {printf "%s=%s\n",$2,$3}' $src/patchlevel.h >>config.sh diff --git a/Porting/release_managers_guide.pod b/Porting/release_managers_guide.pod index 622c575..1102ca7 100644 --- a/Porting/release_managers_guide.pod +++ b/Porting/release_managers_guide.pod @@ -661,6 +661,30 @@ Install an XS module, for example: I<You MAY SKIP this step for SNAPSHOT> +Check that the C<perlbug> utility works. Try the following: + + $ /path/to/perl/perlbug + ... + Subject: test bug report + Local perl administrator [yourself]: + Editor [vi]: + Module: + Category [core]: + Severity [low]: + (edit report) + Action (Send/Display/Edit/Subject/Save to File): f + Name of file to save message in [perlbug.rep]: + Action (Send/Display/Edit/Subject/Save to File): q + +and carefully examine the output (in F<perlbug.rep]>), especially +the "Locally applied patches" section. If everything appears okay, then +try it again, this time actually submitting the bug report. Check that it +shows up, then remember to close it! + +=item * + +I<You MAY SKIP this step for SNAPSHOT> + Wait for the smoke tests to catch up with the commit which this release is based on (or at least the last commit of any consequence). diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index b7b12cb..6a7661e 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -5454,9 +5454,10 @@ Splits the string EXPR into a list of strings and returns that list. By default, empty leading fields are preserved, and empty trailing ones are deleted. (If all fields are empty, they are considered to be trailing.) -In scalar context, returns the number of fields found and splits into -the C<@_> array. Use of split in scalar context is deprecated, however, -because it clobbers your subroutine arguments. +In scalar context, returns the number of fields found. In scalar and void +context it splits into the C<@_> array. Use of split in scalar and void +context is deprecated, however, because it clobbers your subroutine +arguments. If EXPR is omitted, splits the C<$_> string. If PATTERN is also omitted, splits on whitespace (after skipping any leading whitespace). Anything diff --git a/utils/perlbug.PL b/utils/perlbug.PL index 97cf0c8..8d02a8b 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -41,6 +41,8 @@ my @patches; while (<PATCH_LEVEL>) { last if /^\s*}/; next if /^\s*#/; # preprocessor stuff + next if /PERL_GIT_UNPUSHED_COMMITS/; # XXX expand instead + next if /PERL_GIT_UNCOMMITTED_CHANGES/; # XXX expand instead chomp; s/^\s+,?\s*"?//; s/"?\s*,?$//; -- Perl5 Master Repository
