[perl #115254] Fix flag check on scope exit

$ ./perl -Ilib -e '{ my $x = 3; Internals::SvREADONLY $x, 1; () }'
$ ./perl -Ilib -e '{ my $x = ${qr//}; Internals::SvREADONLY $x, 1; () }'
Modification of a read-only value attempted at -e line 1.

The latter causes $x to be marked FAKE.  At the time this code was
introduced in scope.c, read-only+fake meant cow, so the !fake check
was necessary.  (That said, it has always behaved incorrectly for glob
copies that are also marked fake.)

More Peek.t fix-ups

Implement the bipolar read-only system

This fixes bugs related to Hash::Util::unlock accidentally unlocking
internal scalars (e.g., that returned by undef()) and allowing them to
be modified.

Internal read-only values are now marked by two flags, the regular
read-only flag, and the new ‘protected’ flag.

Before this SvREADONLY served two purposes:

1) The code would use it to protect things that must not be modi-
   fied, ever (except when the core sees fit to do so).
2) Hash::Util and everybody else would use it to make this unmodifia-
   ble temporarily when requested by the user.

Internals::SvREADONLY serves the latter purpose and only flips the
read-only flag, so things that need to stay read-only will remain so,
because of the ‘other’ read-only flag, that CPAN doesn’t know about.
(If you are a CPAN author, do not read this.)

Add SVf_PROTECT

Peek.t fix-up

Renumber SVf_IsCOW

and free up a bit.

Revert "Revert "infnan: more tests.""

This reverts commit af9a438112f49d9f3c6920ffd2c7dc4dd0a24d8d (q.v.)
as planned.

[perl #121983] #error with ro ops and no threads

PERL_DEBUG_READONLY_OPS is designed to catch modifications of op trees
at run time, to make sure that perl is doing things safely under
threads.  (Op trees are shared between threads.)

On non-threaded perls, ops are modified regularly, which is perfectly
safe, so PERL_DEBUG_READONLY_OPS does not make any sense, and is guar-
anteed to crash.

Forcing a compilation error with cpp directives makes it obvious that
it is not intended for this PERL_DEBUG_READONLY_OPS mode to work with-
out USE_ITHREADS.

[perl #122799] Always turn off CvNAMED in cvgv-set

Instead of turning off the flag only when we need to turn it off
(when there is a hek, which is the only time it should be on), just
turn it off unconditionally.

This gets Scope::Upper working once more.

While it is arguably the module’s fault, it’s still a good idea to
make cvgv_set robust.  CvNAMED should never be on after calling it,
regardless of the previous state of the CV.

Perl_scalarvoid remove duplicate SvNV call

more factoring out in S_utf8_mg_pos_cache_update

Flip the inputs to keep_earlier, this way one 1 copy of the keep_earlier
three way square exists in machine code. Removing the float casts would
make the calculation more efficient since truncating precsion asm op dont
have to happen after every calculation but I'm not sure about side effects.
Float casts are from commit ab455f6077 with no background provided.

factor out more in S_utf8_mg_pos_cache_update

factor out FP heavy code in utf8_mg_pos_cache_update

Visual C 2003 and 6 couldn't factor this FP math heavy expression out
with -O1, and it appeared twice in machine code, so do it by hand.

Prepare Module::CoreList for 5.21.5, expected on 2014-10-20

Module::CoreList 5.20140920 is now on CPAN

Regen B::Op_private for 5.21.5

Bump version to 5.21.5

Create new perldelta for 5.21.5

Add epigraph for 5.12.4

Perl 5.21.4 today

Finalize perldelta

Update Module::CoreList for 5.21.4

Blead is in sync with Data::Dumper 2.154

Disable libquadmath in configure.com.

It can't reasonably be a configuration option since there is no
special library needed (or available) to do 128-bit doubles.

Also, we can't set the default of a configure variable to "n" unless
it's the default answer to a question we ask; the compiler
understands "#define" and "#undef" but not "#n".

Revert "infnan: more tests."

This reverts commit 5d288d736c2758c27a5943647f4a524f0e93a642.

So that Steve Hay can enjoy a fail-free VC6 build for 5.21.4.

After the release, let's revert this revert, and return to
punishing ourselves with VC6.

$VERSION bump cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm

Picked up by .\perl Porting\cmpVERSION.pl -d --tag v5.21.3 but not by
.\perl Porting\cmpVERSION.pl -d -x --tag v5.21.3 or porting/cmp_version.t.

perldelta: quadmath

perldelta - Remove boilerplate, fill in modules changes and other minor edits

And a known_pod_issues.dat regen since I'm giving up for now at least on
trying to get the perldiag link to "\N{} in inverted character class or as
a range end-point is restricted to one character in regex; marked by
S<<-- HERE> in m/%s/" working.

Update release announcement template

quadmath: add test actually exercising this fancy precision.

Editorializing quadmath entry.

perllocale: Nit

perldelta: Grammar nit

The noun 'effect' was meant here.

perldiag: Reunite ‘perhaps you forgot to load’

to the other part of the message.  diagnostics.pm won’t find it otherwise:

$ perl -Mdiagnostics -we '"foo"->bar'
Can't locate object method "bar" via package "foo" (perhaps you forgot to load
"foo"?) at -e line 1 (#1)
Uncaught exception from user code:
Can't locate object method "bar" via package "foo" (perhaps you forgot to load "foo"?) at -e line 1.

Now we have this:

Can't locate object method "bar" via package "foo" (perhaps you forgot to load
"foo"?) at -e line 1 (#1)
    (F) You called a method on a class that did not exist, and the method
    could not be found in UNIVERSAL.  This often means that a method
    requires a package that has not been loaded.

Uncaught exception from user code:
Can't locate object method "bar" via package "foo" (perhaps you forgot to load "foo"?) at -e line 1.

B.xs: fix syntax err in PERL_VERSION < 17

The blead version of B.xs obviously hasn't been able to be compiled
on old perls for a while. This fixes one such syntax error, blind.

regen/op_private: tidy up rv2cv entry

Remove some temporary comments, and merge the two places where rv2cv flags
are defined.

move OPpTARGET_MY comments from opcode.pl

There is a section in regen/opcode.pl explaining when its okay to
use the T flag / OPpTARGET_MY define.

Move that text to regen/op_private, at the spot where it defines
OPpTARGET_MY. It's more likely to be seen there.

regen/op_private: update TARGLEX comments.

Explain a bit more about how OPpTARGET_MY is used, and remove a temporary
comment I make about inconsistencies in which ops can use the flag as
defined by the old Concise.pm and regen/opcodes T flags.

pp.h: remove spurious comment about OPpTARGET_MY

OPpTARGET_MY is unrelated to MAXARG as far as I can tell.

regen/op_private: fix assorted typos

comment pp_foo aliases in pp*.c

Where pp_foo() also handles OP_BAR, add a comment above the function
mentioning that it also does pp_bar.

This means that "grep pp_bar pp*.c" quickly locates the file/function that
handles OP_BAR.

remove vestigal threadsv/threadsv_named

the threadsv op and the PL_threadsv_names var were part of the 5.005
threads model, long since removed. Remove some remaining references to
them.

B.xs: add class names to method branch comments

A single function in B.xs handles the method calls for a whole bunch of
methods from a whole bunch of subclasses (e.g. B::OP, B::COP etc).

Extend the comment next to each switch case to include the full method
name: e.g. "B::COP::stash" rather than just "stash".

This makes things slightly less confusing.

fix B::PADOP->sv and ->gv

PADOP structs, which are only used on threaded builds, have an op_padix
field rather than an op_sv or op_gv.

The B::PADOP sv and gv methods would do PL_curpad[o->op_padix] to
look up the value, That is completely wrong. PL_curpad is the pad of the
caller of B::PADOP::sv/gv, not the pad of the sub containing the PADOP op.

This fault appears to to go back to 1999, when PADOP was first added.
It's probably never been spotted because:

a) PADOP only ever used for creating GV ops on threaded builds (so
->sv is probably never called),

b) it has a check where if the thing it retrieved from the pad isn't a GV,
it returns NULL instead.

Fix this by always returning NULL. This is comparable with B::SVOP_>sv,
which always returns op_sv, which on threaded builds always happens to be
NULL. Note that B::SVOP->sv expects the caller to retrieve op_targ and do
the pad lookup.

NB just to avoid confusion (I was certainly confused), these ops are
implemented with the types shown:

    unthreaded:

        const: B::SVOP
        gvsv:  B::SVOP

    threaded:

        const: B::SVOP
        gvsv:  B::PADOP

Document customisation introduced by 991b13da7

darwin can have libfoo.0.dylib, as opposed to libfoo.dylib.0

Configure was changed similarly in d98292cc

cpan module; patch submitted upstream:
https://rt.cpan.org/Ticket/Display.html?id=98766
and has been applied.

quadmath NVs cannot be cast to double etc.

quadmath strtoflt128 accepts false infinities.

quadmath doesn't do locale radixes.

quadmath and gconvert do not mix.

quadmath has expq instead of expl.

quadmath helpers export list.

quadmath Q format specifier and gcc -Wformat do not mix.

quadmath NV formatted I/O.

quadmath INSTALL.

quadmath_snprintf formats.

quadmath interfaces and constants

quadmath needs gcc, at least 4.6.

quadmath __float128 as NVTYPE.

quadmath __float128 for longdblkind.

Configure -Dusequadmath.

Configure for <quadmath.h>

Mention more C99 math interfaces.

perldelta: mention the op_private work

add $VERSION to B::Op_private

Since this is an auto-generated .pm file, set $VERSION to the perl
version (i.e. 5.mmmnnn), the same trick that Config.pm does.

Since regen scripts are usually executed by a different perl, and the
current perl may not be built yet, don't rely on $]; instead get the
info from patchlevel.h. Add a new sub for this purpose, perl_version(),
to regen/regen_lib.pl. (I feel that such a routine should already exist
somewhere, but I couldn't find such a beastie.)

perldelta for 1645b83c5c

perldelta - Add links for rt.perl.org bugs

perldelta - Data::Dumper has been upgraded

Bump all Math::BigInt $VERSIONs as per 945313f0ae following a0732aaa4b

And add a perldelta note.

Teach diag.t about Perl_mess

Every instance of Perl_mess(aTHX_ "..." ...) is used for an error
message.

gv.c: For ‘Global symbol’ msg, don’t check utf8ness twice

We already take care of possible utf8ness in the format string.  There
is no need to turn on the flag afterwards.  This double utf8 check has
been present since ecad31f018.

perldelta for d8c6310a4f0/#121638

perldelta for 343573e55 (the 25-year-old bug)

perldelta for ff2a62e0/#15667

Update perldiag to reflect ‘Global symbol’ change

Why didn’t t/porting/diag.t catch this?

remove duplicate SvNV calls in pp_enteriter

commit a2309040b8 added duplicate SvNV calls, remove them. Reorder the
"SvUV_nomg(sv) > (UV)IV_MAX || SvNV_nomg(sv) > (NV)UV_MAX" so the var
will be stored in a FP CPU reg for all comparisons, and not saved/fetched
to/from mem across the SvUV func call. Due to complexity, I am not
unrolling and fusing SvNV_nomg and SvOK.

VC 2003 32b size of func in machine code bytes before 0x4d3 after 0x4a2

[perl #121638] Make ‘Global symbol’ message more newbie-friendly

by suggesting the declaration of a lexical variable, but without
removing the ‘Global symbol’ part, since much code no doubt depends
on its presence.

Consistent indentation in AUTHORS

Rename S_adjust_stack_on_leave

It now does more than that, so use a name that describes when it is
called, rather than what it does.

factor out TAINT_NOT into S_adjust_stack_on_leave

All callers of S_adjust_stack_on_leave had TAINT_NOT before the call to
S_adjust_stack_on_leave. Factor it into the func to make the callers
smallers machine code wise. More things can be factored out into
adjust_stack_on_leave from its callers, but this particular change is very
easy.

Parenthesize & and | a bit.

infnan: more tests.

++, math, compare.

Do not fall into Gconvert or F0convert on inf/nan.

Though make F0convert to do the right thing, S_infnan_2pv, on infnan.

(found by bulk88)

infnan: ++ or -- on infnan doesn't lose precision.

(found by bulk88)

Increment $VERSION in Math::BigInt.

replace uses of Test.pm in dist/ distributions (IO, Math-BigInt)

toke.c: Fix bad read in S_scan_heredoc

If the first character of a source line matched the first character
of the here-doc terminator, then we did a memEQ with the length of
the terminator, without regard to the length of the line, which
could be shorter.

This bug goes all the way back to perl 3.000, which introduced here-
docs.  Line 1802 of toke.c in perl 3.000 is:

    if (*s == term && bcmp(s,tokenbuf,len) == 0) {

and contains the same bug.

So this bug is twenty-five years old.

Dump GPFLAGS

Skip no-common-vars optimisation for aliases

The ‘no common vars’ optimisation allows perl to copy the values
straight from the rhs to the lhs in a list assignment.

In ($a,$b) = ($c,$d), that means $c gets assigned to $a,
then $d to $b.

If the same variable occurs on both sides of the expression
(($a,$b)=($b,$a)), then it is necessary to make temporary copies of
the variables on the rhs, before assigning them to the left.

If some variables have been aliased to others, then the common vars
detection can be fooled:

    *x = *y;
    $x = 3;
    ($x, $z) = (1, $y);

That assigns 1 to $x, and then goes to assign $y to $z, but $y is
the same as $x, which has just been clobbered.  So 1 gets assigned
instead of 3.

This commit solves this by recording in each typeglob whether the sca-
lar is an alias of a scalar from elsewhere.

If such a glob is encountered, then the entire expression is ‘tainted’
such that list assignments will assume there might be common vars.

gv.h: Add a gp_flags field

This is for flags that have to be shared with all GVs that have the
same GP pointer.

perlsyn: Remove reference to potential Unicode op

See thread beginning at
http://nntp.perl.org/group/perl.perl5.porters/219796

POSIX math: AIX 7 has nexttoward

POSIX math: the pa-risc gcc missing tgamma and nexttoward

POSIX math: Tru64 has rint()

in Perl_sv_copypv_flags move mg_get call to callee

Perl_sv_2pv_flags already has logic to check for and call mg_get, which
can't be removed due to API, so dont do it in the caller. This makes
Perl_sv_copypv_flags smaller/faster by removing the branch.

Unused return value.

Conditionally unused variable.

Comment detypo.

Add dVAR:s for -DPERL_GLOBAL_STRUCT.

Make certain we have the top-level "lib" in @INC.