This is a live mirror of the Perl 5 development currently hosted at
6 years agoPATCH: [perl #122655] 5.20 regression: '"X" !~ /[x]/i'
Karl Williamson [Sat, 30 Aug 2014 16:44:01 +0000 (10:44 -0600)]
PATCH: [perl #122655] 5.20 regression: '"X" !~ /[x]/i'

This problem occurs only when the pattern is UTF-8, contains a single ASCII
lowercase letter.  It does not match its uppercase counterpart.

6 years agorelease schedule: put Abigail on for October
Ricardo Signes [Mon, 1 Sep 2014 13:55:45 +0000 (09:55 -0400)]
release schedule: put Abigail on for October

6 years agoFix assertion failure with our subs and constants
Father Chrysostomos [Mon, 1 Sep 2014 06:14:20 +0000 (23:14 -0700)]
Fix assertion failure with our subs and constants

The code path that looks up ‘our’ subs was not vivifying GVs in
the symbol table, and it was assuming that anything it found
would be a GV.

Constants created by ‘use constant’ are stored as simple scalar refs,
when possible, instead of GVs with CVs.

So GvCV() was called on an RV, and blew up.

$ ./miniperl -Ilib -Mfeature=lexical_subs -e 'our sub foo; BEGIN { delete $::{foo}; } use constant foo=>3; warn foo()'
The lexical_subs feature is experimental at -e line 1.
Assertion failed: (SvTYPE(_gvgp) == SVt_PVGV || SvTYPE(_gvgp) == SVt_PVLV), function Perl_yylex, file toke.c, line 6566.
Abort trap: 6

6 years agoembed.fnc: fix comment
David Mitchell [Mon, 1 Sep 2014 13:21:18 +0000 (14:21 +0100)]
embed.fnc: fix comment

spotted by bulk88

6 years agoPOSIX math: M_SQRT2 and M_2_SQRTPI were misspelled.
Jarkko Hietaniemi [Mon, 1 Sep 2014 01:53:39 +0000 (21:53 -0400)]
POSIX math: M_SQRT2 and M_2_SQRTPI were misspelled.

And therefore not constant-exported.

6 years agoperl.c: Improve buildcustomize error message
Father Chrysostomos [Mon, 1 Sep 2014 01:20:28 +0000 (18:20 -0700)]
perl.c: Improve buildcustomize error message was being loaded with generated code that died if
‘lib/’ existed but do-file failed.  $@ was used as
the error message.

If the file does not exist (do-file searching @INC), then $@ is empty
and the error is in $!.  Before 9054c817, this is what we would get:

$ ./miniperl -T -Ilib -e0
BEGIN failed--compilation aborted.

I fixed that in 9054c817 so there would be no error (by adding an ini-
tial ‘./’ to the path.)

That message was rather baffling.  It would have been easier to track
down the cause if I had seen something like this:

$ ./miniperl -T -Ilib -e0
lib/ No such file or directory.
BEGIN failed--compilation aborted.

This commit changes the generated code to output $! like that if $@ is
empty, in case a similar bug occurs again.

6 years agoAIX: allow one to keep long doubles, even if broken.
Jarkko Hietaniemi [Mon, 1 Sep 2014 00:08:10 +0000 (20:08 -0400)]
AIX: allow one to keep long doubles, even if broken.

6 years agoPOSIX math: Solaris needs -lsunmath.
Jarkko Hietaniemi [Sun, 31 Aug 2014 21:37:28 +0000 (17:37 -0400)]
POSIX math: Solaris needs -lsunmath.

6 years agoPOSIX math: use POSIX now imports Inf and NaN.
Jarkko Hietaniemi [Sun, 31 Aug 2014 20:02:42 +0000 (16:02 -0400)]
POSIX math: use POSIX now imports Inf and NaN.

The import illusion is not flawless: print -Inf
Ambiguous use of -Inf resolved as -&Inf() at -e line 1.
Would need toke.c trip, I guess.

Also, try definining the C99 INFINITY and NAN even if <math.h> didn't.

6 years agoPOSIX math: fpclassify continues.
Jarkko Hietaniemi [Sun, 31 Aug 2014 19:40:51 +0000 (15:40 -0400)]
POSIX math: fpclassify continues.

6 years agoPOSIX math: Bessel fixes.
Jarkko Hietaniemi [Sun, 31 Aug 2014 19:07:13 +0000 (15:07 -0400)]
POSIX math: Bessel fixes.

6 years agoPOSIX math: todo for emulating fegetround() with fpgetround().
Jarkko Hietaniemi [Sun, 31 Aug 2014 15:03:48 +0000 (11:03 -0400)]
POSIX math: todo for emulating fegetround() with fpgetround().

6 years agoPOSIX math: Configure scan fpgetround
Jarkko Hietaniemi [Sun, 31 Aug 2014 14:51:40 +0000 (10:51 -0400)]
POSIX math: Configure scan fpgetround

Legacy BSD way of fegetround.

6 years agoPOSIX math: lrint and rint emulations.
Jarkko Hietaniemi [Sat, 30 Aug 2014 14:34:41 +0000 (10:34 -0400)]
POSIX math: lrint and rint emulations.

6 years agoPOSIX math: Add fegetround() and fesetround().
Jarkko Hietaniemi [Sat, 30 Aug 2014 13:56:51 +0000 (09:56 -0400)]
POSIX math: Add fegetround() and fesetround().

6 years agoPOSIX math: More handling of legacy implementations.
Jarkko Hietaniemi [Sat, 30 Aug 2014 13:28:43 +0000 (09:28 -0400)]
POSIX math: More handling of legacy implementations.

6 years agoPOSIX math: Configure scan d_fegetround and i_fenv.
Jarkko Hietaniemi [Sat, 30 Aug 2014 13:17:11 +0000 (09:17 -0400)]
POSIX math: Configure scan d_fegetround and i_fenv.

6 years agoPOSIX math: fpclassify emulation.
Jarkko Hietaniemi [Sat, 30 Aug 2014 12:54:19 +0000 (08:54 -0400)]
POSIX math: fpclassify emulation.

6 years agoPOSIX math: Portability emulations and constants.
Jarkko Hietaniemi [Sat, 30 Aug 2014 02:11:58 +0000 (22:11 -0400)]
POSIX math: Portability emulations and constants.

Plus fix the cmp_ok tests which had epsilon 18 magnitudes off.
(Didn't cause any false positives, luckily.)

6 years agoPOSIX math: HP-UX exceptions.
Jarkko Hietaniemi [Sat, 30 Aug 2014 00:31:56 +0000 (20:31 -0400)]
POSIX math: HP-UX exceptions.

6 years agoPOSIX math: Have only one not_here for each API.
Jarkko Hietaniemi [Fri, 29 Aug 2014 18:56:43 +0000 (14:56 -0400)]
POSIX math: Have only one not_here for each API.

6 years agoPOSIX math: Win32 shuffling.
Jarkko Hietaniemi [Fri, 29 Aug 2014 14:38:56 +0000 (10:38 -0400)]
POSIX math: Win32 shuffling.

6 years agoPOSIX math: Use HAS_ACOSH to enable/disable the C99 math.
Jarkko Hietaniemi [Fri, 29 Aug 2014 13:52:58 +0000 (09:52 -0400)]
POSIX math: Use HAS_ACOSH to enable/disable the C99 math.

6 years agoPOSIX math: Skip the POSIX C99 math tests if no acosh().
Jarkko Hietaniemi [Fri, 29 Aug 2014 13:46:06 +0000 (09:46 -0400)]
POSIX math: Skip the POSIX C99 math tests if no acosh().

6 years agoPOSIX math: Configure scan for acosh.
Jarkko Hietaniemi [Fri, 29 Aug 2014 13:42:58 +0000 (09:42 -0400)]
POSIX math: Configure scan for acosh.

6 years agoPOSIX math: Add more C99 math tests.
Jarkko Hietaniemi [Fri, 29 Aug 2014 13:37:20 +0000 (09:37 -0400)]
POSIX math: Add more C99 math tests.

(Note: these all will fail if we don't have C99 math.  Duh.)

6 years agoPOSIX math: Hopefully better use of Configure symbols.
Jarkko Hietaniemi [Fri, 29 Aug 2014 13:20:43 +0000 (09:20 -0400)]
POSIX math: Hopefully better use of Configure symbols.

6 years agoPOSIX math: Configure scan for j0 and j0l.
Jarkko Hietaniemi [Fri, 29 Aug 2014 13:01:36 +0000 (09:01 -0400)]
POSIX math: Configure scan for j0 and j0l.

(j0 is canary forthe  Bessel functions, common math.h extensions,
 not dependent on C99, j0l is its long double version.)

6 years agoPOSIX math: Add FP_ILOGB0 and FP_ILOGBNAN.
Jarkko Hietaniemi [Fri, 29 Aug 2014 12:21:46 +0000 (08:21 -0400)]

6 years agoPOSIX math: Implement glue for the C99 math functions.
Jarkko Hietaniemi [Thu, 28 Aug 2014 00:52:39 +0000 (20:52 -0400)]
POSIX math: Implement glue for the C99 math functions.

Plus the Bessel functions j0, j1, jn, y0, y1, yn: common extensions

Plus the constants INFINITY/NAN.

6 years agoPOSIX math: Add M_ constants like M_PI.
Jarkko Hietaniemi [Thu, 28 Aug 2014 00:33:55 +0000 (20:33 -0400)]
POSIX math: Add M_ constants like M_PI.

6 years ago[perl #122669] Don’t taint at compile time
Father Chrysostomos [Sun, 31 Aug 2014 21:10:45 +0000 (14:10 -0700)]
[perl #122669] Don’t taint at compile time

 #!perl -T

 # tainted constant
 use constant K=>$^X;

 # Just reading the constant for the sake of folding can enabled
 # taintedness at compile time.
 0 if K;

 # Taintedness is still on when the ‘’ SV is created, so
 # require croaks on it (‘Insecure dependency’).
 use strict;

The fix is simply not to propagate taintedness at compile time.
Hence, the value of K will still be tainted at run time (require(K)
croaks), but just reading the value of K at compile time won’t taint
subsequent string literals (or barewords treated as strings).

‘Compile time’ here is relative:  Taintedness still wafts about as
usual when BEGIN blocks are executed, because code is actually run-
ning.  It’s when code is being parsed that propagation is disabled.

The reason taint propagation could span across statements at compile
time was that *execution* of a new statement resets taintedness,
whereas parsing is oblivious to it.

6 years agoLet taint.t run under miniperl
Father Chrysostomos [Sun, 31 Aug 2014 20:40:30 +0000 (13:40 -0700)]
Let taint.t run under miniperl

‘use re taint;’ doesn’t load re.xs, and hasn’t for a long time.

6 years agotaint.t: Fix skip count
Father Chrysostomos [Sun, 31 Aug 2014 20:39:57 +0000 (13:39 -0700)]
taint.t: Fix skip count

6 years agoGet ‘./miniperl -Ilib -T’ working
Father Chrysostomos [Sun, 31 Aug 2014 20:11:03 +0000 (13:11 -0700)]
Get ‘./miniperl -Ilib -T’ working

If the first directory included via -I contains,
then miniperl will try to load it at startup.  This allows the build
process to access all the necessary directories, because fills in @INC.

This was not working under taint mode, making it a pain for me to
diagnose tainting bugs with miniperl (which builds faster than perl
proper, obviously).

It failed because is loaded with generated code that
does ‘do "lib/"’ (where ‘lib’ is taken from -Ilib),
but do-file searches @INC, which does not include the current direc-
tory under taint mode.

The easiest solution here is to add ‘./’ to the beginning of the path.
It is unlikely that anyone is using miniperl -I/... (with an absolute
path), and miniperl is only supposed to be used for building or devel-
oping perl, anyway.

6 years agoperlsec: Another typo
Father Chrysostomos [Sun, 31 Aug 2014 19:58:37 +0000 (12:58 -0700)]
perlsec: Another typo

6 years agoperlsec: Typo
Father Chrysostomos [Sun, 31 Aug 2014 19:55:22 +0000 (12:55 -0700)]
perlsec: Typo

6 years agoperlsec: Consistent spaces after dots
Father Chrysostomos [Sun, 31 Aug 2014 19:55:12 +0000 (12:55 -0700)]
perlsec: Consistent spaces after dots

6 years agoperldelta for 59e6df9f1cf
Father Chrysostomos [Sun, 31 Aug 2014 18:15:37 +0000 (11:15 -0700)]
perldelta for 59e6df9f1cf

6 years agoperldelta for 172a6a76e8c
Father Chrysostomos [Sun, 31 Aug 2014 18:11:33 +0000 (11:11 -0700)]
perldelta for 172a6a76e8c

6 years agoAdd perldelta entry for ExtUtils::Manifest upgrade.
James E Keenan [Sun, 31 Aug 2014 16:39:46 +0000 (12:39 -0400)]
Add perldelta entry for ExtUtils::Manifest upgrade.

6 years ago=for apidoc wrong api
Jarkko Hietaniemi [Sun, 31 Aug 2014 16:12:37 +0000 (12:12 -0400)]
=for apidoc wrong api

6 years agoCouple more infnan tests.
Jarkko Hietaniemi [Sun, 31 Aug 2014 16:04:46 +0000 (12:04 -0400)]
Couple more infnan tests.

6 years agosqrt() disappeared in OSX, assuming it became pow().
Jarkko Hietaniemi [Sun, 31 Aug 2014 14:35:35 +0000 (10:35 -0400)]
sqrt() disappeared in OSX, assuming it became pow().

Use exp() instead, less likely to disappear.  Yes, handwaving.

6 years agoAIX: if long doubles do not mix with infinity, disable long doubles.
Jarkko Hietaniemi [Sun, 31 Aug 2014 13:48:46 +0000 (09:48 -0400)]
AIX: if long doubles do not mix with infinity, disable long doubles.

6 years agoDetect HAS_AIX_POWL_NEG_BASE_BUG in hints/
Jarkko Hietaniemi [Sun, 31 Aug 2014 13:21:30 +0000 (09:21 -0400)]
Detect HAS_AIX_POWL_NEG_BASE_BUG in hints/

6 years agoThe fp classification is a royal mess.
Jarkko Hietaniemi [Sun, 31 Aug 2014 12:34:10 +0000 (08:34 -0400)]
The fp classification is a royal mess.

Try avoiding false detections by guarding against an interface falsely
matching a set of return values.  This can still go wrong if <math.h>
declares several sets.  Would really need an array of Configure tests.

6 years agoWrong result for double-double sqrt(2).
Jarkko Hietaniemi [Sun, 31 Aug 2014 03:39:28 +0000 (23:39 -0400)]
Wrong result for double-double sqrt(2).

6 years agoS_infnan_copy needs at most 5 bytes of output size.
Jarkko Hietaniemi [Sun, 31 Aug 2014 03:13:27 +0000 (23:13 -0400)]
S_infnan_copy needs at most 5 bytes of output size.

6 years agoDo not test sin/cos at [+-]pi, either.
Jarkko Hietaniemi [Sun, 31 Aug 2014 01:14:12 +0000 (21:14 -0400)]
Do not test sin/cos at [+-]pi, either.

With AIX and long doubles you may not get exactly the approximation
of pi you were thinking of.  "This is not the pi you are looking for".

6 years agoAvoid using function pointers for math functions.
Jarkko Hietaniemi [Sun, 31 Aug 2014 01:11:30 +0000 (21:11 -0400)]
Avoid using function pointers for math functions.

Otherwise AIX with long double has issues, see perl #122571.  AIX has
some rather intricate arrangement of symbols and macros.  Also, it is
okay to use two switches instead of just one.

6 years agoUpdate ExtUtils-Manifest to CPAN version 1.66
Chris 'BinGOs' Williams [Sun, 31 Aug 2014 13:52:18 +0000 (14:52 +0100)]
Update ExtUtils-Manifest to CPAN version 1.66


1.66  Sun, Aug 31, 2014
  - manifind() will now follow symlinks
  - Tests fixed if PERL_MM_MANIFEST_VERBOSE env var is set to
    false value
  - Fixed bug with maniread()'s handling of quoted filenames

6 years agoperldelta for 8b57a5fa
Father Chrysostomos [Sun, 31 Aug 2014 13:53:34 +0000 (06:53 -0700)]
perldelta for 8b57a5fa

6 years agoperldelta for 211a4342
Father Chrysostomos [Sun, 31 Aug 2014 13:52:01 +0000 (06:52 -0700)]
perldelta for 211a4342

6 years agoperldelta for f20d0df0f
Father Chrysostomos [Sun, 31 Aug 2014 13:50:17 +0000 (06:50 -0700)]
perldelta for f20d0df0f

6 years agoperldelta for 4dda930be/#122556
Father Chrysostomos [Sun, 31 Aug 2014 13:47:13 +0000 (06:47 -0700)]
perldelta for 4dda930be/#122556

6 years agoperldelta: A to-do item
Father Chrysostomos [Sun, 31 Aug 2014 13:45:38 +0000 (06:45 -0700)]
perldelta: A to-do item

Mostly my own reminder, because I have not rebased yet, and this
entry will conflict with something already pushed.

6 years agoperldelta for 8380b6901
Father Chrysostomos [Sun, 31 Aug 2014 13:44:18 +0000 (06:44 -0700)]
perldelta for 8380b6901

6 years agoperldelta for acb187b49 (part of #69456)
Father Chrysostomos [Sun, 31 Aug 2014 13:42:29 +0000 (06:42 -0700)]
perldelta for acb187b49 (part of #69456)

6 years agoperldelta for eff754733a9
Father Chrysostomos [Sun, 31 Aug 2014 13:39:27 +0000 (06:39 -0700)]
perldelta for eff754733a9

6 years agoperldelta for #80368/e4916dd1b3
Father Chrysostomos [Sun, 31 Aug 2014 13:35:55 +0000 (06:35 -0700)]
perldelta for #80368/e4916dd1b3

6 years agoStop prototype declaration from clobbering constants
Father Chrysostomos [Sun, 31 Aug 2014 13:27:45 +0000 (06:27 -0700)]
Stop prototype declaration from clobbering constants

$ perl -e 'use constant f=>3; sub f($); warn eval "&f"'
Runaway prototype at -e line 1.
Prototype mismatch:: none vs ($) at -e line 1.
Undefined subroutine &main::f called at (eval 1) line 1.
...caught at -e line 1.
$ perl -e 'sub f (){3} sub f($); warn eval "&f"'
Prototype mismatch: sub main::f () vs ($) at -e line 1.
3 at -e line 1.

(The ‘Runaway prototype’ warning was removed in acfcf464b177, in which
I stated wrongly that the warning could only come about with stash
manipulation.  I suppose the warning was really warning me that the
implementation was broken, which it was until this commit.)

When constant refs in the symbol table were introduced in 5.10.0
(a bisect points to e040ff70dc), one code path in newATTRSUB--that
assumes that a stash entry that is not a GV is not a defined sub,
but either a forward declaration or no sub at all--was not updated to
account for this new way of storing constants.

6 years agoStop anon sub compilation from clobbering __ANON__
Father Chrysostomos [Sat, 30 Aug 2014 23:19:24 +0000 (16:19 -0700)]
Stop anon sub compilation from clobbering __ANON__

Anonymous subs point to *__ANON__ simply because internals expect
defined subroutines to have CvGV pointing somewhere.

So why does anonymous constant sub compilation wipe
*__ANON__{CODE} clean?

$ perl -e 'sub main::__ANON__ { 42 }; warn main::__ANON__; # sub(){3}'
42 at -e line 1.
$ perl -e 'sub main::__ANON__ { 42 }; warn main::__ANON__;  sub(){3}'
Undefined subroutine &main::__ANON__ called at -e line 1.

It doesn’t happen with non-constant subs:

$ perl -e 'sub main::__ANON__ { 42 }; warn main::__ANON__;  sub{3}'
42 at -e line 1.

This is actually a regression:

../perl.git/Porting/  --end=perl-5.8.8  --target=miniperl -e  'sub main::__ANON__ { 42 }; warn main::__ANON__;  sub(){3}'

beab0874143b7208922720fecefc4a224011fa25 is the first bad commit
commit beab0874143b7208922720fecefc4a224011fa25
Author: John Tobey <jtobey at>
Date:   Fri Oct 20 18:03:27 2000 -0400

    Re: Creating const subs for constants.
    Message-Id: <m13mo0N-000FObC@feynman.localnet>

    p4raw-id: //depot/perl@7389

The new code path for constants did an unconditional
GvCV_set(gv, NULL), instead of checking whether there was a
name first.

6 years agoPorting/ Add missing full stop
Father Chrysostomos [Sat, 30 Aug 2014 23:08:13 +0000 (16:08 -0700)]
Porting/ Add missing full stop

6 years agoadd missing close paren in pod
Doug Bell [Sun, 31 Aug 2014 08:20:23 +0000 (03:20 -0500)]
add missing close paren in pod

For: RT #122663 (partial)

6 years agosig() should be kill()
Doug Bell [Sun, 31 Aug 2014 08:02:56 +0000 (03:02 -0500)]
sig() should be kill()

There is no sig() function, and the block of text has similar language
to a previous block which uses kill().

For: RT #122662

6 years agoAdd perldelta entries for updated modules and pragmata.
James E Keenan [Sun, 31 Aug 2014 00:59:58 +0000 (20:59 -0400)]
Add perldelta entries for updated modules and pragmata.

6 years agoAnother way to detect C99.
Jarkko Hietaniemi [Fri, 29 Aug 2014 14:56:11 +0000 (10:56 -0400)]
Another way to detect C99.

6 years agoHAS_C99 was oddly defined, and oddly used.
Jarkko Hietaniemi [Fri, 29 Aug 2014 12:45:09 +0000 (08:45 -0400)]
HAS_C99 was oddly defined, and oddly used.

It was defined as "C version high enough, but not VMS",
but used as "does it have intmax_t".  Now that we have
I_STDINT, we can do better.

6 years agoConfigure: add i_stdint.
Jarkko Hietaniemi [Fri, 29 Aug 2014 12:43:34 +0000 (08:43 -0400)]
Configure: add i_stdint.

6 years agoapidoc for Perl_isinfnan.
Jarkko Hietaniemi [Fri, 29 Aug 2014 23:57:39 +0000 (19:57 -0400)]
apidoc for Perl_isinfnan.

6 years agoAdd a simple atan2() test.
Jarkko Hietaniemi [Thu, 28 Aug 2014 01:17:30 +0000 (21:17 -0400)]
Add a simple atan2() test.

(Not similar to the 'torture tests' that were removed.)

6 years agoCheck validity of keys in hash passed as first argument.
James E Keenan [Sat, 16 Aug 2014 19:00:01 +0000 (15:00 -0400)]
Check validity of keys in hash passed as first argument.

Prevent processing of misspelled options in hash passed to find() or

Add perldelta entry for File::Find.

For: RT #122547

6 years agoFix up Peek.t after priv flag twiddling
Father Chrysostomos [Sat, 30 Aug 2014 05:20:30 +0000 (22:20 -0700)]
Fix up Peek.t after priv flag twiddling

6 years agoStop turning off bit 1 in rv2cv private flags
Father Chrysostomos [Sat, 30 Aug 2014 04:57:53 +0000 (21:57 -0700)]
Stop turning off bit 1 in rv2cv private flags

newUNOP turns on that bit by default, to indicate that the op
has one kid.

rv2cv was using that bit for something else, so three code paths had
to turn it off.

Two commits ago, rv2cv stopped using that bit, so turning it off
is no longer necessary.  It was because the flag using that bit,
OPpMAY_RETURN_CONSTANT, needed to be passed to newUNOP, that it had
to change.

6 years agoIncrease $B::Concise::VERSION to 0.993
Father Chrysostomos [Sat, 30 Aug 2014 04:53:44 +0000 (21:53 -0700)]
Increase $B::Concise::VERSION to 0.993

6 years agoUpdate B::Concise for OPpMAY_RETURN_CONSTANT
Father Chrysostomos [Sat, 30 Aug 2014 04:52:16 +0000 (21:52 -0700)]
Update B::Concise for OPpMAY_RETURN_CONSTANT

6 years agoAvoid vivifying stuff when looking up barewords
Father Chrysostomos [Sat, 30 Aug 2014 03:18:23 +0000 (20:18 -0700)]
Avoid vivifying stuff when looking up barewords

Till now, when a bareword was looked up to see whether it was a sub-
routine, an rv2cv op was created (to allow PL_check hooks to override
the process), which was then asked for its GV.

Afterwards, the GV was downgraded back to nothing if possible.

So a lot of the time a GV was autovivified and then discarded.  This
has been the case since f74617600 (5.12).

If we know there is a good chance that the rv2cv op is about to be
deleted, we can avoid that by passing a flag to the new op.

Also f74617600 actually changed the behaviour by vivifying stashes
that used not be vivified:

sub foo { print shift, "\n" }
SUPER::foo bar if 0;
foo SUPER;

Output in 5.10:


Output as of this commit:


Output in 5.12 to 5.21.3:

    Can't locate object method "foo" via package "SUPER" at - line 3.

6 years ago[Merge] pad_reset
Father Chrysostomos [Thu, 28 Aug 2014 20:04:32 +0000 (13:04 -0700)]
[Merge] pad_reset

This branch gets builds with pad_reset enabled working and changes the

For those who do not know what pad_reset does, pad_reset allows oper-
ators from different statements to share targets, saving memory.  When
it was originally added, it never fully worked properly, so it was
disabled, since it caused bugs.

For those who do not know what operator targets are:  Many operators
use the same scalar every time they return a value, to avoid having to
create a new one each time.  This is known as the target.

To keep t/re/uniprops.t running in a reasonable amount of time (unfor-
tunate coincidences slowed it down signficantly), I had to add two
optimisations.  See the commits entitled:

    Split PL_padix into two variables
    pad.c: Use PadnamelistMAXNAMED in another place

These optimisations apply even when pad_reset is disabled.

Benchmarking doesn’t show any speedup with pad_reset
enabled, so I left it disabled for now.  See
<> for benchmark-
ing details.

(I am hoping that I can figure out why it’s slower and enable it some
future date.)

6 years agoMake Peek.t easier to run directly
Father Chrysostomos [Thu, 28 Aug 2014 01:10:18 +0000 (18:10 -0700)]
Make Peek.t easier to run directly

e.g., ./perl -TIlib ext/Devel-Peek/t/Peek.t

6 years agopad.c: pad_reset comments
Father Chrysostomos [Wed, 27 Aug 2014 20:51:06 +0000 (13:51 -0700)]
pad.c: pad_reset comments

6 years agoFix up Peek.t
Father Chrysostomos [Wed, 27 Aug 2014 20:18:42 +0000 (13:18 -0700)]
Fix up Peek.t

6 years agopad.c: Remove BROKEN from USE_BROKEN_PAD_RESET
Father Chrysostomos [Wed, 27 Aug 2014 20:16:58 +0000 (13:16 -0700)]

6 years agopad.c:pad_free: Don’t reset PL_padix if using pad_reset
Father Chrysostomos [Wed, 27 Aug 2014 15:27:03 +0000 (08:27 -0700)]
pad.c:pad_free: Don’t reset PL_padix if using pad_reset

pad_reset causes PL_padix to be reset at the beginning of each state-
ment, so that operator targets can be reused.

If we also reset it when freeing an operator, then theoretically tar-
gets from operators later on in the same statement might be reused.  I
can’t come up with a test case, but it’s better to be safe than sorry.

6 years agopad.c:pad_findmy_pvn: Skip ‘our’ hack for subs
Father Chrysostomos [Wed, 27 Aug 2014 06:26:28 +0000 (23:26 -0700)]
pad.c:pad_findmy_pvn: Skip ‘our’ hack for subs

There is a hack that allows an ‘our’ variable to be found in the pad
in the statement in which it is declared, to avoid a warning (since
the fallback would be to look up the very same variable in the current
package anyway).

Since the warning this hack avoids doesn’t apply to subroutines, we
can just skip it for subroutine lookup.

6 years agopad.c: Use PadnamelistMAXNAMED in another place
Father Chrysostomos [Wed, 27 Aug 2014 06:21:43 +0000 (23:21 -0700)]
pad.c: Use PadnamelistMAXNAMED in another place

This will speed up pad lookup a little more.  This could be considered
a follow-up to commit 7db6405c.

There is a hack that allows an ‘our’ variable to be found in the pad
in the statement in which it is declared, to avoid a warning (since
the fallback would be to look up the very same variable in the current
package anyway).

This commit applies the PadnamelistMAXNAMED optimisation to that code
path.  This is how that optimisation works:  When named slots are
allocated in the pad, PadnamelistMAXNAMED is set, so that, when
searching for named items in the pad, we don’t have to search the
whole thing if there are many constants or GVs at the end.

Recent commits slowed down t/re/uniprops.t considerably.  This was the remaining bottleneck.

We could actually skip the whole ‘our’ hack for subroutine lookup
(since the warning it avoids doesn’t apply to subroutines anyway).  In
fact, the next commit will do that.  But this optimisation is worth-
while anyway.

6 years agoSplit PL_padix into two variables
Father Chrysostomos [Wed, 27 Aug 2014 06:05:16 +0000 (23:05 -0700)]
Split PL_padix into two variables

PL_padix keeps track of the position in the pad when pad_alloc has to
start scanning for an available slot.

The availability of a slot is determined differently for targets
(which may reuse slots that are already targets from previous state-
ments, at least when pad_reset is enabled) and constants (which may
not reuse targets).

Having the same index for both may require scanning the entire pad for
allocating a constant or GV.

t/re/uniprops.t was running far too slowly under USE_BROKEN_PAD_RESET
because of this.  pad_reset would reset PL_padix to point to the
beginning of a pad with a few hundred thousand entries.  pad_alloc
would then have to scan the entire pad before adding a GV to the end.

It is still too slow, even with this commit, but for other reasons.
(This is just a partial fix.)

6 years agointrpvar.h: Correct comment
Father Chrysostomos [Wed, 27 Aug 2014 05:37:03 +0000 (22:37 -0700)]
intrpvar.h: Correct comment

This description has been a little faulty for quite some time, not
just because of the last few commits.  Any time pad_free or pad_swipe
is called, that pad slot becomes available and PL_padix is reset.
So ‘max used’ is not accurate.

6 years agouniprops.t: Correct command line in comment
Father Chrysostomos [Wed, 27 Aug 2014 02:57:27 +0000 (19:57 -0700)]
uniprops.t: Correct command line in comment

6 years agoop.c:newPADOP: Allocate GV pad slots like constants
Father Chrysostomos [Wed, 27 Aug 2014 02:42:26 +0000 (19:42 -0700)]
op.c:newPADOP: Allocate GV pad slots like constants

Requesting a pad slot for a constant (and GVs in pads are like con-
stants, in that the pad slot will always hold that same value, which
is shared in recursion) will instruct pad_alloc to avoid anything
marked PADTMP; i.e., a  slot used as a target by a previous statement.

Without this, under -Accflags=-DUSE_BROKEN_PAD_RESET and threads,
configpm fails an assertion, because a concat operator tries to do
sv_grow on its target, but that target has ended up becoming a GV.

With this commit, all tests pass, but t/re/uniprops.t takes ‘forever’
(cf. commits 325e1816 and 7db6405c, which caused and fixed, respec-
tively, a similar bug).

6 years agopad.c:pad_free: Don’t turn off the PADTMP flag
Father Chrysostomos [Wed, 27 Aug 2014 02:05:32 +0000 (19:05 -0700)]
pad.c:pad_free: Don’t turn off the PADTMP flag

When we mark a pad entry as being free, it may happen (under
USE_BROKEN_PAD_RESET) that multiple operators from different state-
ments are using the same pad entry for their targets.  If we turn off
the PADTMP flag, the slot may be reused for a constant.  Then an oper-
ator that tries to return a value by assigning to its target will try
to modify a read-only scalar.

Now that (as of a few commits ago) allocation of targets (in
pad_alloc) will reuse entries marked PADTMP, turning off the flag is
not necessary to make a slot available.

This gets the build for USE_BROKEN_PAD_RESET+threads a little further.
The Exporter test now passes, but configpm trips an assertion....

6 years agoop.c:ck_rvconst: Allocate GV pad slots like constants
Father Chrysostomos [Wed, 27 Aug 2014 01:06:48 +0000 (18:06 -0700)]
op.c:ck_rvconst: Allocate GV pad slots like constants

Requesting a pad slot for a constant (and GVs in pads are like con-
stants, in that the pad slot will always hold that same value, which
is shared in recursion) will instruct pad_alloc to avoid anything
marked PADTMP; i.e., a  slot used as a target by a previous statement.

Without this, we get an assertion failure from ‘miniperl -MExporter’
under -Accflags=-DUSE_BROKEN_PAD_RESET and threads.

With this commit, we get ‘Modification of a read-only value attempted’
instead, which is some progress. :-)

6 years agopad.c: More clearly separate targ/constant allocation
Father Chrysostomos [Tue, 26 Aug 2014 20:06:10 +0000 (13:06 -0700)]
pad.c: More clearly separate targ/constant allocation

pad_reset was turning off PADTMP on targets to make them ‘available’
again.  But constants allocated later could then end up using those
slots.  We can’t share pad slots between constants and targets,
because operators allocated earlier will trigger ‘Modification of
a read-only value’ errors when trying to assign return values to
their targets.

Under non-threaded builds, in which constants are not generally stored
in the pad, there are still ‘constants’ that are allocated as such
(with &PL_sv_no names) but are not actually read-only.  Filehandle
names associated with ‘open my $fh’ are one such example.  If that
filehandle name’s pad slot is shared with a target, then the file-
handle will be named using some random string from a previous

The solution here is to change the way we use the PADTMP flag when
allocating pad slots.  pad_reset should *not* turn off the flag,
because we need to know that these entries are used as targets by pre-
vious statements.  pad_alloc should not tread PADTMP entries as being
in use when allocating targets, but only when allocating constants.

This gets all tests passing under -Accflags=-DUSE_BROKEN_PAD_RESET
on non-threaded builds.

6 years agopad.c:pad_reset: Also make sure the thing is not PADMY
Father Chrysostomos [Tue, 26 Aug 2014 15:31:22 +0000 (08:31 -0700)]
pad.c:pad_reset: Also make sure the thing is not PADMY

We can’t SvPADTMP_off on just anything, because it asserts that the
thing is !SvPADMY.

A range operator has a target of sorts, but that target must not be
shared with any other operators; hence it gets allocated like a
‘my’ variable.  The target thus ends up with the SvPADMY flag set.  We
obviously don’t want to mark those targets as reusable in pad_reset,
so just skip them.

This gets things mostly working under USE_BROKEN_PAD_RESET without
threads, but a few tests still fail.

6 years agopad.c:pad_reset: check the name
Father Chrysostomos [Sun, 12 Jan 2014 01:02:32 +0000 (17:02 -0800)]
pad.c:pad_reset: check the name

This code was sufficiently out-of-date to trip assertions in miniperl,
breaking the build (with -Accflags=-DUSE_BROKEN_PAD_RESET).

We can’t SvPADTMP_off on just anything, because it asserts that the
thing is !SvPADMY.

So check that it has no name first.  A pad entry without a name is an
operator target (or an unallocated entry).

The build is still broken, but it gets a bit further.

6 years agoAlphabetise perldiag
Father Chrysostomos [Thu, 28 Aug 2014 19:41:05 +0000 (12:41 -0700)]
Alphabetise perldiag

Earlier in perldiag, it says:

    The messages are in alphabetical order, without regard to upper or

6 years agoperldiag grammar
Father Chrysostomos [Thu, 28 Aug 2014 19:40:03 +0000 (12:40 -0700)]
perldiag grammar

1cd88304d70 fixed one grammatical error in this sentence.  This fixes
the other.

6 years agot/porting/readme.t: Get list from MANIFEST
Father Chrysostomos [Thu, 28 Aug 2014 17:52:22 +0000 (10:52 -0700)]
t/porting/readme.t: Get list from MANIFEST

Otherwise we end up failing because of editor or patch droppings
in Porting/.  The test was already skipping things ending with ~
but that was not sufficient.

6 years ago[Merge] Fix crashes with lexical subs
Father Chrysostomos [Thu, 28 Aug 2014 17:41:03 +0000 (10:41 -0700)]
[Merge] Fix crashes with lexical subs

Various crashing resulting from code not taking CvGV(lexsub)==NULL
into account.

6 years agoFix crash with lex subs under -d
Father Chrysostomos [Thu, 28 Aug 2014 17:28:28 +0000 (10:28 -0700)]
Fix crash with lex subs under -d