[perl.git] branch blead updated. v5.29.4-98-g6c5080f25f

[Tony Cook]

In perl.git, the branch blead has been updated



- Log -
commit 6c5080f25fa3dcede391007ffe328ea53779c52f
Author: Niko Tyni 
Date:   Sat Nov 17 19:27:42 2018 +0200

Make Errno_pm.PL compatible with /usr/include//errno.h

As seen in , Debian glibc
maintainers intend to move system header files from /usr/include to
/usr/include/ at some point. This would break Errno_pm.PL, which
has logic for asking cpp for the location of errno.h but fails earlier
if errno.h is not on a list of known paths.

Take the cpp fallback instead of dying. The behaviour should stay
identical as long as errno.h is not moved.

This will also enable multiarch (non-sysroot) cross builds.

Original patch by Helmut Grohne.

Bug-Debian: https://bugs.debian.org/875921

---

Summary of changes:
 ext/Errno/Errno_pm.PL | 24 ++--
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index d565f31b2f..84fd151d27 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
 use Config;
 use strict;
 
-our $VERSION = "1.29";
+our $VERSION = "1.30";
 
 my %err = ();
 
@@ -111,6 +111,17 @@ sub default_cpp {
 
 sub get_files {
 my %file = ();
+# When cross-compiling we may store a path for gcc's "sysroot" option:
+my $sysroot = $Config{sysroot} || '';
+my $linux_errno_h;
+if ($^O eq 'linux') {
+   # Some Linuxes have weird errno.hs which generate
+   # no #file or #line directives
+   ($linux_errno_h) = grep { -e $_ } map { "$_/errno.h" }
+   "$sysroot/usr/include", "$sysroot/usr/local/include",
+   split / / => $Config{locincpth};
+}
+
 # VMS keeps its include files in system libraries
 if ($^O eq 'VMS') {
$file{'Sys$Library:DECC$RTLDEF.TLB'} = 1;
@@ -125,17 +136,10 @@ sub get_files {
}
 } elsif ($^O eq 'linux' &&
  $Config{gccversion} ne '' && 
- $Config{gccversion} !~ /intel/i
+ $Config{gccversion} !~ /intel/i &&
  # might be using, say, Intel's icc
+ $linux_errno_h
 ) {
-# When cross-compiling we may store a path for gcc's "sysroot" option:
-my $sysroot = $Config{sysroot} || '';
-   # Some Linuxes have weird errno.hs which generate
-   # no #file or #line directives
-   my ($linux_errno_h) = grep { -e $_ } map { "$_/errno.h" }
-   "$sysroot/usr/include", "$sysroot/usr/local/include",
-   split / / => $Config{locincpth} or
-   die "Cannot find errno.h";
$file{$linux_errno_h} = 1;
 } elsif ($^O eq 'haiku') {
# hidden in a special place

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.4-97-g72f80477dd

[Tony Cook]

In perl.git, the branch blead has been updated



- Log -
commit 72f80477dde6b7a55e4f16b0ed65951a10ef5fcc
Author: Tony Cook 
Date:   Tue Nov 20 10:25:59 2018 +1100

James Clarke is now a perl author

commit a3c63a9402266c2f0e3bb0f421763d96ea1bd856
Author: James Clarke 
Date:   Mon Nov 19 14:25:56 2018 +

Also work around renameat() kernel bug on GNU/kFreeBSD

---

Summary of changes:
 AUTHORS | 1 +
 doio.c  | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/AUTHORS b/AUTHORS
index 709a7fc77f..a752a5e8cf 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -542,6 +542,7 @@ Jacqui Caren
 Jake Hamby 
 James  
 James A. Duncan
+James Clarke   
 James E Keenan 
 James FitzGibbon   
 James Jurach   
diff --git a/doio.c b/doio.c
index cc15bf9f41..8d9131cc85 100644
--- a/doio.c
+++ b/doio.c
@@ -1461,7 +1461,7 @@ Perl_nextargv(pTHX_ GV *gv, bool nomagicopen)
 }
 
 #ifdef ARGV_USE_ATFUNCTIONS
-#  if defined(__FreeBSD__)
+#  if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
 
 /* FreeBSD 11 renameat() mis-behaves strangely with absolute paths in cases 
where the
  * equivalent rename() succeeds
@@ -1481,7 +1481,7 @@ S_my_renameat(int olddfd, const char *oldpath, int 
newdfd, const char *newpath)
 
 #  else
 #define S_my_renameat(dh1, pv1, dh2, pv2) renameat((dh1), (pv1), (dh2), 
(pv2))
-#  endif /* if defined(__FreeBSD__) */
+#  endif /* if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) */
 #endif
 
 static bool

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.4-95-ge1895adcbd

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit e1895adcbd5ea43def0c89e1b0bff0628af49687
Author: Karl Williamson 
Date:   Mon Nov 19 13:59:56 2018 -0700

Allow forcing use of POSIX 2008 locale fcns

These thread-safe functions are not normally used on unthreaded builds,
retaining the use of the library functions that have long been used.
But, it is now possible to tell Configure to use them on unthreaded
builds.

commit bc55cddf915d70f806feda38506788f4c61a2574
Author: Karl Williamson 
Date:   Mon Nov 19 13:55:04 2018 -0700

t/harness: Run tests for IO::Zlib sequentially

Most of these failed for me in one run inexplicably.  This typically
means there was a glitch, and its likely to be that the tests somehow
interferred with each other.  Rather than take the time to investigate
further, I changed harness to run the tests for this distribution
sequentially.

---

Summary of changes:
 makedef.pl | 12 +---
 perl.h |  9 +++--
 pod/perldelta.pod  |  5 -
 pod/perllocale.pod |  5 +
 t/harness  |  2 +-
 5 files changed, 26 insertions(+), 7 deletions(-)

diff --git a/makedef.pl b/makedef.pl
index 6b97ad0033..3c541d85d6 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -129,7 +129,7 @@ if ($define{USE_ITHREADS} && $ARGS{PLATFORM} ne 'win32' && 
$ARGS{PLATFORM} ne 'n
 $define{USE_REENTRANT_API} = 1;
 }
 
-if ( $define{USE_ITHREADS}
+if (($define{USE_ITHREADS} || $define{USE_THREAD_SAFE_LOCALE})
 &&   $define{HAS_SETLOCALE}
 && ! $define{NO_LOCALE}
 && ! $define{NO_POSIX_2008_LOCALE})
@@ -386,7 +386,6 @@ unless ($define{'USE_ITHREADS'}) {
 ++$skip{$_} foreach qw(
 PL_keyword_plugin_mutex
PL_check_mutex
-PL_curlocales
PL_op_mutex
PL_regex_pad
PL_regex_padav
@@ -425,10 +424,17 @@ unless ($define{'USE_ITHREADS'}) {
Perl_stashpv_hvname_match
Perl_regdupe_internal
Perl_newPADOP
-PL_C_locale_obj
 );
 }
 
+unless ($define{USE_ITHREADS} || $define{USE_THREAD_SAFE_LOCALE})
+{
+++$skip{$_} foreach qw(
+PL_C_locale_obj
+PL_curlocales
+);
+}
+
 unless ( $define{'HAS_NEWLOCALE'}
 &&   $define{'HAS_FREELOCALE'}
 &&   $define{'HAS_USELOCALE'}
diff --git a/perl.h b/perl.h
index ffa0e038c4..e436e03899 100644
--- a/perl.h
+++ b/perl.h
@@ -775,11 +775,16 @@
 
 #define HAS_POSIX_2008_LOCALE
 #  endif
-#  if defined(USE_ITHREADS) \
+   /* If compiled with
+* -DUSE_THREAD_SAFE_LOCALE, will do so even
+* on unthreaded builds */
+#  if(defined(USE_ITHREADS) || defined(USE_THREAD_SAFE_LOCALE)) \
   && (defined(HAS_POSIX_2008_LOCALE)\
   || (defined(WIN32) && defined(_MSC_VER) && _MSC_VER >= 1400)) \
   && ! defined(NO_THREAD_SAFE_LOCALE)
-#define USE_THREAD_SAFE_LOCALE
+#ifndef USE_THREAD_SAFE_LOCALE
+#  define USE_THREAD_SAFE_LOCALE
+#endif
 #ifdef HAS_POSIX_2008_LOCALE
 #  define USE_POSIX_2008_LOCALE
 #endif
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 7332175ff3..62dbd34db2 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -264,7 +264,10 @@ L section, instead.
 
 =item *
 
-XXX
+Normally the thread-safe functions used only on threaded builds.
+It is now possible to force their use on unthreaded builds on systems
+that have them available, by including the
+C<-Accflags='-DUSE_THREAD_SAFE_LOCALE'> option to F.
 
 =back
 
diff --git a/pod/perllocale.pod b/pod/perllocale.pod
index 207aea0916..63f8947f96 100644
--- a/pod/perllocale.pod
+++ b/pod/perllocale.pod
@@ -517,6 +517,11 @@ from using thread-safe locales.
 C<${^SAFE_LOCALES}> will be 0 on systems that turn off the thread-safe
 operations.
 
+Normally on unthreaded builds, the traditional C is used
+and not the thread-safe locale functions.  You can force the use of these
+on systems that have them by adding the
+C<-Accflags='-DUSE_THREAD_SAFE_LOCALE'> to F.
+
 The initial program is started up using the locale specified from the
 environment, as currently, described in L.   All newly
 created threads start with C set to C<"C">>.  Each thread may
diff --git a/t/harness b/t/harness
index 7733d2bb78..84e3d57bbb 100644
--- a/t/harness
+++ b/t/harness
@@ -189,7 +189,7 @@ if (@ARGV) {
 # directory containing such files should be tested in serial order.
 #

[perl.git] branch smoke-me/khw-anyof deleted. v5.29.4-93-gc28bab5fdc

[Karl Williamson]

In perl.git, the branch smoke-me/khw-anyof has been deleted



   was  c28bab5fdc3deb64c40b16b3bada1f345e335e89

- Log -
c28bab5fdc3deb64c40b16b3bada1f345e335e89 regexec.c: Use bitmap lookup in more 
cases
---

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/khw-anyof created. v5.29.4-114-g7a461f551c

[Karl Williamson]

In perl.git, the branch smoke-me/khw-anyof has been created



at  7a461f551c8ea106f3dad2733212a5bdb070c5d1 (commit)

- Log -
commit 7a461f551c8ea106f3dad2733212a5bdb070c5d1
Author: Karl Williamson 
Date:   Mon Nov 19 13:38:11 2018 -0700

XXX give commit # regcomp.c: Avoid compiler warning

commit c4f67e3ab2a558173a847a1dad117a32dbaddb9e
Author: Karl Williamson 
Date:   Mon Nov 19 13:31:45 2018 -0700

EXACTFUM

commit a10f20bfe47b43f72a3256dd14a09227f8713416
Author: Karl Williamson 
Date:   Mon Nov 19 10:05:56 2018 -0700

regcomp.c: White-space, comment only

Indent to correspond with new block added by the previous commit

commit d4a3a77f2c6f460f1078da3df3c0bf5716133a8d
Author: Karl Williamson 
Date:   Mon Nov 19 09:42:39 2018 -0700

Add ANYOFH regnode for matching only above the bitmap

This node is a specialized one for things like /\p{Greek}/ which doesn't
have any code points that can match in the range that the bitmap covers.
It saves 32 bytes per node in the compiled regex pattern.

commit a5b2fff2d13f57816a3cb6787ada01732a83c1da
Author: Karl Williamson 
Date:   Sun Nov 18 16:06:50 2018 -0700

regcomp.h: Clarify comments

commit ea25520a75860892f2231aefd13e96823583cd15
Author: Karl Williamson 
Date:   Sun Nov 18 15:46:07 2018 -0700

regexec.c: Use bitmap lookup in more cases

ANYOFish nodes have a bitmap.  If we know the value is in the bitmap
range, then flags that apply to out-of-range values are irrelevant.
Other flags being set indicate that the desired answer is more
complicated than just using a bitmap lookup.  But exclude this
irrelevant flag from that calculation when we know the value is in the
bitmap.

There are other flags that it is possible to exclude, but not without
further conditionals, or unsharing code, and are either rarely set or
are for node types that we don't worry so much about optimal
performance, like /l and /d.  The changes introduced by this commit
are determined at .c compile time except for a runtime mask, and hence
don't introduce new branches that may destroy the instruction cache
pipeline.

commit eac96563fb561efade8e72f4e9be0420539ac930
Author: Karl Williamson 
Date:   Sun Nov 18 15:24:45 2018 -0700

regexec.c: Refactor expanded macro from prev. commit

commit 7821f691118b3eb686395f60d0184a9cf0487174
Author: Karl Williamson 
Date:   Sun Nov 18 15:12:02 2018 -0700

regexec.c: Expand out macro in only remaining use

There is only one call to this macro.  It's easier to understand if
expanded out instead of the call.  The next commit will refactor.

commit 664ddacfe9113ed7e61646a7ae818564ff2b2b57
Author: Karl Williamson 
Date:   Sun Nov 18 14:52:15 2018 -0700

regcomp.c: Initialize a variable more conservatively

It doesn't matter currently, but thes variable shouldn't be TRUE unless
/i is in effect.

commit 2dcee7735cf00f7a3a16855800018b42502c3127
Author: Karl Williamson 
Date:   Sun Nov 18 13:39:49 2018 -0700

regcomp.c: Use a weird value in a place where ignored

This way, it doesn't confuse that it is legal, and should it stop being
ignored in the called function, it will show up as a problem much
sooner.

commit 167a605682d0949e42e487a7cdcc5294a7a224f6
Author: Karl Williamson 
Date:   Sat Nov 17 16:08:58 2018 -0700

EXACTFU8

commit cea8e66aa771eedcb46d936ee2b6fb8d53eb459a
Author: Karl Williamson 
Date:   Sat Nov 17 15:51:19 2018 -0700

EXACT8

commit 86ff7d643b09c2d1b53a808e220dcea41282817b
Author: Karl Williamson 
Date:   Sat Nov 17 16:02:31 2018 -0700

regexec.c: Add comment

commit 424899d5cc99385ad38d26d1d3811d21b462e5dc
Author: Karl Williamson 
Date:   Sat Nov 17 15:54:34 2018 -0700

regexec.c: Rmv unused macros

commit b2fbd3b57c3042297d68ad45b82a0f0b73f99d17
Author: Karl Williamson 
Date:   Sat Nov 17 15:47:02 2018 -0700

regcomp.c: Use common code instead of duplicating it

The common code is about to get more complicated, so use it instead of a
copy.

commit c59e43df63aeab67f5fbfe6023fa0a42f0d23dc2
Author: Karl Williamson 
Date:   Thu Nov 15 11:09:35 2018 -0700

regcomp.c: Consolidate duplicated code into 1 place

commit 582b78b8e71fd4f3d8362095b3aca5c4a4b8de1a
Author: Karl Williamson 
Date:   Sun Nov 18 13:29:21 2018 -0700

Use ANYOFM node in more places

Certain length 1 EXACTFish nodes can be represented as well by an ANYOFM
node, which is more efficient at run time.  Optimize to ANYOFM where
appropriate

commit 2b304c4305fc3b190691b049eaf61aae70e7c8b9
Author: Karl Williamson 
Date:   Sat Nov 17 12:51:54 2018 -0700

regcomp.c: White-space, comments only

Out and indent based on adding/removing blocks in the previous few
  

[perl.git] branch blead updated. v5.29.4-93-g8f6aacbbe9

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit 8f6aacbbe92285ffc82603b952f356914d751df0
Author: Karl Williamson 
Date:   Sun Nov 18 13:18:49 2018 -0700

PATCH: [perl #133649] fails on OpenBSD-6.4 unthreaded

OpenBSD has a (perfectly legal) different syntax for the string
parameter to setlocale(), so the failing tests are not actually valid on
that platform.  Rather than go to the significant effort to create a
Configure probe to find out what platforms use what syntax, simply skip
these on this platform.  The tests aren't skipped if built with threads,
as they actually help make sure that the code that deals with different
syntaxes for thread-safe handling of locales works in the face of
different syntaxes

---

Summary of changes:
 t/run/locale.t | 13 -
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/t/run/locale.t b/t/run/locale.t
index e249c65c77..0296c9af67 100644
--- a/t/run/locale.t
+++ b/t/run/locale.t
@@ -459,7 +459,18 @@ EOF
 }
 }
 
-{
+SKIP: {
+# Note: a Configure probe could be written to give us the syntax to
+# use, but khw doesn't think it's worth it.  If the POSIX 2008 locale
+# functions are being used, the syntax becomes mostly irrelevant, so
+# do the test anyway if they are
+# it's a lot of trouble to figure out in a perl script
+if ($^O eq 'openbsd' && ( $Config{useithreads} ne 'define'
+ || ! ${^SAFE_LOCALES}))
+{
+skip("The setlocale() syntax used is invalid on this platform", 2);
+}
+
 my @valid_categories = valid_locale_categories();
 
 my $valid_string = "";

-- 
Perl5 Master Repository

[perl.git] branch jkeenan/133664-harness deleted. v5.29.4-95-g785a86c728

[James Keenan]

In perl.git, the branch jkeenan/133664-harness has been deleted



   was  785a86c7287d43a4325e0ab43b55f94ac14336a2

- Log -
785a86c7287d43a4325e0ab43b55f94ac14336a2 Add more debugging code, inline 
comments.
---

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.4-92-g620e0b0270

[Dominic Hargreaves]

In perl.git, the branch blead has been updated



- Log -
commit 620e0b02706187ce59a94d1a73ff296e0d9a8748
Author: Dominic Hargreaves 
Date:   Mon Nov 19 19:17:17 2018 +

lgtm.yml: work around some incorrect classification

---

Summary of changes:
 .lgtm.yml | 4 
 1 file changed, 4 insertions(+)

diff --git a/.lgtm.yml b/.lgtm.yml
index ac78cd4dac..77fe59add5 100644
--- a/.lgtm.yml
+++ b/.lgtm.yml
@@ -9,3 +9,7 @@ extraction:
 path_classifiers:
   generated:
 - charclass_invlists.h
+# These files are incorrectly classified as generated. Work around
+# this pending a fix on LGTM.com.
+- exclude: perl.c
+- exclude: io.c

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.4-91-g2d0e7d1fca

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit 2d0e7d1fcad776bfaaeaa7049e51eaf521767967
Author: David Mitchell 
Date:   Mon Nov 19 16:28:03 2018 +

perlguts: clarify SV types which are scalars

The '< SVt_PVAV' entry looked to one reader like malformed HTML
rather than indicating a numerical range.

http://nntp.perl.org/group/perl.perl5.porters/252585

---

Summary of changes:
 pod/perlguts.pod | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index 16bd0ecba7..5f33bbb80a 100644
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -681,12 +681,14 @@ macro and then check the return value.
 
 The most useful types that will be returned are:
 
-< SVt_PVAV  Scalar
 SVt_PVAVArray
 SVt_PVHVHash
 SVt_PVCVCode
 SVt_PVGVGlob (possibly a file handle)
 
+Any numerical value returned which is less than SVt_PVAV will be a scalar
+of some form.
+
 See L for more details.
 
 =head2 Blessed References and Class Objects

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.4-90-gf09dd912ca

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit f09dd912ca46cc4e5553da867bc148656110510c
Author: David Mitchell 
Date:   Mon Nov 19 14:12:05 2018 +

ext/File-Find: support parallel testing

t/harness was recently modified to run tests under ext/ etc in parallel.
ext/File-Find/t/ has two test scripts which both use the same temporary
directory names.
Make taint.t use different names, so that it can run in parallel with
the other script.

---

Summary of changes:
 ext/File-Find/t/taint.t | 124 
 t/harness   |   2 +-
 2 files changed, 63 insertions(+), 63 deletions(-)

diff --git a/ext/File-Find/t/taint.t b/ext/File-Find/t/taint.t
index d126e69c59..5c3833a8bf 100644
--- a/ext/File-Find/t/taint.t
+++ b/ext/File-Find/t/taint.t
@@ -85,30 +85,30 @@ my $FastFileTests_OK = 0;
 sub cleanup {
 chdir($orig_dir_untainted);
 my $need_updir = 0;
-if (-d dir_path('for_find')) {
-$need_updir = 1 if chdir(dir_path('for_find'));
+if (-d dir_path('for_find_taint')) {
+$need_updir = 1 if chdir(dir_path('for_find_taint'));
 }
-if (-d dir_path('fa')) {
-   unlink file_path('fa', 'fa_ord'),
-  file_path('fa', 'fsl'),
-  file_path('fa', 'faa', 'faa_ord'),
-  file_path('fa', 'fab', 'fab_ord'),
-  file_path('fa', 'fab', 'faba', 'faba_ord'),
-  file_path('fb', 'fb_ord'),
-  file_path('fb', 'fba', 'fba_ord');
-   rmdir dir_path('fa', 'faa');
-   rmdir dir_path('fa', 'fab', 'faba');
-   rmdir dir_path('fa', 'fab');
-   rmdir dir_path('fa');
-   rmdir dir_path('fb', 'fba');
-   rmdir dir_path('fb');
+if (-d dir_path('fa_taint')) {
+   unlink file_path('fa_taint', 'fa_ord'),
+  file_path('fa_taint', 'fsl'),
+  file_path('fa_taint', 'faa', 'faa_ord'),
+  file_path('fa_taint', 'fab', 'fab_ord'),
+  file_path('fa_taint', 'fab', 'faba', 'faba_ord'),
+  file_path('fb_taint', 'fb_ord'),
+  file_path('fb_taint', 'fba', 'fba_ord');
+   rmdir dir_path('fa_taint', 'faa');
+   rmdir dir_path('fa_taint', 'fab', 'faba');
+   rmdir dir_path('fa_taint', 'fab');
+   rmdir dir_path('fa_taint');
+   rmdir dir_path('fb_taint', 'fba');
+   rmdir dir_path('fb_taint');
 }
 if ($need_updir) {
 my $updir = $^O eq 'VMS' ? File::Spec::VMS->updir() : 
File::Spec->updir;
 chdir($updir);
 }
-if (-d dir_path('for_find')) {
-   rmdir dir_path('for_find') or print "# Can't rmdir for_find: $!\n";
+if (-d dir_path('for_find_taint')) {
+   rmdir dir_path('for_find_taint') or print "# Can't rmdir for_find: 
$!\n";
 }
 }
 
@@ -157,29 +157,29 @@ sub simple_wanted {
 *file_path_name = \_path;
 
 
-mkdir_ok( dir_path('for_find'), 0770 );
-ok( chdir( dir_path('for_find')), 'successful chdir() to for_find' );
+mkdir_ok( dir_path('for_find_taint'), 0770 );
+ok( chdir( dir_path('for_find_taint')), 'successful chdir() to for_find_taint' 
);
 
 $cwd = cwd(); # save cwd
 ( $cwd_untainted ) = $cwd =~ m|^(.+)$|; # untaint it
 
-mkdir_ok( dir_path('fa'), 0770 );
-mkdir_ok( dir_path('fb'), 0770  );
-create_file_ok( file_path('fb', 'fb_ord') );
-mkdir_ok( dir_path('fb', 'fba'), 0770  );
-create_file_ok( file_path('fb', 'fba', 'fba_ord') );
+mkdir_ok( dir_path('fa_taint'), 0770 );
+mkdir_ok( dir_path('fb_taint'), 0770  );
+create_file_ok( file_path('fb_taint', 'fb_ord') );
+mkdir_ok( dir_path('fb_taint', 'fba'), 0770  );
+create_file_ok( file_path('fb_taint', 'fba', 'fba_ord') );
 SKIP: {
skip "Creating symlink", 1, unless $symlink_exists;
-   ok( symlink('../fb','fa/fsl'), 'Created symbolic link' );
+   ok( symlink('../fb_taint','fa_taint/fsl'), 'Created symbolic link' );
 }
-create_file_ok( file_path('fa', 'fa_ord') );
+create_file_ok( file_path('fa_taint', 'fa_ord') );
 
-mkdir_ok( dir_path('fa', 'faa'), 0770  );
-create_file_ok( file_path('fa', 'faa', 'faa_ord') );
-mkdir_ok( dir_path('fa', 'fab'), 0770  );
-create_file_ok( file_path('fa', 'fab', 'fab_ord') );
-mkdir_ok( dir_path('fa', 'fab', 'faba'), 0770  );
-create_file_ok( file_path('fa', 'fab', 'faba', 'faba_ord') );
+mkdir_ok( dir_path('fa_taint', 'faa'), 0770  );
+create_file_ok( file_path('fa_taint', 'faa', 'faa_ord') );
+mkdir_ok( dir_path('fa_taint', 'fab'), 0770  );
+create_file_ok( file_path('fa_taint', 'fab', 'fab_ord') );
+mkdir_ok( dir_path('fa_taint', 'fab', 'faba'), 0770  );
+create_file_ok( file_path('fa_taint', 'fab', 'faba', 'faba_ord') );
 
 print "# check untainting (no follow)\n";
 
@@ -192,14 +192,14 @@ print "# check untainting (no 

[perl.git] branch blead updated. v5.29.4-89-gd33f9fbdb3

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit d33f9fbdb3bb27a3b32a2ffa9aa035617c07f7a1
Author: David Mitchell 
Date:   Mon Nov 19 13:52:46 2018 +

ext/GDBM_File/t/fatal.t: support parallel testing

t/harness was recently modified to run tests under ext/ etc in parallel.
ext/GDBM_File/t/ has two test scripts which both use the same filename.
Make fatal.t use a different name, so that it can run in parallel with
the other script.

---

Summary of changes:
 ext/GDBM_File/t/fatal.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ext/GDBM_File/t/fatal.t b/ext/GDBM_File/t/fatal.t
index 0e426d4dbc..3ba66be598 100644
--- a/ext/GDBM_File/t/fatal.t
+++ b/ext/GDBM_File/t/fatal.t
@@ -16,7 +16,7 @@ BEGIN {
 use_ok('GDBM_File');
 }
 
-unlink ;
+unlink ;
 
 open my $fh, '<', $^X or die "Can't open $^X: $!";
 my $fileno = fileno $fh;
@@ -28,7 +28,7 @@ is((open $fh, "<&=$fileno"), undef,
 
 umask(0);
 my %h;
-isa_ok(tie(%h, 'GDBM_File', 'Op_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
+isa_ok(tie(%h, 'GDBM_File', 'fatal_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
 
 isnt((open $fh, "<&=$fileno"), undef, "dup fileno $fileno")
 or diag("\$! = $!");
@@ -46,4 +46,4 @@ is(eval {
 like($@, qr/ at .*\bfatal\.t line \d+\.\n\z/,
  'expected error message from GDBM_File');
 
-unlink ;
+unlink ;

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.4-88-g6a4c4cd41c

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit 6a4c4cd41c54334613baa6cada2145fd51e180e6
Author: David Mitchell 
Date:   Mon Nov 19 12:38:27 2018 +

autodoc.pl: escape POD

RT #133638

This script generates perlapi.pod, and contains snippets of POD
which it inserts into that file. The metacpan web site was interpreting
this as pod for autodoc.pl and displaying it.

Escape the pod by prefixing each line with '|'.

---

Summary of changes:
 autodoc.pl | 213 +++--
 1 file changed, 107 insertions(+), 106 deletions(-)

diff --git a/autodoc.pl b/autodoc.pl
index cf82639db3..788dc359fd 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -273,6 +273,11 @@ sub sort_helper {
 
 sub output {
 my ($podname, $header, $dochash, $missing, $footer) = @_;
+#
+# strip leading '|' from each line which had been used to hide
+# pod from pod checkers.
+s/^\|//gm for $header, $footer;
+
 my $fh = open_new("pod/$podname.pod", undef,
  {by => "$0 extracting documentation",
from => 'the C source files'}, 1);
@@ -315,17 +320,13 @@ around to documenting it.  In the latter case, you will 
be asked to submit a
 patch to document the function.  Once your patch is accepted, it will indicate
 that the interface is stable (unless it is explicitly marked otherwise) and
 usable by you.
-
-=over
-
 _EOB_
 The following functions are currently undocumented.  If you use one of
 them, you may wish to consider creating and submitting documentation for
 it.
-
-=over
-
 _EOB_
+print $fh "\n=over\n\n";
+
 for my $missing (sort @$missing) {
 print $fh "=item $missing\nX<$missing>\n\n";
 }
@@ -383,83 +384,83 @@ foreach (sort keys %missing) {
 # deprecated.
 my @missing_api = grep $funcflags{$_}{flags} =~ /A/ && $funcflags{$_}{flags} 
!~ /[MD]/ && !$docs{api}{$_}, keys %funcflags;
 output('perlapi', <<'_EOB_', $docs{api}, \@missing_api, <<'_EOE_');
-=encoding UTF-8
-
-=head1 NAME
-
-perlapi - autogenerated documentation for the perl public API
-
-=head1 DESCRIPTION
-X X X
-
-This file contains the documentation of the perl public API generated by
-F, specifically a listing of functions, macros, flags, and variables
-that may be used by extension writers.  L
-is a list of functions which have yet to be documented.  The interfaces of
-those are subject to change without notice.  Anything not listed here is
-not part of the public API, and should not be used by extension writers at
-all.  For these reasons, blindly using functions listed in proto.h is to be
-avoided when writing extensions.
-
-In Perl, unlike C, a string of characters may generally contain embedded
-C characters.  Sometimes in the documentation a Perl string is referred
-to as a "buffer" to distinguish it from a C string, but sometimes they are
-both just referred to as strings.
-
-Note that all Perl API global variables must be referenced with the C
-prefix.  Again, those not listed here are not to be used by extension writers,
-and can be changed or removed without notice; same with macros.
-Some macros are provided for compatibility with the older,
-unadorned names, but this support may be disabled in a future release.
-
-Perl was originally written to handle US-ASCII only (that is characters
-whose ordinal numbers are in the range 0 - 127).
-And documentation and comments may still use the term ASCII, when
-sometimes in fact the entire range from 0 - 255 is meant.
-
-The non-ASCII characters below 256 can have various meanings, depending on
-various things.  (See, most notably, L.)  But usually the whole
-range can be referred to as ISO-8859-1.  Often, the term "Latin-1" (or
-"Latin1") is used as an equivalent for ISO-8859-1.  But some people treat
-"Latin1" as referring just to the characters in the range 128 through 255, or
-somethimes from 160 through 255.
-This documentation uses "Latin1" and "Latin-1" to refer to all 256 characters.
-
-Note that Perl can be compiled and run under either ASCII or EBCDIC (See
-L).  Most of the documentation (and even comments in the code)
-ignore the EBCDIC possibility.  
-For almost all purposes the differences are transparent.
-As an example, under EBCDIC,
-instead of UTF-8, UTF-EBCDIC is used to encode Unicode strings, and so
-whenever this documentation refers to C
-(and variants of that name, including in function names),
-it also (essentially transparently) means C.
-But the ordinals of characters differ between ASCII, EBCDIC, and
-the UTF- encodings, and a string encoded in UTF-EBCDIC may occupy a different
-number of bytes than in UTF-8.
-
-The listing below is alphabetical, case 

[perl.git] branch blead updated. v5.29.4-87-g42b23152d5

[Chris 'Bingos' Williams]

In perl.git, the branch blead has been updated



- Log -
commit 42b23152d57f32c395f1809eda6f29e3e22d2c5c
Author: Chris 'BinGOs' Williams 
Date:   Mon Nov 19 11:12:22 2018 +

Update Maintainers.pl to match reality

---

Summary of changes:
 Porting/Maintainers.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 7802a55373..0d009c6192 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -320,7 +320,7 @@ use File::Glob qw(:case);
 },
 
 'Data::Dumper' => {
-'DISTRIBUTION' => 'SMUELLER/Data-Dumper-2.161.tar.gz',
+'DISTRIBUTION' => 'XSAWYERX/Data-Dumper-2.173.tar.gz',
 'FILES'=> q[dist/Data-Dumper],
 },
 
@@ -337,7 +337,7 @@ use File::Glob qw(:case);
 },
 
 'Devel::PPPort' => {
-'DISTRIBUTION' => 'XSAWYERX/Devel-PPPort-3.42.tar.gz',
+'DISTRIBUTION' => 'XSAWYERX/Devel-PPPort-3.43.tar.gz',
 'FILES'=> q[dist/Devel-PPPort],
 'EXCLUDED' => [
 'PPPort.pm',# we use PPPort_pm.PL instead
@@ -418,7 +418,7 @@ use File::Glob qw(:case);
 },
 
 'Exporter' => {
-'DISTRIBUTION' => 'TODDR/Exporter-5.72.tar.gz',
+'DISTRIBUTION' => 'TODDR/Exporter-5.73.tar.gz',
 'FILES'=> q[dist/Exporter],
 'EXCLUDED' => [
 qw( t/pod.t

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.4-86-gea89b3331b

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit ea89b3331b133e1d454a75dcf79315d311770d83
Author: David Mitchell 
Date:   Mon Nov 19 08:34:40 2018 +

perldelta for davem's commits

---

Summary of changes:
 pod/perldelta.pod | 14 ++
 1 file changed, 14 insertions(+)

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 355eaa585b..7332175ff3 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -398,6 +398,20 @@ C or C now properly 
removes the
 C<:utf8> flag from the default C<:crlf> I/O layer on Win32.  [perl
 #133604]
 
+=item *
+
+The experimental reference aliasing feature was misinterpreting array and
+hash slice assignment as being localised, e.g.
+
+\(@a[3,5,7]) = \();
+
+was being interpreted as:
+
+local \(@a[3,5,7]) = \();
+
+[perl #133538]
+
+
 =back
 
 =head1 Known Problems

-- 
Perl5 Master Repository