3 years agoperldelta for cherry pick of 257dc59 v5.18.2-RC2
Ricardo Signes [Sat, 7 Dec 2013 02:28:04 +0000 (21:28 -0500)] 
perldelta for cherry pick of 257dc59

3 years agoupdate versions and dates for a second 5.18.2 RC
Ricardo Signes [Sat, 7 Dec 2013 02:14:28 +0000 (21:14 -0500)] 
update versions and dates for a second 5.18.2 RC

3 years ago[perl #120694] Fix ->SUPER::foo and AUTOLOAD
Father Chrysostomos [Thu, 5 Dec 2013 00:00:48 +0000 (16:00 -0800)] 
[perl #120694] Fix ->SUPER::foo and AUTOLOAD

Commit aae438050a20 (5.17.4) broke ->SUPER::foo with AUTOLOAD by look-
ing up AUTOLOAD from the current package, rather than the current
package’s superclass.

Instead of keeping track of whether it was doing a SUPER lookup via a
::SUPER prefix on the package name, that commit changed method lookup
to pass a GV_SUPER flag around (to fix another bug) and to pass the
current stash, rather than __PACKAGE__::SUPER.  But it did not update
gv_autoload_pvn to pass that flag through to gv_fetchmeth_pvn when
actually looking up the method.

(cherry picked from commit 257dc59d7b864a6cf0ccc9179de1f3f0a797f4e0)


3 years agoarm the "this is RC1" alert v5.18.2-RC1
Ricardo Signes [Mon, 2 Dec 2013 16:00:09 +0000 (11:00 -0500)] 
arm the "this is RC1" alert

3 years agocorelist: push back 5.18.2 release date
Ricardo Signes [Sun, 1 Dec 2013 13:53:29 +0000 (08:53 -0500)] 
corelist: push back 5.18.2 release date

3 years agopush back 5.18.2 release date
Ricardo Signes [Sun, 1 Dec 2013 13:53:19 +0000 (08:53 -0500)] 
push back 5.18.2 release date

3 years agoupdate perldelta for File::Glob version bump
Ricardo Signes [Sun, 1 Dec 2013 02:40:22 +0000 (21:40 -0500)] 
update perldelta for File::Glob version bump

3 years agobump File::Glob version for 5.18.2
Ricardo Signes [Sun, 1 Dec 2013 02:29:56 +0000 (21:29 -0500)] 
bump File::Glob version for 5.18.2

3 years agoFix ext/File-Glob/t/threads.t filenames for VMS.
Craig A. Berry [Wed, 2 Oct 2013 02:43:13 +0000 (21:43 -0500)] 
Fix ext/File-Glob/t/threads.t filenames for VMS.

As noted in

zero-length extensions always get a trailing dot on VMS, and the
easiest workaround is to always use an explicit extension.

(cherry picked from commit 43ed1b742e2b7be9184e1fb35c0f68d15b87feed)

3 years agoFile::Glob: Dup glob state in CLONE()
Brian Fraser [Sat, 21 Sep 2013 06:19:52 +0000 (03:19 -0300)] 
File::Glob: Dup glob state in CLONE()

This solves [perl #119897] and [perl #117823], and restores the
behavior of glob() in conjunction with threads of 5.14 and older.

Since 5.16, code that used glob() inside a thread had been
unintentionally sharing state between threads, which lead to things
like this crashing and failing assertions:

./perl -Ilib -Mthreads -e 'scalar glob("*"); threads->create(sub { glob("*") })->join();'

(cherry picked from commit facf34ef484d62d15b2da11ee03d01942a22ff15)

3 years ago[perl #114864] Make UNIVERSAL::DESTROY changes invalidate caches
Father Chrysostomos [Sun, 18 Aug 2013 06:58:47 +0000 (23:58 -0700)] 
[perl #114864] Make UNIVERSAL::DESTROY changes invalidate caches

Commit 8c34e50d inadvertently caused DESTROY caches not to be
reset when UNIVERSAL::DESTROY changes.  Normally, a change to
a method will cause mro_method_changed_in to be called on all
subclasses, but mro.c cheats for UNIVERSAL and just does
++PL_sub_generation.  So clearing the DESTROY cache explicitly
in mro_method_changed_in is clearly not enough.

(cherry picked from commit c716b3beb77406159d18fd52251821fee641f9fc)

3 years agoreparse compile-time /(?{})/ in right scope
David Mitchell [Tue, 6 Aug 2013 15:34:50 +0000 (16:34 +0100)] 
reparse compile-time /(?{})/ in right scope

When a compile-time regex like /...(?{ code-block }) .../
is compiled in the presence of constant and concat overloading,
this can cause (still at compile-time) for the pattern to be evaled and
re-compiled, in order to re-compile any code-blocks that got messed up
during the overloading and thus whose text no longer matches that which
the perl parser previously compiled.

When this happens, eval_sv() happens to be called when the perl parser is
still in compiling state; normally its called from running state.
This tickles an undiscovered bug in Perl_find_runcv_where(), which
finds the current cop sequence by looking at PL_curcop->cop_seq.
At compile time, we need to get it from PL_cop_seqmax instead.

(cherry picked from commit c3923c33af542d8764d5a1e4eb5d7b311f443b89)

3 years agoPATCH [perl #119713] Regex \8 and \9 after literals no longer work
Karl Williamson [Wed, 27 Nov 2013 03:43:44 +0000 (20:43 -0700)] 
PATCH [perl #119713] Regex \8 and \9 after literals no longer work

Commit 726ee55d introduced a regression that has been fixed in blead by
commit f1e1b256.  However the later commit changed some buggy behavior
into errors instead of warnings, and so is contraindicated in a
maintenance release.  This current commit attempts to fix the regression
without changing other behavior.  It includes the pat.t tests from f1e1b256.

3 years agoadd tentative 5.18.2 release date
Ricardo Signes [Fri, 22 Nov 2013 02:40:15 +0000 (21:40 -0500)] 
add tentative 5.18.2 release date

3 years agoFor SDBM_File, stop EU::MM from generating its default subdirs rule.
Nicholas Clark [Fri, 22 Nov 2013 16:43:52 +0000 (16:43 +0000)] 
For SDBM_File, stop EU::MM from generating its default subdirs rule.

The default subdirs rule creates a race condition with the rule that
Makefile.PL explicitly adds to generate libsdbm.a, which can cause parallel
makes to fail.

Signed-off-by: Chris 'BinGOs' Williams <>
3 years agoremove 5.19.7 tentative entries from corelist
Ricardo Signes [Thu, 21 Nov 2013 18:50:34 +0000 (13:50 -0500)] 
remove 5.19.7 tentative entries from corelist

3 years agoadd new CoreList tests to manifest
Ricardo Signes [Thu, 21 Nov 2013 03:42:15 +0000 (22:42 -0500)] 
add new CoreList tests to manifest

3 years agoadd the v5.18.2 changes to Module::CoreList
Ricardo Signes [Thu, 21 Nov 2013 03:27:13 +0000 (22:27 -0500)] 
add the v5.18.2 changes to Module::CoreList

3 years agoimport Module-CoreList from blead
Ricardo Signes [Thu, 21 Nov 2013 03:22:11 +0000 (22:22 -0500)] 
import Module-CoreList from blead

3 years agoupdate perldelta for 5.18.2
Ricardo Signes [Thu, 21 Nov 2013 03:18:10 +0000 (22:18 -0500)] 
update perldelta for 5.18.2

3 years agobump version to v5.18.2
Ricardo Signes [Thu, 21 Nov 2013 01:58:25 +0000 (20:58 -0500)] 
bump version to v5.18.2

3 years update perl version where perf fixed
David Mitchell [Wed, 24 Jul 2013 13:18:22 +0000 (14:18 +0100)] update perl version where perf fixed

It still said that the performance of $`, $&, $' was fixed in 5.18.
Update that to 5.20, since COW wasn't enabled by default in 5.18.


3 years agoDisable new //p tests
David Mitchell [Tue, 30 Jul 2013 19:14:37 +0000 (20:14 +0100)] 
Disable new //p tests

The previous commit fixed a regression in 5.18.0:

    my $pat = qr/a/;
    'aaaa' =~ /$pat/gp or die;
    print "MATCH=[${^MATCH}]\n";

which printed 'a' in 5.16.0, and undef in 5.18.0.
5.18.0 only broke the /g behaviour; the non-/g variant was already broken
and the previous commit didn't fix that for maint.

The new tests are testing for the non-/g variant, which still fail, so
disable these tests.

(Getting it to capture under non-/g works in 5.19.2 due to a major
reorganisation of the pp_match/pp_subst/regexec() code, which isn't
suitable for backporting to maint-5.18.)

3 years agoRT #118213: handle $r=qr/.../; /$r/p properly
David Mitchell [Tue, 30 Jul 2013 15:16:35 +0000 (16:16 +0100)] 
RT #118213: handle $r=qr/.../; /$r/p properly

(cherry-picked from 5b0e71e9d506. Some of the new tests are unsuitable for
5.18.x and fail with this commit; they'll be disabled in the next commit)

In the case where a qr// regex is directly used by PMOP (rather than being
interpolated with some other stuff and a new regex created, such as
/a$r/p), then the PMf_KEEPCOPY flag will be set on the PMOP, but the
corresponding RXf_PMf_KEEPCOPY flag *won't* be set on the regex.

Since most of the regex handling for copying the string and extracting out
${^PREMATCH} etc is done based on the RXf_PMf_KEEPCOPY flag in the regex,
this is a bit of a problem.

Prior to 5.18.0 this wasn't so noticeable, since various other bugs around
//p handling meant that ${$PREMATCH} etc often accidentally got set
anyway. 5.18.0 fixed these bugs, and so as a side-effect, exposed the
PMOP verses regex flag issue. In particular, this stopped working in

    my $pat = qr/a/;
    'aaaa' =~ /$pat/gp or die;
    print "MATCH=[${^MATCH}]\n";

(prints 'a' in 5.16.0, undef in 5.18.0).
The presence /g caused the engine to copy the string anyway by luck.

We can't just set the RXf_PMf_KEEPCOPY flag on the regex if we see the
PMf_KEEPCOPY flag on the PMOP, otherwise stuff like this will be wrong:

    $r = qr/..../;
    /$r/p;  # set RXf_PMf_KEEPCOPY on $r
    /$r/; # does a /p match by mistake

Since for 5.19.x onwards COW is enabled by default (and cheap copies are
always made regardless of /p), then this fix is mainly for PERL_NO_COW
builds and for backporting to 5.18.x. (Although it still applies to
strings that can't be COWed for whatever reason).

Since we can't set a flag in the rx, we fix this by:

1) when calling the regex engine (which may attempt to copy part or all of
the capture string), make sure we pass REXEC_COPY_STR, but neither of
REXEC_COPY_SKIP_PRE, REXEC_COPY_SKIP_POST when we call regexec() from
pp_match or pp_subst when the corresponding PMOP has PMf_KEEPCOPY set.

2) in Perl_reg_numbered_buff_fetch() etc, check for PMf_KEEPCOPY in
PL_curpm as well as for RXf_PMf_KEEPCOPY in the current rx before deciding
whether to process ${^PREMATCH} etc.

As well as adding new tests to t/re/reg_pmod.t, I also changed the
string to be matched against from being '12...' to '012...', to ensure that
the lengths of ${^PREMATCH}, ${^MATCH}, ${^POSTMATCH} would all be

4 years agoperldelta for 89c16a74d5f.
Craig A. Berry [Sun, 29 Sep 2013 02:40:02 +0000 (21:40 -0500)] 
perldelta for 89c16a74d5f.

4 years agoFix processing of PERL_ENV_TABLES.
Craig A. Berry [Sat, 7 Sep 2013 11:55:25 +0000 (06:55 -0500)] 
Fix processing of PERL_ENV_TABLES.

In a35dcc95dd24524931e I "improved" string safety in vms/vms.c by
converting to my_strlcpy and my_strlcat, but mangled the length
argument to my_strlcat when adding the name of the logical name
table specified in PERL_ENV_TABLES. This caused the command string
to be truncated, so a command that, for example, should have been:

    $ Show Logical * /Table=LNM$JOB

actually became:

    $ Show Logical * /Table=
    %DCL-W-VALREQ, missing qualifier or keyword value - supply all required values

Plus it turns out the strings holding the names of the tables were
being stored in dynamic string descriptors and were not
NUL-terminated, but the strl* functions require NUL-terminated
arguments.  So change those to static string descriptors and
allocate the exact amount of storage needed including room for a

This was a regression in 5.16.0, first reported a couple of days
ago by Mark Daniel on comp.os.vms:

Date: Fri, 06 Sep 2013 12:56:01 +0930
From: Mark Daniel <mark.daniel [AT]>
Newsgroups: comp.os.vms
Message-ID: <52294b4a$0$2875$c3e8da3$>

TODO: Figure out how and where to test this.

4 years agodocument fixing of #119927 (localizing $\) in 5.18.0
Ricardo Signes [Mon, 23 Sep 2013 15:52:47 +0000 (11:52 -0400)] 
document fixing of #119927 (localizing $\) in 5.18.0

4 years agoperldelta for 0e903f68ee
Tony Cook [Wed, 11 Sep 2013 00:10:12 +0000 (10:10 +1000)] 
perldelta for 0e903f68ee

4 years ago[perl #119351] fix B::CV::GV to return a B::SPECIAL on NULL
Tony Cook [Tue, 10 Sep 2013 23:40:11 +0000 (09:40 +1000)] 
[perl #119351] fix B::CV::GV to return a B::SPECIAL on NULL

Cherry pick of


combined with a version bump.

4 years agoadd new perldelta
Ricardo Signes [Mon, 12 Aug 2013 14:50:38 +0000 (10:50 -0400)] 
add new perldelta

4 years agoupdate META.* for 5.18.1 (stable) release v5.18.1
Ricardo Signes [Mon, 12 Aug 2013 02:55:40 +0000 (22:55 -0400)] 
update META.* for 5.18.1 (stable) release

4 years agopatchlevel.h: remove RC3 indicator
Ricardo Signes [Mon, 12 Aug 2013 02:47:08 +0000 (22:47 -0400)] 
patchlevel.h: remove RC3 indicator

This is it, folks!

4 years agoperlhist: update dates for 5.18.1 in light of RC3
Ricardo Signes [Fri, 9 Aug 2013 02:05:17 +0000 (22:05 -0400)] 
perlhist: update dates for 5.18.1 in light of RC3

4 years agoupdate CoreList dates for 5.18.1 in light of RC3
Ricardo Signes [Fri, 9 Aug 2013 02:04:47 +0000 (22:04 -0400)] 
update CoreList dates for 5.18.1 in light of RC3

4 years agoupdate patchlevel.h for v5.18.1-RC3
Ricardo Signes [Fri, 9 Aug 2013 02:04:27 +0000 (22:04 -0400)] 
update patchlevel.h for v5.18.1-RC3

4 years agoSkip the perldoc test if 'man' is missing
Niko Tyni [Tue, 6 Aug 2013 13:57:00 +0000 (16:57 +0300)] 
Skip the perldoc test if 'man' is missing

This fixes a test failure in minimal build environments without
a 'man' command.

4 years agoThe language messages variable is called LC_MESSAGES
Niko Tyni [Tue, 6 Aug 2013 13:45:59 +0000 (16:45 +0300)] 
The language messages variable is called LC_MESSAGES

This probably doesn't matter as LC_ALL overrides everything else.

4 years agoperldelta: mention v5.16, not v5.17, as previous version
Ricardo Signes [Thu, 8 Aug 2013 11:52:09 +0000 (07:52 -0400)] 
perldelta: mention v5.16, not v5.17, as previous version

Thanks for the report, SHIRAKATA Kentaro.

4 years agoModule::CoreList: update Config found in 5.18.1
Ricardo Signes [Thu, 8 Aug 2013 00:45:19 +0000 (20:45 -0400)] 
Module::CoreList: update Config found in 5.18.1

4 years agoAdd missing versioned Config to Module::CoreList
Chris 'BinGOs' Williams [Wed, 7 Aug 2013 22:48:21 +0000 (23:48 +0100)] 
Add missing versioned Config to Module::CoreList

(cherry picked from commit cc42383380dce0d2e3c98f9f467a21c936902a8d)

4 years agoadd Module::CoreList::Utils delta for 5.18.1
Ricardo Signes [Mon, 5 Aug 2013 13:31:35 +0000 (09:31 -0400)] 
add Module::CoreList::Utils delta for 5.18.1

4 years agoupdate perlhist and patchlevel for v5.18.1-RC2
Ricardo Signes [Sun, 4 Aug 2013 02:08:56 +0000 (22:08 -0400)] 
update perlhist and patchlevel for v5.18.1-RC2

4 years agoperlhist: add 5.18.1!
Ricardo Signes [Fri, 2 Aug 2013 03:06:51 +0000 (23:06 -0400)] 
perlhist: add 5.18.1!

4 years agoRT #119125: continue /[#$x]/x not interpolating
David Mitchell [Sat, 3 Aug 2013 15:04:45 +0000 (16:04 +0100)] 
RT #119125: continue /[#$x]/x not interpolating

the earlier fix for /[#](?{})/x, although correct, as a
side-effect fixed another long-standing bug where /[#$x]/x
didn't interpolate the var $x. Although fixing that is good,
it's too big a change for maint, so keep the old buggy behaviour
for now.

4 years agoperldelta: remove a leftover XXX section
Ricardo Signes [Sun, 4 Aug 2013 01:30:10 +0000 (21:30 -0400)] 
perldelta: remove a leftover XXX section

4 years agoperldelta: fix module updates section
Ricardo Signes [Sun, 4 Aug 2013 01:29:58 +0000 (21:29 -0400)] 
perldelta: fix module updates section

4 years agoupdate corelist with v5.18.1 changes
Ricardo Signes [Sun, 4 Aug 2013 01:24:38 +0000 (21:24 -0400)] 
update corelist with v5.18.1 changes

...again.  This time, using the updated updater, fixing the
deprecations screwed up in 5.18.1 RC1.

4 years agoimport updates to Porting/
Ricardo Signes [Sun, 4 Aug 2013 01:09:54 +0000 (21:09 -0400)] 
import updates to Porting/

4 years agoRevert "update corelist with v5.18.1 changes"
Ricardo Signes [Sun, 4 Aug 2013 01:08:02 +0000 (21:08 -0400)] 
Revert "update corelist with v5.18.1 changes"

This reverts commit f97801705daa638dc14b1ce38cac3542064df879.

4 years agoUpdate META.json for RC1
Ricardo Signes [Fri, 2 Aug 2013 01:38:48 +0000 (21:38 -0400)] 
Update META.json for RC1

4 years agobump version to v5.18.1-RC1
Ricardo Signes [Fri, 2 Aug 2013 01:37:49 +0000 (21:37 -0400)] 
bump version to v5.18.1-RC1

4 years agoupdate corelist with v5.18.1 changes
Ricardo Signes [Fri, 2 Aug 2013 01:30:38 +0000 (21:30 -0400)] 
update corelist with v5.18.1 changes

I am not following the instructions in the RMG, because the
procedure is sort of a mess.  I will make sure that blead gets into
the right state when this is done.  In the meantime, doing it this
way should require less weird moving of work back and forth.

4 years agoimport Module-Corelist 2.95 from blead
Ricardo Signes [Fri, 2 Aug 2013 01:11:33 +0000 (21:11 -0400)] 
import Module-Corelist 2.95 from blead

4 years agoversion bump, because Digest::SHA changed
Ricardo Signes [Fri, 2 Aug 2013 01:05:04 +0000 (21:05 -0400)] 
version bump, because Digest::SHA changed

4 years agoperlhist: import the latest perlhist from blead
Ricardo Signes [Fri, 2 Aug 2013 01:00:10 +0000 (21:00 -0400)] 
perlhist: import the latest perlhist from blead

4 years agoperldelta: remove sections we will not need
Ricardo Signes [Thu, 1 Aug 2013 23:56:45 +0000 (19:56 -0400)] 
perldelta: remove sections we will not need

4 years agoperldelta: perldelta for /[#]/ and /(?[...])/ changes
Ricardo Signes [Thu, 1 Aug 2013 23:06:02 +0000 (19:06 -0400)] 
perldelta: perldelta for /[#]/ and /(?[...])/ changes

4 years agoperldelta: hints updates from 4b985f1 and 9de5f95
Ricardo Signes [Thu, 1 Aug 2013 23:05:30 +0000 (19:05 -0400)] 
perldelta: hints updates from 4b985f1 and 9de5f95

4 years agoperldelta: Digest::SHA fix in 79fe145
Ricardo Signes [Thu, 1 Aug 2013 23:05:06 +0000 (19:05 -0400)] 
perldelta: Digest::SHA fix in 79fe145

4 years agoperldelta: the easy pre-editing before final checks
Ricardo Signes [Thu, 1 Aug 2013 13:32:37 +0000 (09:32 -0400)] 
perldelta: the easy pre-editing before final checks

4 years agoperldelta: add a missing "=" from a Pod directive
Ricardo Signes [Thu, 1 Aug 2013 13:23:10 +0000 (09:23 -0400)] 
perldelta: add a missing "=" from a Pod directive

4 years agoDon’t leak when compiling /(?[\d\d])/
Father Chrysostomos [Thu, 6 Jun 2013 21:14:06 +0000 (14:14 -0700)] 
Don’t leak when compiling /(?[\d\d])/

The ‘Operand with no preceding operator’ error was leaking the last
two operands.

(cherry picked from commit b573e7000fd9c1cfae30ae5fb328a25b9bf3870a)

4 years agoFree operand when encountering unmatched ')' in (?[])
Father Chrysostomos [Thu, 6 Jun 2013 21:07:21 +0000 (14:07 -0700)] 
Free operand when encountering unmatched ')' in (?[])

I only need to free the operand (current), not the left-paren token
that turns out not to be a paren (lparen).

For lparen to leak, there would have to be two operands in a row on
the charclass parsing stack, which currently never happens.

(cherry picked from commit 4bc5d08976b7df23b63a56cc017a20ac5766fbbc)

4 years agoStop /(?[\p{...}])/ compilation from leaking
Father Chrysostomos [Thu, 6 Jun 2013 20:42:32 +0000 (13:42 -0700)] 
Stop /(?[\p{...}])/ compilation from leaking

The swash returned by was not being freed in the code
path to handle returning character classes to the (?[...]) parser
(when ret_invlist is true).

(cherry picked from commit c80d037c54749655d40eac068936c5222ce9d8ee)

4 years agoStop (?[]) operators from leaking
Father Chrysostomos [Thu, 6 Jun 2013 15:47:31 +0000 (08:47 -0700)] 
Stop (?[]) operators from leaking

When a (?[]) extended charclass is compiled, the various operands are
stored as inversion lists in separate SVs and then combined together
into new inversion lists.  The functions that take care of combining
inversion lists only ever free one operand, and sometimes free none.
Most of the operators in (?[]) were trusting the invlist functions to
free everything that was no longer needed, causing (?[]) compilation
to leak invlists.

(cherry picked from commit a84e671a269f736a404a62f21caacc8a431c2aca)

4 years agoDon’t leak the /(?[])/ parsing stack on error
Father Chrysostomos [Thu, 6 Jun 2013 04:40:24 +0000 (21:40 -0700)] 
Don’t leak the /(?[])/ parsing stack on error

Instead of creating the parsing stack and then freeing it after pars-
ing the (?[...]) construct (leaking it whenever one of the various
errors scattered throughout the parsing code occurs), mortalise it to
begin with and let the mortals stack take care of it.

(cherry picked from commit 1e4f088863436a8019c7d864691903ffdafeefda)

4 years agoHandle /[#]/ and /[(?#]/ with code blocks
David Mitchell [Wed, 31 Jul 2013 21:41:17 +0000 (22:41 +0100)] 
Handle /[#]/ and /[(?#]/ with code blocks

This is a regression in 5.18.0.

In something like /[#](?{})/x, the perl toker incorrectly sees the '#' as a
comment and skips the code block without parsing it.

(cherry picked from commit c30fc27b4df65a43710b25dd1d2a57d78ee2fe33)

4 years ago[perl #118525] make it work on threaded builds
Tony Cook [Tue, 30 Jul 2013 04:41:56 +0000 (14:41 +1000)] 
[perl #118525] make it work on threaded builds

(cherry picked from commit 5016d3c45a66ce5b279c253e8a8c2a38a9bd8431)

4 years agoCvGV is no longer a simple struct member access
Tony Cook [Thu, 25 Jul 2013 02:09:00 +0000 (12:09 +1000)] 
CvGV is no longer a simple struct member access

The same slot is also used for the NAME_HEK for lexical subs, so:

- split B::CV::GV out into its own function that uses the CvGV macro

- add B::CV::NAME_HEK so the name of a lexical sub can be fetched

4 years agoperldelta: deep recursion warnings (07b2687d2/#118521)
Father Chrysostomos [Sun, 28 Jul 2013 06:22:43 +0000 (23:22 -0700)] 
perldelta: deep recursion warnings (07b2687d2/#118521)

4 years agoperldelta for bdbfc51a7b (undef constant my sub)
Father Chrysostomos [Sat, 13 Jul 2013 21:31:31 +0000 (14:31 -0700)] 
perldelta for bdbfc51a7b (undef constant my sub)
(cherry picked from commit 07a522a526321341d2a83a852eda7f6fecb333c9)

4 years agoperldelta for #118305/88dbe4a
Father Chrysostomos [Sat, 13 Jul 2013 18:57:02 +0000 (11:57 -0700)] 
perldelta for #118305/88dbe4a
(cherry picked from commit 81d3ed5a0fa49c09ac57f7edc0917f345ff6b160)

4 years agoperldelta for lexsub syntax errors (3a74e0e282c)
Father Chrysostomos [Mon, 10 Jun 2013 07:50:47 +0000 (00:50 -0700)] 
perldelta for lexsub syntax errors (3a74e0e282c)
(cherry picked from commit 3221bc400f3da87f0d721c2bf3501051fac946ea)

4 years agoperldelta for two lexsub fixes
Father Chrysostomos [Mon, 10 Jun 2013 07:49:26 +0000 (00:49 -0700)] 
perldelta for two lexsub fixes
(cherry picked from commit 81748522aff12edb368615e9512781d00a2d5d5b)

4 years agoStop undef &foo from crashing on lex subs
Father Chrysostomos [Sun, 23 Jun 2013 19:06:11 +0000 (12:06 -0700)] 
Stop undef &foo from crashing on lex subs
(cherry picked from commit bdbfc51a7bc15a2f0a187c1ef09a16838a4c9915)

4 years agodon't crash on deep recursion warnings in lexical subs (#118521)
Lukas Mai [Tue, 18 Jun 2013 07:51:32 +0000 (09:51 +0200)] 
don't crash on deep recursion warnings in lexical subs (#118521)
(cherry picked from commit 07b2687d22462e599adb759b7c0082fb12b3f33d)

4 years ago[perl #118305] make dtrace sub-entry probe support lexsubs
Father Chrysostomos [Thu, 20 Jun 2013 21:07:19 +0000 (14:07 -0700)] 
[perl #118305] make dtrace sub-entry probe support lexsubs

No tests, because I don’t know how to write them.

See also <>.

I have tested this manually, so I know it works and no longer crashes.

Hopefully someone else can follow this up with tests.
(cherry picked from commit 88dbe4af2506aa2aa6864e188ca115b5423d4f9b)

4 years agoFix crashes after syntax errors in lexical subs
Father Chrysostomos [Sun, 2 Jun 2013 20:25:24 +0000 (13:25 -0700)] 
Fix crashes after syntax errors in lexical subs

Peter Martini fixed this in commit 89e006ae4e39db for our subs.
(Thank you, BTW, if you are reading this.)

The warning is expected; the assertion failure is not:

$ ./miniperl -Ilib -Mfeature=:all -e 'state sub a { is ref } a()'
The lexical_subs feature is experimental at -e line 1.
Assertion failed: (hek), function Perl_ck_subr, file op.c, line 10558.
Abort trap: 6
$ ./miniperl -Ilib -Mfeature=:all -e 'my sub a { is ref } a()'
The lexical_subs feature is experimental at -e line 1.
Assertion failed: (SvTYPE(_svmagic) >= SVt_PVMG), function S_mg_findext_flags, file mg.c, line 398.
Abort trap: 6

The prototype CV for a my sub is stored in magic attached to the pad
name.  The.  The code to fetch the prototype CV for a my sub calls
mg_find on the pad name.  If a syntax error occurs when the sub is be
ing compiled, the magic will never be attached, so the pad name (pad
names are currently SVs) will not have been upgraded to SVt_PVMG,
causing an assertion failure in mg_find, which only accepts SVs
thus upgraded.

When a pad entry is created, it is automatically filled with an empty
SV of the appropriate type.  For a subroutine, this is a nameless CV
stub.  CVs can be named in two ways, via GVs for package subs, or via
heks for lexical subs.  This stub has neither and is truly nameless.
Since a lexical sub is never installed if it contains a syntax error,
this stub is visible during subsequent compilation in the same scope.
ck_subr wasn’t prepared to handle a stub with absolutely no name
attached to it, since it is designed for handling sub calls where the
sub is known at compile time, so there must be a GV available to it,
unless the sub is lexical, and all lexical subs have heks.

This commit fixes the assumptions in both places.  Exactly what hap-
pens and what is returned is not so important, as this only hap-
pens after a syntax error, when the op tree is going to be thrown
away anyway.
(cherry picked from commit 3a74e0e282cd5c2593f9477923d3bcb1f32ece37)

4 years ago[perl #116735] Honour lexical prototypes when no parens are used
Father Chrysostomos [Sun, 2 Jun 2013 07:54:09 +0000 (00:54 -0700)] 
[perl #116735] Honour lexical prototypes when no parens are used

As Peter Martini noted in ticket #116735, lexical subs produce dif-
ferent op trees for ‘foo 1’ and ‘foo(1)’.  foo(1) produces an rv2cv
op with a padcv kid.  The unparenthetical version produces just
a padcv op.

And the difference in op trees caused lexical sub calls to honour
prototypes only in the presence of parentheses, because rv2cv_op_cv
(which searches for the cv in order to check its prototype) was
expecting rv2cv+padcv.

Not realising there was a discrepancy between the two forms, and
noticing that foo() produces *two* newCVREF ops, in commit 279d09bf893
I made newCVREF return just a padcv op for lexical subs.  At the time
I couldn’t figure out why there were two rv2cv ops, and punted on
researching it.

This is how it works for package subs:

When a sub call is compiled, if there are parentheses, an implicit '&'
is fed to the parser.  The token that follows is a WORD token with a
constant op attached to it, containing the name of the subroutine.
When the parser sees '&', it calls newCVREF on the const op to create
an rv2cv op.

For sub calls without parentheses, the token passed to the parser is
already an rv2cv op.

The resulting op tree is the same either way.

For lexical subs, I had the lexer emitting an rv2cv op in both paths,
which was why we got the double rv2cv when newCVREF was returning an
rv2cv for lexical subs.

The real solution is to call newCVREF in the lexer only when there
are no parentheses, since in that case the lexer is not going to call
newCVREF itself.  That avoids a redundant newCVREF call.  Hence, we
can have newCVREF always return an rv2cv op.

The result is that ‘foo(1)’ and ‘foo 1’ produce identical op trees for
a lexical sub.

One more thing needed to change:  The lexer was not looking at the
lexical prototype CV but simply the stub to be autovivified, so it
couldn’t see the parameter prototype attached to the CV (the stub
doesn’t have one).

The lexer needs to see the parameter prototype too, in order to deter-
mine precedence.

The logic for digging through pads to find the CV has been extracted
out of rv2cv_op_cv into a separate (non-API!) routine.
(cherry picked from commit 9a5e6f3cd84e6eaf40dad034fb9d25cb3361accc)

4 years agoName lexical constants
Father Chrysostomos [Sun, 2 Jun 2013 01:39:33 +0000 (18:39 -0700)] 
Name lexical constants

$ ./perl -Ilib -Mfeature=:all -e 'my sub a(){44} a()'
The lexical_subs feature is experimental at -e line 1.
Assertion failed: (hek), function Perl_ck_subr, file op.c, line 10558.
Abort trap: 6

The experimental warning is expected.  The assertion failure is not.

When a call checker is invoked, the name of the subroutine is passed
to it.  op.c:ck_subr gets the name from the CV’s cv (CvGV) or, in the
case of lexical subs, from its name hek (CvNAME_HEK).  If neither
exists, ck_subr cannot cope.

Lexical subs never have a GV pointer.  Lexical constants were acci-
dentally having neither a GV pointer nor a hek.  They should have a
hek, like other lexical subs.
(cherry picked from commit 83a72a15a3e8908c9fea8334e083e9329d425feb)

4 years agolexsub.t: To-do tests for citing lex subs after errors
Father Chrysostomos [Sat, 1 Jun 2013 13:28:12 +0000 (06:28 -0700)] 
lexsub.t: To-do tests for citing lex subs after errors

This currently causes assertion failures on debugging builds.  On
non-debugging builds (untested), it probably crashes:

my sub a { foo ref } # foo must not exist
(cherry picked from commit fe54d63b71ffdc66546e8a06b4ea561f58af2fc2)

4 years agoFix missing single quote in a sed in hints/
Peter Martini [Sun, 21 Jul 2013 22:45:45 +0000 (18:45 -0400)] 
Fix missing single quote in a sed in hints/

(cherry picked from commit da46ab3732c369c451e8f975eeca0700552ac282)

4 years ago[perl #118649] maint-5.18: Digest-SHA crash fix in 5.85
Chris 'BinGOs' Williams [Fri, 28 Jun 2013 12:07:34 +0000 (13:07 +0100)] 
[perl #118649] maint-5.18: Digest-SHA crash fix in 5.85

Backported minimal changes from blead

4 years agoFix regex seqfault 5.18 regression
Karl Williamson [Mon, 1 Jul 2013 16:26:14 +0000 (10:26 -0600)] 
Fix regex seqfault 5.18 regression

This segfault is a result of an optimization that can leave the
compilation in an inconsistent state.


doesn't match anything, and hence should be removable from the regex for
all f.  However,


caused a segfault.  What was happening prior to this commit is that
(?&foo) refers to a named capture group further along in the regex.
The "{0}" caused the "(?&foo)" to be discarded prior to setting up the
pointers between the two related subexpressions; a segfault follows.

This commit removes the optimization, and should be suitable for a
maintenance release.

One might think that no one would be writing code like this, but this
example was distilled from machine-generated code in Regexp::Grammars.

Perhaps this optimization can be done, but the location I chose for
checking it was during parsing, which turns out to be premature.  It
would be better to do it in the optimization phase of regex compilation.
Another option would be to retain it where it was, but for it to operate
only on a limited set of nodes, such as EXACTish, which would have no
unintended consequences.  But that is for looking at in the future; the
important thing is to have a simple patch suitable for fixing this
regression in a maintenance release.

For the record, the code being reverted was mistakenly added by me in
commit 3018b823898645e44b8c37c70ac5c6302b031381, and wasn't even
mentioned in that commit message.  It should have had its own commit.


4 years agoFix MidnightBSD hints file for 0.4-RELEASE
Chris 'BinGOs' Williams [Sun, 7 Jul 2013 12:55:29 +0000 (13:55 +0100)] 
Fix MidnightBSD hints file for 0.4-RELEASE

0.4 has no /usr/bin/objformat, so the hints file was
falling through to configure for aout with fatal consequences.

Confirmed that the objformat in 0.3 warns that it is deprecated.

Have switched around the logic of the checks so that it will always
configure for elf, using aout is explicitly detected.

4 years agoUpdate the GSMATCH handling in vms/
Craig A. Berry [Fri, 31 May 2013 21:23:24 +0000 (16:23 -0500)] 
Update the GSMATCH handling in vms/

This code (which only runs if you have set PERLSHR_USE_GSMATCH in
the environment) has not been updated in a long time.  It was
assuming that $] had only five digits after the decimal, whereas
it's had six for some time. And it assumed that the Perl5 version
could be represented in 4 bits, which was true up through 5.15
but isn't true anymore.

So get all the digits of the version number, and go wild and spend
5 bits on the value of $Config{PERL_VERSION}, which will get us
through 5.31.  That only leaves three bits in which to encode all
the options that could break binary compatibility, whereas in fact
we need about thirty bits.

So clearly this only works in a situation where the configuration
can be standardized and/or different configurations are packaged

4 years agoImproved struct pmop alignment fix - avoid the slow path on 64 bit systems.
Nicholas Clark [Sun, 26 May 2013 06:50:17 +0000 (08:50 +0200)] 
Improved struct pmop alignment fix - avoid the slow path on 64 bit systems.

Commit c2a50ddb1bed6576 works round an alignment bug in the slab allocator
for 32 bit systems built with 64 bit IVs. However, the C pre-processor logic
meant that the test path was enabled on true 64 bit systems. It's not needed
there, so improve the logic so that it isn't compiled for platforms where
pointers are 64 bit.

4 years agoupdate perldelta with recent cherry-picks
David Mitchell [Sat, 15 Jun 2013 11:53:14 +0000 (12:53 +0100)] 
update perldelta with recent cherry-picks

4 years agoEnsure that the IV in struct pmop (for ithreads) is aligned properly.
Nicholas Clark [Thu, 23 May 2013 11:46:05 +0000 (13:46 +0200)] 
Ensure that the IV in struct pmop (for ithreads) is aligned properly.

Regression in 5.18.0 cherry-picked from

The members of struct pmop vary between ithreads and non-ithreads builds.
For ithreads, an IV is used for op_pmoffset. For 32 bit platforms built
with -Duse64bitint, IVs are 64 bits, but pointers (and all other members of
all OP structures) are 32 bits, hence on 32 bit platforms OP structure sizes
can be an odd multiple of 4 bytes. Since the swap to the slab allocator,
this is causing problems on architectures where 8 byte IVs have to be 8
byte aligned, notably sparcs. The long-term fix is to replace the IV with
an appropriate 32 bit type, as it is being used for an array index. However,
for maint-5.18 we need a work around which doesn't change the public headers
and ideally doesn't impose a large speed or memory penalty.

Hence for now, simply avoid using the slab allocator when allocating a
struct pmop. Only do this for 32 bit platforms build with 8 byte IVs and

This is the interim fix for RT #118055.

4 years ago[perl #118159] Make PVs take precedence in SvTRUE
Father Chrysostomos [Sun, 26 May 2013 06:59:45 +0000 (23:59 -0700)] 
[perl #118159] Make PVs take precedence in SvTRUE

Commit 4bac9ae4 (probably inadvertently) changed SvTRUE to treat an SV
with any of PVX, IVX or NVX having a true value as true.

Traditionally, truth was based solely on stringification. The examina-
tion of the SvIVX and SvNVX slots was for those cases where there was
no string already and it could be deduced from IVX or NVX whether it
would stringify as "0" or no (bugs with -0 aside).

This changes things back to the way they have ‘always’ been.

This was a regression in 5.18.0;
cherry-picked from 762dbf22cb22645771fc27b5d197fd40cbbd9da8.

4 years agoFix regmatch pointer 32-bit wraparound regression
Tony Cook [Mon, 3 Jun 2013 12:28:37 +0000 (22:28 +1000)] 
Fix regmatch pointer 32-bit wraparound regression

Cherry-picked from:

commit 285a3ca139d04d2ee1894c9a9110294ee8bb0309
Merge: aad0429 dfb8f19
Author:     Tony Cook <>
AuthorDate: Mon Jun 3 22:28:37 2013 +1000
Commit:     Tony Cook <>
CommitDate: Mon Jun 3 22:28:37 2013 +1000

    [perl #118175] avoid making pointers outside of objects

    In a couple of cases, when strings were allocated above the 2GB line
    on 32-bit CPUs, this could cause regexps to act strangely - not matching
    or crashing perl.

    The final patch in the set prevents pointer creation which the C standard
    describes as undefined behaviour, but is typically safe (as long as the
    pointer isn't derefed)

This regression was introduced into 5.18.0 by commit

4 years agoperldelta for debugger @_ fix
Ricardo Signes [Mon, 10 Jun 2013 22:23:27 +0000 (18:23 -0400)] 
perldelta for debugger @_ fix

4 years agoFix the mutability of @_ in perl -d.
Shlomi Fish [Sun, 26 May 2013 15:55:48 +0000 (18:55 +0300)] 
Fix the mutability of @_ in perl -d.

With a test.

See Father C.'s comment on RT #118169.

4 years agoFix for RT #118169
Shlomi Fish [Sun, 26 May 2013 13:35:04 +0000 (16:35 +0300)] 
Fix for RT #118169

subroutine arguments are no longer shown in perl debugger ( x @_ in perl
-d) .

Regression from perl-5.16.x due to the perl -d refactoring. Fixed with a

4 years ago[perl #118297] Fix interpolating downgraded variables into upgraded regexp
Dagfinn Ilmari Mannsåker [Tue, 4 Jun 2013 17:15:24 +0000 (18:15 +0100)] 
[perl #118297] Fix interpolating downgraded variables into upgraded regexp

The code alredy upgraded the pattern if interpolating an upgraded
string into it, but not vice versa.  Just use sv_catsv_nomg() instead
of sv_catpvn_nomg(), so that it can upgrade as necessary.

4 years agoperldelta for #117947
Father Chrysostomos [Thu, 6 Jun 2013 00:49:28 +0000 (17:49 -0700)] 
perldelta for #117947

4 years ago[perl #117947] Verify lvalueness of XSUBs at run time
Father Chrysostomos [Tue, 28 May 2013 00:45:50 +0000 (17:45 -0700)] 
[perl #117947] Verify lvalueness of XSUBs at run time

If the sub is not visible at compile time, the op tree is flagged such
that pp_entersub will know whether to check the lvalueness of the
called sub.

That check has been in pp_entersub since da1dff9483c.  When I moved
it to pp_entersub in that commit, I only added it to the pure-Perl
branch, not to the XS branch, allowing all XSUBs to be treated as
lvalues if they are not visible at compile time.
(cherry picked from commit 4587c5322c964beac01a38188957ca11026dc766)

4 years agoupdate link for DTrace user guide
Ricardo Signes [Fri, 31 May 2013 22:15:57 +0000 (18:15 -0400)] 
update link for DTrace user guide

(cherry picked from commit d2a68ca8e9f23a357624176e0b4b7a3d63913441)

4 years agocorrect example for turning of experimental warnings
Ricardo Signes [Fri, 31 May 2013 00:05:37 +0000 (20:05 -0400)] 
correct example for turning of experimental warnings

Original patch from Thomas Klausner <>, tweaked with a
suggestion by Karen Etheridge <>.

4 years agoOn Linux LC_ALL overrides LC_MESSAGES, so tweak perl5db.t accordingly.
Nicholas Clark [Mon, 27 May 2013 12:53:30 +0000 (14:53 +0200)] 
On Linux LC_ALL overrides LC_MESSAGES, so tweak perl5db.t accordingly.

Without this, the test fails when LC_ALL is set to a non-English locale for
which man has been localised.
(cherry picked from commit f81b1f8b75b4a650b1375b4226116b035f86cb09)