This is a live mirror of the Perl 5 development currently hosted at
4 years agoImprove cl version detection
Steve Hay [Wed, 15 Nov 2017 14:07:42 +0000 (14:07 +0000)]
Improve cl version detection

Drop the use of the word "Version" so it works on non-English systems.
Instead, simply look for a number of the form X.Y (or X.Y.Z etc) with word
boundaries around it. Thus, we can find numbers like 12.00.8804 or
19.00.24213.1, but not accidentally pick up things like x86 or 1984-1998.

Also, drop the "--version" argument since it doesn't really exist and
causes warnings/errors to be output. A bare "cl" command suffices to get a
usage message including the version number to be output.

Finally, the Windows version detection can be similarly improved.

This fixes perl #132421.

4 years agoperldelta for stat(CLOSED) fix
Zefram [Wed, 15 Nov 2017 08:17:30 +0000 (08:17 +0000)]
perldelta for stat(CLOSED) fix

4 years agoset $! when statting a closed filehandle
Zefram [Wed, 15 Nov 2017 08:11:37 +0000 (08:11 +0000)]
set $! when statting a closed filehandle

When a stat fails because it's on a closed or otherwise invalid
filehandle, $! was often not being set, depending on the operation
and the nature of the invalidity.  Consistently set it to EBADF.
Fixes [perl #108288].

4 years agoPOSIX.pod: Add cautions about locale use
Karl Williamson [Wed, 15 Nov 2017 04:33:43 +0000 (21:33 -0700)]
POSIX.pod: Add cautions about locale use

4 years agolocale.c: Use mnemonic
Karl Williamson [Mon, 13 Nov 2017 05:29:58 +0000 (22:29 -0700)]
locale.c: Use mnemonic

Replace this number by an already existing mnemonic

4 years agoperldelta for the prev. commit
Father Chrysostomos [Wed, 15 Nov 2017 02:58:12 +0000 (18:58 -0800)]
perldelta for the prev. commit

4 years ago[perl #132442] Fix stack with do {my sub l; 1}
Father Chrysostomos [Wed, 15 Nov 2017 02:55:55 +0000 (18:55 -0800)]
[perl #132442] Fix stack with do {my sub l; 1}

A block in perl usually compiles to a leave op with an enter inside
it, followed by the statements:

     ... expr ...
     ... expr ...

If a block contains only one statement, and that statement is suffic-
iently innocuous, then the enter/leave pair to create the scope at run
time get skipped, and instead we have a simple scope op which is not
even executed:

     ... expr ...

The nextstate in this case also gets nulled.

In the case of do { my sub l; 1 } we were getting a variation of the
latter, that looked like this:

     ... expr ...

The problem here is that nextstate resets the stack, even though a new
scope has not been pushed, so we end up with all existing stack items
from the *outer* scope getting clobbered.

One can have fun with this and erase everything pushed on to the stack
so far in a given statement:

$ ./perl -le 'print join "-", 1..10, do {my sub l; ","}, 11..20'

Here I replaced the first argument to join() from within the do{}
block, after having cleared the stack.

Why was the op tree was getting muddled up like this?  The ‘my sub’
declaration does not immediately add any ops to the op tree; those ops
get added when the current scope finishing compiling, since those ops
must be inserted at the beginning of the block.

I have not fully looked into the order that things happen, and why the
nextstate op does not get nulled; but it did not matter, because of
the simple fix: Treat lexical sub declarations as ‘not innocuous’ by
setting the HINT_BLOCK_SCOPE flag when a lexical sub is declared.
Thus, we end up with an enter/leave pair, which creates a
proper scope.

4 years agoUpdate from 0.016 to 0.017
Sawyer X [Tue, 14 Nov 2017 20:44:28 +0000 (21:44 +0100)]
Update from 0.016 to 0.017

4 years agoperldelta for 6b93e4bc22a7c06508c3d2ed4590fe8bc2cb4989
James E Keenan [Tue, 14 Nov 2017 19:26:35 +0000 (14:26 -0500)]
perldelta for 6b93e4bc22a7c06508c3d2ed4590fe8bc2cb4989

4 years agoCompress-Raw-Zlib: sync with CPAN version 2.075
Paul Marquess [Tue, 14 Nov 2017 19:15:25 +0000 (14:15 -0500)]
Compress-Raw-Zlib: sync with CPAN version 2.075 reports a security
vulnerability in versions zlib 1.2.8 thru 1.2.10 of the zlib library.  Zlib is
bundled with Compress-Raw-Zlib, so any vulnerability reappears once
Compress-Raw-Zlib is shipped with Perl 5.  The vulnerability is present in
production releases up to and including perl-5.26.1.

To address this vulnerability, this commit upgrades us to the latest CPAN version.

4 years agoOP_MULTICONCAT: fix AIX
David Mitchell [Tue, 14 Nov 2017 13:27:59 +0000 (13:27 +0000)]

The OP_MULTICONCAT work broke AIX builds because it turns out that
PerlMemShared_malloc() isn't safe (in the sense of safemalloc());
i.e. on AIX, PerlMemShared_malloc(0) returns NULL.

4 years agoUpgrade libnet from version 3.10 to 3.11
Steve Hay [Tue, 14 Nov 2017 14:06:28 +0000 (14:06 +0000)]
Upgrade libnet from version 3.10 to 3.11

This includes

4 years agoFix Windows build failure introduced by 7d00a3405c
Steve Hay [Tue, 14 Nov 2017 14:01:33 +0000 (14:01 +0000)]
Fix Windows build failure introduced by 7d00a3405c

4 years agoHandle empty list in Perl_vms_do_aexec.
Craig A. Berry [Tue, 14 Nov 2017 13:13:19 +0000 (07:13 -0600)]
Handle empty list in Perl_vms_do_aexec.

Since 2fcab33080e this is now expected and tested for, so do
what other platforms do.

4 years agomv "Truth and Falsehood" from perlsyn to perldata
Zefram [Tue, 14 Nov 2017 13:14:14 +0000 (13:14 +0000)]
mv "Truth and Falsehood" from perlsyn to perldata

This one-paragraph section didn't belong in perlsyn.  perldata already
had a paragraph on the topic; merge them.  [perl #115650]

4 years agofix newPVOP() doc re freeing of pv
Zefram [Tue, 14 Nov 2017 12:56:35 +0000 (12:56 +0000)]
fix newPVOP() doc re freeing of pv

[perl #127697]

4 years agoperldelta: typo
Aaron Crane [Tue, 14 Nov 2017 12:07:19 +0000 (12:07 +0000)]
perldelta: typo


4 years agoperldelta: C89 requirement
Aaron Crane [Tue, 14 Nov 2017 11:51:01 +0000 (11:51 +0000)]
perldelta: C89 requirement

4 years agofix naming of some test temp files
Zefram [Tue, 14 Nov 2017 09:49:11 +0000 (09:49 +0000)]
fix naming of some test temp files

The files should be named t/tmp*, to fall under .gitignore and be ignored
by podcheck.

4 years agofix ext/B/t/optree_specials.t
David Mitchell [Tue, 14 Nov 2017 08:55:53 +0000 (08:55 +0000)]
fix ext/B/t/optree_specials.t

recent changes to expected output didn't account for the way nextstate ops
change their hints display when run under


One day we'll make this automatic.

4 years agostop unused-var warnings in ExtUtils-ParseXS tests
Zefram [Tue, 14 Nov 2017 08:49:16 +0000 (08:49 +0000)]
stop unused-var warnings in ExtUtils-ParseXS tests

These are warnings resulting from unusual features of the specific XS
code in the test suite, not from XS compilation in general.

4 years agoavoid unused-var warnings in compiled XS
Zefram [Tue, 14 Nov 2017 08:45:55 +0000 (08:45 +0000)]
avoid unused-var warnings in compiled XS

Code generated by ExtUtils-ParseXS for certain kinds of XS sub
was creating an "items" variable and never using it, resulting in
distracting warnings from the C compiler.  Add "PERL_UNUSED_VAR(items)"
where appropriate.

4 years agorip out Perl version portability from B
Zefram [Tue, 14 Nov 2017 07:48:03 +0000 (07:48 +0000)]
rip out Perl version portability from B

B is distributed only with the core, not dual-life, so has no need to
be portable between Perl versions.

4 years agoin B::Concise, show RV target better
Zefram [Tue, 14 Nov 2017 06:40:15 +0000 (06:40 +0000)]
in B::Concise, show RV target better

Especially show the identity of CVs where possible.  This is important
now that gv ops often point at a coderef rather than a glob.  Fixes [perl

4 years agoIntroduce macros to simplify @INC setting
Nicolas R [Tue, 7 Nov 2017 22:10:45 +0000 (16:10 -0600)]
Introduce macros to simplify @INC setting

Distro trends to customize @INC, and to maintain
patches to change the order of @INC or add custom entries.

The goal of this patch is to abstract calls to 'S_incpush_use_sep'
and simplify reordering @INC.

This commit makes the code from perl.c more comfortable to read
by introducing several 'INCPUSH_*' macros for every
'S_incpush_use_sep' call so we can easily reorder them.

4 years agoStorable: remove Config dependency
Nicolas R [Tue, 7 Nov 2017 18:22:27 +0000 (12:22 -0600)]
Storable: remove Config dependency

RT #132406

Avoid loading Config/Config_heavy from Storable.

Make a template file and check
if the system can use flock at compile time. is the template file to edit,
whereas is the script generating from

Using a separate file for the template make it
easier to edit.

Also note that is now ignored by git.

4 years agoTime::HiRes disable a flapping test for CI
Nicolas R [Mon, 13 Nov 2017 22:40:31 +0000 (16:40 -0600)]
Time::HiRes disable a flapping test for CI

When running this test under heavy load
we cannot assume the delta between two system calls...
even when using a (nano)sleep

Most Continuous Integration system will fail on this
test at one point or the other.

4 years agoMake perlbug.t forgiving about newlines.
Craig A. Berry [Tue, 14 Nov 2017 00:52:38 +0000 (18:52 -0600)]
Make perlbug.t forgiving about newlines.

On VMS, pipes often introduce extra newlines, so the test
infrastructure deduplicates them, which then makes it impossible
to check for more than one.  So just check for one or more.

4 years agotravis.yaml: fixes for osx
Nicolas R [Mon, 13 Nov 2017 21:04:38 +0000 (15:04 -0600)]
travis.yaml: fixes for osx

run brew update before installing ccache
use TRAVIS_OS_NAME macro to check os

4 years agoAdjust porting/authors.t for travisci
Nicolas R [Mon, 13 Nov 2017 19:54:49 +0000 (13:54 -0600)]
Adjust porting/authors.t for travisci

Add plan to porting/authors.t
skip_plan was used but no plan or tap output was defined.

When the test is run by TravisCI, use a shorten
revision range. We do not want to have a pull request impacted
by the previous state of blead, and we do not want to check
the merge commit from travis which is using the github author
primary email address.

4 years agoRemove win32 logic from t/porting/authors.t
Nicolas R [Mon, 13 Nov 2017 15:34:16 +0000 (09:34 -0600)]
Remove win32 logic from t/porting/authors.t

Remove special logic for windows by using 'qx'.
Allow test to be run from main root directory.

4 years agoSwitch some core modules to XSLoader
Nicolas R [Wed, 13 Sep 2017 17:22:32 +0000 (11:22 -0600)]
Switch some core modules to XSLoader

RT 132080: Remove perl 5.006 compatibilities with DynaLoader and use
XSLoader directly.

The traditional boiler plate to use XSLoader for Perl > 5.006 or
DynaLoader, does not make sense for core modules in perl 5.28+.

4 years agoTrack Unicode-Normalize Changes file so it can be updated as it is changed in Perl
Todd Rinaldo [Mon, 13 Nov 2017 20:08:11 +0000 (14:08 -0600)]
Track Unicode-Normalize Changes file so it can be updated as it is changed in Perl

4 years agoTweak travis.yml: ccache & notifications
Nicolas R [Mon, 13 Nov 2017 19:44:10 +0000 (13:44 -0600)]
Tweak travis.yml: ccache & notifications

- builds are now using ccache
- use multiline syntax for main script
- irc notifications are now enabled and sent to #p5p-qa channel

4 years agoMakefile.SH: factorize install.html target
Nicolas R [Wed, 8 Nov 2017 17:18:51 +0000 (10:18 -0700)]
Makefile.SH: factorize install.html target

Avoid duplicate definition of and install.html
targets. We could then use in a later commit a Configure option
to disable doc installation on demand.

4 years agoUpdate Unicode-Collate to CPAN version 1.23
Chris 'BinGOs' Williams [Mon, 13 Nov 2017 13:45:36 +0000 (13:45 +0000)]
Update Unicode-Collate to CPAN version 1.23


1.23  Mon Nov 13 19:10:28 2017
    - Now UCA_Version 36 (for Unicode 10.0.0) is supported.
      * But the default UCA_Version is still 34.
    - added nushu.t in t.

1.22  Sat Nov 11 10:53:35 2017
    - internal: someone suggests using 'exists' for checking the truth of
      $collator->{mapping}{$variable} and $collator->{maxlength}{$variable},
      where $variable may stand for codepoints whose mapping is not defined;
      though such a problem was not reproduced on my environment.

4 years agoFix sentence in perlobj.pod (missing a word)
Matthew Horsfall [Mon, 13 Nov 2017 14:34:02 +0000 (09:34 -0500)]
Fix sentence in perlobj.pod (missing a word)

Reported by geospeck

4 years agolocalise $@ around source filters
Zefram [Mon, 13 Nov 2017 13:30:36 +0000 (13:30 +0000)]
localise $@ around source filters

$@ could be clobbered by source filters, screwing up the reporting of
errors in the filtered source.  Prevent this by localising $@ around
each call to a source filter.  Fixes [perl #38920].

4 years agochange OP_MULTICONCAT nargs from UV to SSize_t
David Mitchell [Mon, 13 Nov 2017 11:50:14 +0000 (11:50 +0000)]
change OP_MULTICONCAT nargs from UV to SSize_t

Change it from unsigned to unsigned since it makes the SP-adjusting code
in pp_multiconcat easier without hitting undefined behaviour (RT #132390);
and change its size from UV to SSize_t since it represents the number
of args  on the stack.

4 years agorename op_aux field from 'size' to 'ssize'
David Mitchell [Mon, 13 Nov 2017 11:03:15 +0000 (11:03 +0000)]
rename op_aux field from 'size' to 'ssize'

This part of the op_aux union was added for OP_MULTICONCAT; its actually
of type SSize_t, so rename it to ssize to better reflect that it's signed.

This should make no functional difference.

4 years agoconfigpm: fix duplicate 'our' declaration
David Mitchell [Mon, 13 Nov 2017 09:18:07 +0000 (09:18 +0000)]
configpm: fix duplicate 'our' declaration

This file of old incorrectly had both

    use vars '$Config_SH_expanded';


    our $Config_SH_expanded;

lines. After a recent commit which did s/use vars/our/g, the duplicate
'our' declaration started warning.

4 years agoDo not (attempt to) install man pages when explicitly disabled
H.Merijn Brand [Mon, 13 Nov 2017 08:03:40 +0000 (09:03 +0100)]
Do not (attempt to) install man pages when explicitly disabled

Configure … -Dman1dir=none -Dman3dir=none …


4 years agoavoid redundant initialisation around Newxz()
Zefram [Mon, 13 Nov 2017 07:52:35 +0000 (07:52 +0000)]
avoid redundant initialisation around Newxz()

Reduce Newxz() to Newx() where all relevant parts of the memory are
being explicitly initialised, and don't explicitly zero memory that was
already zeroed.  [perl #36078]

4 years agoremove unused struct member "is_top_frame"
Zefram [Mon, 13 Nov 2017 07:49:13 +0000 (07:49 +0000)]
remove unused struct member "is_top_frame"

4 years agoduplicate full index for SAVEt_AELEM
Zefram [Mon, 13 Nov 2017 07:45:35 +0000 (07:45 +0000)]
duplicate full index for SAVEt_AELEM

The index in a SAVEt_AELEM save entry is now IV-sized, but only an I32
portion of it was being duplicated.  This would lead to restoring the
wrong element if a pseudfork were done with a localised array element
on the stack, if the array index were above the 32-bit range or on a
big-endian architecture.

4 years agofix sysconf panic
Zefram [Mon, 13 Nov 2017 01:07:00 +0000 (01:07 +0000)]
fix sysconf panic

If sysconf() failed to provide the page size, there was an attempt to
panic with an error message.  But rather than generate an error message
from errno, the code would attempt to read it from ERRSV.  Not only had
nothing put the error message into ERRSV, but the glob behind ERRSV
didn't even exist yet, so attempting to evaluate ERRSV would segv.
Change this to use Strerror() and never touch ERRSV.  [perl #115880]

4 years agoMerge branch 'smoke-me/jkeenan/afresh/132401-file-copy' into blead
James E Keenan [Sun, 12 Nov 2017 23:10:28 +0000 (18:10 -0500)]
Merge branch 'smoke-me/jkeenan/afresh/132401-file-copy' into blead

4 years agoFix sprintf multiconcat on 32bit big-endian systems with use64bitint
Dagfinn Ilmari Mannsåker [Wed, 8 Nov 2017 20:25:56 +0000 (20:25 +0000)]
Fix sprintf multiconcat on 32bit big-endian systems with use64bitint

The sprintf offset calculation was assigning to the 'uv' field of the
aux union, while the code was reading from the 'size' field, which leads
to all zeroes when sizeof(uv) > sizeof(size_t) on a big-endian system.

4 years agobetter document macros taking literal strings
Zefram [Sun, 12 Nov 2017 05:58:36 +0000 (05:58 +0000)]
better document macros taking literal strings

When giving a function-style prototype for a macro taking a literal string
parameter, put a string literal in place of a type for that parameter.
This goofy appearance makes it obvious that this isn't really a function,
and clues the reader in that the parameter can't actually be an arbitrary
expression of the right type.  Also change the nonsensical "NUL-terminated
literal string" to "literal string" to describe these parameters.
Fixes [perl #116286].

4 years agodocument IO::Select error detection
Zefram [Sun, 12 Nov 2017 04:16:13 +0000 (04:16 +0000)]
document IO::Select error detection

4 years agoprevent invalid memory access in S_check_uni (RT #132433)
Lukas Mai [Sun, 12 Nov 2017 01:58:32 +0000 (02:58 +0100)]
prevent invalid memory access in S_check_uni (RT #132433)

4 years agofix do dir returning no $!
Daniel Dragan [Sun, 16 Aug 2015 08:30:23 +0000 (04:30 -0400)]
fix do dir returning no $!

do()ing a directory was returning false/empty string in $!, which isn't
an error, yet documentation says $! should have the error code in it.
Fix this by returning EISDIR for dirs, and EINVAL for block devices.
[perl #125774]

Remove "errno = 0" and comment added in b2da7ead68, since now there is no
scenario where errno is uninitialized, since the dir and block device
failure branches now set errno, where previously they didn't.

4 years agoavoid reading errno twice in a row
Zefram [Sat, 11 Nov 2017 23:58:32 +0000 (23:58 +0000)]
avoid reading errno twice in a row

Reading errno can involve calling a function and indirecting through
its result, so cache the value of errno where possible.  [perl #122096]

4 years agosuppress clang warning in inode number handling
Zefram [Sat, 11 Nov 2017 23:21:48 +0000 (23:21 +0000)]
suppress clang warning in inode number handling

The gcc warning was already suppressed, but clang needs a different

4 years agoteach about PL_keyword_plugin_mutex
Lukas Mai [Sat, 11 Nov 2017 17:18:14 +0000 (18:18 +0100)]
teach about PL_keyword_plugin_mutex

This fixes t/porting/globvar.t.

4 years agoperldelta for reënabling of CV optimization
Father Chrysostomos [Fri, 10 Nov 2017 21:57:33 +0000 (13:57 -0800)]
perldelta for reënabling of CV optimization

4 years agoRevert "Temporarily revert CV-in-stash optimisation"
Father Chrysostomos [Sun, 29 Oct 2017 18:21:45 +0000 (11:21 -0700)]
Revert "Temporarily revert CV-in-stash optimisation"

This reverts commit 6eed25e2537643b77650cb3e4514ec9dc2e97d74.

4 years agoRevert "Simplify _MEM_WRAP_NEEDS_RUNTIME_CHECK()"
Lukas Mai [Sat, 11 Nov 2017 12:35:13 +0000 (13:35 +0100)]

This reverts commit 004073bac990d90244eb463f435c52d4040b36df.

4 years agofix MEM_SIZE_MAX definition
Lukas Mai [Sat, 11 Nov 2017 12:34:20 +0000 (13:34 +0100)]
fix MEM_SIZE_MAX definition

4 years agoperldelta entry for perlguts revision
Zefram [Sat, 11 Nov 2017 12:44:49 +0000 (12:44 +0000)]
perldelta entry for perlguts revision

4 years agobetter documentation of reference counts
Zefram [Sat, 11 Nov 2017 12:20:40 +0000 (12:20 +0000)]
better documentation of reference counts

4 years agoMerge wrap_keyword_plugin() into blead
Lukas Mai [Sat, 11 Nov 2017 10:19:05 +0000 (11:19 +0100)]
Merge wrap_keyword_plugin() into blead

4 years agoperldelta entry for wrap_keyword_plugin origin/smoke-me/mauke/keyword-plugin-mutex
Lukas Mai [Thu, 9 Nov 2017 00:19:58 +0000 (01:19 +0100)]
perldelta entry for wrap_keyword_plugin

4 years agotest wrap_keyword_plugin (RT #132413)
Lukas Mai [Thu, 9 Nov 2017 00:00:23 +0000 (01:00 +0100)]
test wrap_keyword_plugin (RT #132413)

4 years agoadd wrap_keyword_plugin function (RT #132413)
Lukas Mai [Wed, 8 Nov 2017 23:59:53 +0000 (00:59 +0100)]
add wrap_keyword_plugin function (RT #132413)

4 years agoavoid runtime module loading in File::Spec
Zefram [Sat, 11 Nov 2017 10:05:53 +0000 (10:05 +0000)]
avoid runtime module loading in File::Spec

Incidentally remove the ->_cwd method from the subclassing interface of
File::Spec::Unix, in favour of direct calls to Cwd::getcwd().

4 years agoreturn inode numbers as strings where necessary
Zefram [Sat, 11 Nov 2017 07:40:20 +0000 (07:40 +0000)]
return inode numbers as strings where necessary

We previously used a lossy conversion of inode numbers to floating point,
where they're too big to fit the IV/UV format.  That sucks; a rounded
inode number is nearly useless.  Instead, fall back to returning a
string of decimal digits.  That preserves the entire value, for code
that looks at it in the right way, and collapses to the former fallback
in other situations.

4 years ago[MERGE] Remove unnecessary use of 'use vars'
Todd Rinaldo [Sat, 11 Nov 2017 07:08:34 +0000 (01:08 -0600)]
[MERGE] Remove unnecessary use of 'use vars'

4 years agoDocument the removal of use vars from sources
Todd Rinaldo [Sat, 11 Nov 2017 07:03:26 +0000 (01:03 -0600)]
Document the removal of use vars from sources

4 years agoReplace multiple 'use vars' by 'our' in regen.
Nicolas R [Wed, 13 Sep 2017 22:52:16 +0000 (16:52 -0600)]
Replace multiple 'use vars' by 'our' in regen.

then run ./ to update perly files

4 years agoReplace multiple 'use vars' by 'our' in t
Todd Rinaldo [Sat, 11 Nov 2017 06:42:36 +0000 (00:42 -0600)]
Replace multiple 'use vars' by 'our' in t

4 years agoReplace multiple 'use vars' by 'our' in utils
Nicolas R [Tue, 12 Sep 2017 19:20:25 +0000 (13:20 -0600)]
Replace multiple 'use vars' by 'our' in utils

Using vars pragma is discouraged and has been superseded by 'our' declarations
available in Perl v5.6.0 or later.

4 years agoReplace multiple 'use vars' by 'our' in ext
Nicolas R [Tue, 12 Sep 2017 19:20:25 +0000 (13:20 -0600)]
Replace multiple 'use vars' by 'our' in ext

Using vars pragma is discouraged and has been superseded by 'our' declarations
available in Perl v5.6.0 or later.

This commit is about replacing the usage of 'vars' pragma
by 'our' in 'ext' directory.

4 years agoReplace multiple 'use vars' by 'our' in lib
Nicolas R [Tue, 12 Sep 2017 19:20:25 +0000 (13:20 -0600)]
Replace multiple 'use vars' by 'our' in lib

Using vars pragma is discouraged and has been superseded by 'our' declarations
available in Perl v5.6.0 or later.

This commit is about replacing the usage of 'vars' pragma
by 'our' in 'lib' directory.

4 years agoReplace multiple 'use vars' by 'our' in dist
Nicolas R [Tue, 12 Sep 2017 19:20:25 +0000 (13:20 -0600)]
Replace multiple 'use vars' by 'our' in dist

Using vars pragma is discouraged and has been superseded
by 'our' declarations available in Perl v5.6.0 or later.

Additionally using 'vars' pragma increase the memory consumption of a
program by about 700 kB for no good reason.

This commit is about replacing the usage of 'vars' pragma
by 'our' in blead where it makes sense. ( leaving 'cpan' directory
outside of the scope )

-- using vars
perl -e 'use vars qw(@ISA $AUTOLOAD $VERSION); print qx{grep RSS /proc/$$/status} '
VmRSS:        2588 kB

-- using our instead
perl -e 'our (@ISA, $AUTOLOAD, $VERSION); print qx{grep RSS /proc/$$/status} '
VmRSS:        1864 kB

4 years agolocale.c: Simplify code in Perl_langinfo()
Karl Williamson [Fri, 10 Nov 2017 02:23:13 +0000 (19:23 -0700)]
locale.c: Simplify code in Perl_langinfo()

Instead of a switch() statement we can use 'foo ? bar : baz;'

4 years agostore AV iterator as mg_len in more cases
Zefram [Sat, 11 Nov 2017 04:06:59 +0000 (04:06 +0000)]
store AV iterator as mg_len in more cases

The iterator of an AV is an IV value attached to the AV via magic.
It may be stored in the space used by mg_len, or it may be stored in
separately allocated space referenced by mg_ptr.  The former is more
efficient, so should be preferred.  The original code for AV iterators
would use mg_len if IV was (the same size as) I32, because mg_len was of
type I32.  Since then mg_len has been increased to type SSize_t, but the
conditional about how AV iterators are stored wasn't updated to match.
As a result, on the now very common 64-bit builds we were missing out on
the opportunity to use the more efficient form of storage.  This commit
updates the condition about how AV iterators are stored, to take account
of the new type.

In principle AV iterators ought to be of type SSize_t, and thus *always*
storable as mg_len.  But Perl_av_iter_p() is in the public API with
its IV* return type, so there is a compatibility issue to address in
changing that.

4 years agoAdd support for --help and --version in perlbug
Todd Rinaldo [Fri, 10 Nov 2017 17:13:09 +0000 (11:13 -0600)]
Add support for --help and --version in perlbug

RT 130032: Thanks to Houston Perl Mongers for contributing to this work at
our monthly meeting!


4 years agoPACKAGING: add patchlevel.h doc entry
Nicolas R [Fri, 10 Nov 2017 20:25:12 +0000 (13:25 -0700)]
PACKAGING: add patchlevel.h doc entry

4 years ago.gitignore: git should also ignore *.bak files
Nicolas R [Fri, 10 Nov 2017 20:27:39 +0000 (13:27 -0700)]
.gitignore: git should also ignore *.bak files

4 years agoHandle Linux containers' use of 0 for PPID with orphaned procs in t/op/getppid.t
Slaven Rezic [Thu, 9 Nov 2017 22:05:00 +0000 (16:05 -0600)]
Handle Linux containers' use of 0 for PPID with orphaned procs in t/op/getppid.t

Bug 130143: Travis-ci has moved to using docker for their testing environments.
However a Docker environment has multiple process trees so therefore orphaned
processes often get a Parent PID of 0 not 1. The previous unit test for this
considered 0 to be a failure. There is now special code to handle this exception
in the unit test for getppid.

4 years agoAdjust travis.yaml configuration for blead merges.
Nicolas R [Thu, 9 Nov 2017 16:46:43 +0000 (09:46 -0700)]
Adjust travis.yaml configuration for blead merges.

- Unset PERL_BUILD_PACKAGING during builds
- Set JOBS to indicate how parallel we want builds to be (4)
- Assure tags are fetched to allow t/porting/cmp_version.t to build.

4 years agoexperimental::lexical_topic is no longer a warning category, it's a fatal compile...
David Cantrell [Fri, 10 Nov 2017 13:06:00 +0000 (13:06 +0000)]
experimental::lexical_topic is no longer a warning category, it's a fatal compile-time error

4 years agoMake VMS::Stdio declare PERL_EXT.
Craig A. Berry [Fri, 10 Nov 2017 13:58:31 +0000 (07:58 -0600)]
Make VMS::Stdio declare PERL_EXT.

We haven't been able to compile this extension since f55ac4a45513
because strBEGINs is not in the API and until now it has not
depended on anything not in the API.  So declare the fact that
it's a core extension and can use core-only macros.

4 years agoUpdate Unicode-Collate to CPAN version 1.21
Chris 'BinGOs' Williams [Fri, 10 Nov 2017 09:34:40 +0000 (09:34 +0000)]
Update Unicode-Collate to CPAN version 1.21


1.21  Sat Nov  4 10:49:19 2017
    - mklocale: [ #121664] . removed from @INC (take 2)
    - DUCET is updated (for Unicode 9.0.0) as Collate/allkeys.txt.
      * Please notice that allkeys.txt will be overwritten if you have had
        other allkeys.txt already.
    - The default UCA_Version is 34.
    - added tangut.t in t.
    - Locale/*.pl and CJK/ are updated.

1.20  Fri Nov  3 11:50:21 2017
    - XS: [ #121664] . removed from @INC
    - U::C::Locale newly supports locales: dsb, lkt.

4 years agoparse yada-yada only as a statement
Zefram [Fri, 10 Nov 2017 02:07:46 +0000 (02:07 +0000)]
parse yada-yada only as a statement

Commit f5727a1c71878a34f6255eb1a506c0b21af7d36f tried to make yada-yada
be parsed consistently as a term expression, but actually things are
more complicated than that.  The tokeniser didn't accept yada-yada in
the right contexts to make it usable as an expression, and changing
that would require decisions on resolving ambiguities between yada-yada
and flip-flop.  It's also documented as being a statement rather than
an expression, though with some incorrect information about ambiguities.

Overall it looks more like the intent was for yada-yada to be a statement.
This commit makes it grammatically treated as such, and also fixes up
the dubious parts of the documentation.  [perl #132150]

4 years agosv.c: Fix typo in comment
Karl Williamson [Fri, 10 Nov 2017 01:46:17 +0000 (18:46 -0700)]
sv.c: Fix typo in comment

4 years agomalloc.c: Fix typo in comment
Karl Williamson [Fri, 10 Nov 2017 01:38:02 +0000 (18:38 -0700)]
malloc.c: Fix typo in comment

4 years agolib/locale.t: Clarify test name
Karl Williamson [Fri, 10 Nov 2017 01:37:30 +0000 (18:37 -0700)]
lib/locale.t: Clarify test name

4 years agohandy.h: Clarify comment
Karl Williamson [Fri, 10 Nov 2017 01:26:43 +0000 (18:26 -0700)]
handy.h: Clarify comment

4 years agolocale.c: strerror_l() not fool proof
Karl Williamson [Tue, 12 Sep 2017 00:57:54 +0000 (18:57 -0600)]
locale.c: strerror_l() not fool proof

Commit 7aaa36b196e5a478a3d1bd32506797db7cebf0b2 changed to use
strerror_l() if available on the platform.  But there is a potential bug
with this on threaded perls.  The code uses strerror_l() when it needs
the answer on a locale that isn't necessarily the current one.  But it
uses plain strerror() when the locale is known to be the current one.
Plain strerror() isn't necessarily thread-safe.  However, on systems
that have strerror_r(), reentr.h has caused our apparent call to plain
strerror() to instead call the thread-safe strerror_r() under the hood.
So there is no bug on unthreaded perls nor on ones that have

This commit fixes the bug on threaded builds which have strerror_l() but
not strerror_r().  It does this by using strerror_l() for everything,
and constructing a locale object that is the current locale to use when
the locale doesn't need to be changed.  This is somewhat more work than
the alternative above does, so that one is used if available.

No changes are made to how it works on systems that don't have

Some systems have deprecated strerror_r().  reentr.h does not use it on
such systems.  The reason for the deprecation, we would hope, may be
that the plain strerror() is implemented thread-safely.  We don't know
that, so we just assume that the plain version is thread-unsafe.

We do have tests that try to find races here, but they haven't shown
any.  It could be that systems that are advanced enough to have
strerror_l() also have strerror_r().

4 years agolocale.c: Move a #define to earlier in the file
Karl Williamson [Thu, 14 Sep 2017 03:05:20 +0000 (21:05 -0600)]
locale.c: Move a #define to earlier in the file

This is in prep for a future commit which needs it earlier

4 years agolocale.c: Add #define's
Karl Williamson [Mon, 11 Sep 2017 17:05:56 +0000 (11:05 -0600)]
locale.c: Add #define's

The previous commit added arrays of locale categories.  This commit
creates compile-time mappings from the category number to the index it
has in the array.  It also changes to use the #define for the index of
LC_ALL in places it is expected to be defined.  This causes bugs in this
logic to be found at compile time on systems that don't have LC_ALL.

4 years agolocale.c: Remove many #if conditionals
Karl Williamson [Tue, 25 Jul 2017 20:23:33 +0000 (14:23 -0600)]
locale.c: Remove many #if conditionals

locale.c is full of compiler conditionals because platforms vary widely
(or have in the past) in what categories they use.  Prior to this
commit, there were many sections of code which had copies of the same
constructs which were #ifdef'd so they'd run only on the categories that
are to be used in this build.

This duplication creates the opportunity for changes to get applied to
only some of the places that they should, and also makes it hard to

This commit adds two parallel arrays that can map a category to/from its
name, and are defined with each element conditionally compiled in based
on the needs of the build.  Doing the conditionals during array
construction means that most of the other conditionals can be replaced
by looping through the arrays.  Thus the duplicated code is eliminated,
as well as almost 200 lines in this file.

Most of these loops get executed only at process initialization, so the
slight performance hit is inconsequential.

4 years agoRevert "perl.h: Use STMT_START { ... } STMT_END"
Lukas Mai [Thu, 9 Nov 2017 13:34:00 +0000 (14:34 +0100)]
Revert "perl.h: Use STMT_START { ... } STMT_END"

This reverts commit 11b2cef65dac01e8723c9a6f6e640665cb752a2c.

DECLARE_STORE_LC_NUMERIC_SET_TO_NEEDED seems to be unused, but the
previous commit made it a syntax error (unmatched '{').

It also doesn't make sense to wrap what is supposed to be a declaration
in a { } block.

4 years agoFix missing close brace before STMT_END
Dagfinn Ilmari Mannsåker [Thu, 9 Nov 2017 13:22:40 +0000 (13:22 +0000)]
Fix missing close brace before STMT_END

The macro isn't actually used anywhere (in core or on CPAN)

4 years agolocale.c: Avoid potential read beyond buffer end
Karl Williamson [Mon, 11 Sep 2017 23:24:00 +0000 (17:24 -0600)]
locale.c: Avoid potential read beyond buffer end

I noticed this flaw by code reading; I doubt that it's exploitable.
foldEQ assumes that both operands are at least as long as its length
parameter.  In this case, it's possible that the codeset returned by
nl_langinfo is shorter than 5, in which case, it would try to access the
extra characters in the heap.  Real codesets tend to be longer than
this, so an attacker would likely have to install a locale with a
made-up codeset whose name is shorter.

Even the C locale is longer: "ANSI_X3.4-1968"

4 years agolocale.c: Clarify some debug statements
Karl Williamson [Wed, 13 Sep 2017 22:03:53 +0000 (16:03 -0600)]
locale.c: Clarify some debug statements

4 years agolocale.c: Slight refactor
Karl Williamson [Tue, 12 Sep 2017 00:56:49 +0000 (18:56 -0600)]
locale.c: Slight refactor

This makes savepv() part of the expressions instead of a separate

4 years agolocale.c: Use REPLACEMENT_CHARACTER as a test
Karl Williamson [Mon, 11 Sep 2017 23:41:57 +0000 (17:41 -0600)]
locale.c: Use REPLACEMENT_CHARACTER as a test

This is trying to determine if the locale is UTF-8.  The easiest way to
tell is if the codeset returned by nl_langinfo says UTF-8, but if that
fails or nl_langinfo() is not present on the system, a fallback method
is to use the libc routines to convert a known byte string to code point
and see if that matches the expected Unicode code point.  Prior to this
patch, the byte string representing HYPHEN was used.  That's probably
good enough, but we can do better with no extra work.  This commit
changes to use the REPLACEMENT CHARACTER instead.  That is a Unicode
concept.  The chances of a non-UTF-8 locale taking the UTF-8 byte string
for the REPLACEMENT and evaluating to REPLACEMENT are vanishingly small.