Compatibility fix for perl 5.21.6

Given

    my Int ($x, ($y, $z), $t) = ("x", "y");

In 5.20.1 it parses as:

6     <;> nextstate(main 2 -e:1) v:{ ->7
e     <2> aassign[t5] vKS ->f
-        <1> ex-list lKP ->a
7           <0> pushmark s ->8
8           <$> const(PV "x") s ->9
9           <$> const(PV "y") s ->a
-        <1> ex-list lKPRM* ->e
a           <0> padrange[$x:2,3] lRM/LVINTRO,1 ->b
-           <0> padsv[$x:2,3] lRM*/LVINTRO ->b
c           <@> list lKPRM* ->d
b              <0> padrange[$y:2,3; $z:2,3] lRM/LVINTRO,2 ->c
-              <0> padsv[$y:2,3] lRM*/LVINTRO ->-
-              <0> padsv[$z:2,3] lRM*/LVINTRO ->c
d           <0> padsv[$t:2,3] lRM*/LVINTRO ->e

In 5.21.6-to-be:

6     <;> nextstate(main 3 -e:1) v:{ ->7
b     <2> aassign[t5] vKS ->c
-        <1> ex-list lKP ->a
7           <0> pushmark s ->8
8           <$> const[PV "x"] s ->9
9           <$> const[PV "y"] s ->a
-        <1> ex-list lKPRM* ->b
a           <0> padrange[$x:3,4; $y:3,4; $z:3,4; $t:3,4] lRM/LVINTRO,4 ->b
-           <0> padsv[$x:3,4] lRM*/LVINTRO ->-
-           <1> ex-list lKPRM* ->-
-              <0> ex-pushmark sRM*/LVINTRO ->-
-              <0> padsv[$y:3,4] lRM*/LVINTRO ->-
-              <0> padsv[$z:3,4] lRM*/LVINTRO ->-
-           <0> padsv[$t:3,4] lRM*/LVINTRO ->-

The inner list is optimised away, but still visible in the op tree.

Also, I noticed that this comment in Types.xs is wrong:

   /* In a padrange sequence, either all lexicals are typed, or none are.
    * Thus we can stop at the first padsv op. However, note that these
    * lexicals can need to call different methods in different packages. */

$ perl5.20.1 -MO=Concise -e '(my main $a, my $b, my main $c) = ()'
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
5     <2> aassign[t4] vKS ->6
-        <1> ex-list lK ->4
3           <0> pushmark s ->4
-           <0> stub lP ->-
-        <1> ex-list lKPRM* ->5
4           <0> padrange[$a:1,2; $b:1,2; $c:1,2] lRM/LVINTRO,3 ->5
-           <0> padsv[$a:1,2] lRM*/LVINTRO ->-
-           <0> padsv[$b:1,2] lRM*/LVINTRO ->-
-           <0> padsv[$c:1,2] lRM*/LVINTRO ->-
-e syntax OK

I don’t know whether that has any bearing on the correctness of the code,
but I suspect there is a bug.

The attached patch gets all the tests passing, but I don’t know whether I
caught everything. Note that there are cases where the sibling of the
padrange is actually a null op :

$ ./perl -ILib  -MO=Concise -e '@a[my $x, my $y, my $z]'
7  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
6     <@> aslice vK ->7
3        <0> padrange[$x:1,2; $y:1,2; $z:1,2] l/LVINTRO,3 ->4
-        <1> ex-list lK ->4
-           <0> ex-pushmark s ->-
-           <0> padsv[$x:1,2] lM/LVINTRO ->-
-           <0> padsv[$y:1,2] lM/LVINTRO ->-
-           <0> padsv[$z:1,2] lM/LVINTRO ->-
5        <1> rv2av[t2] sKR/1 ->6
4           <#> gv[*a] s ->5
-e syntax OK

This fixes RT #100202.

This is 0.13

Fix a wrong copypasta in Changes

Bump copyright year

Warn about the global slowdown

Add support for PERL_OP_PARENT

This was introduced in perl 5.21.2.

Do nothing after that the thread local storage has been freed

This de facto disables the pragma for code eval'd during global
destruction of a thread or a pseudo-fork.

Nullify thread local storage entries when they are freed

This makes possible problems easier to reproduce.

Properly decrement the refcount of the default method name at thread end

Don't cleanup thread local storage before END blocks are executed

reap.h is no longer necessary.

Use run_perl() from VPIT::TestHelpers

This updates VPIT::TestHelpers to 4fb18792.

Renumber test files

To make place for the upcoming addition of non scalar types.

Remove a now useless SKIP directive

The block was skipped for perl 5.8.2 and below, but we now require 5.8.3.

Remove profanity

Add support for padrange ops, introduced in perl 5.17.6

This fixes RT #86112.

Rename <lt_op_info>, lt_op_map to <lt_op_padxv_info>, lt_op_padxv_map

As we'll need a new pointer table soon.

Add more basic tests

Move the run-time initializer call into a new lt_op_info_call() helper

Rename lt_op_info.old_pp_padsv to .old_pp

For it will be soon allowed to be something else.

Make Perl version numbers more readable

Remove obsolete kwalitee workarounds

No tabs please

POD verbatim paragraphs should fit into a terminal

Make sure the POD headings are linkable

Replace check functions in a thread-safe way

Stop bundling author tests

Update the bug tracker URL in META after the rt.perl.org upgrade

Get rid of t/99-kwalitee.t

New versions started to throw warnings if specific environment variables
are not set. This may be appropriate for dist manager users, but not really
for the rest of the world.

Since kwalitee metrics are either obvious or useless, there's no big loss
in removing this test anyway.

Update VPIT::TestHelpers to e8344578

Preserve the PATH environment variable when running a sub-perl on cygwin

Strip spaces at the end of lines

Threads tests may not be able to spawn all the threads

To work around this :
- move all the threads boilerplate to a new helper test module ;
- capture the warnings/errors that threads->create may throw and reprint
them properly as diagnostics ;
- do not hardcode the plan and use 'no_plan' instead.

Port module loading in magic tests to VPIT::TestHelpers

Update author tests, and add a POD spelling test

Also make sure that the kwalitee test unlinks its byproducts.

Kill Debian_CPANTS.txt suffixes as well

Quote version numbers in Makefile.PL

Add BUILD_REQUIRES to WriteMakefile()

Simplify Config loading in Makefile.PL

Also add it to configure_requires and build_requires.

Correct a skip reason in t/18-hints.t

Copypasta is baaad.

Require Module::ExtractUse 0.24 for the Kwalitee test

Silence some "unused result" compiler warnings

Skip the hint entry vivification test on 5.11

It fails the same way even when indirect is not loaded.

This is 0.12

Encode the README file in UTF-8

Add META.json

Ignore MYMETA.json

Replace $] by "$]"

An old bug could cause $] to be initialized to a wrong decimal value.
Since its stringified value was always right, we use it instead.

Occurences of $^V were also replaced by $].

The last argument to hv_fetch is the lvalue flag, not the hash

This could have caused entry vivifications in %^H on 5.8.

This is 0.11

Minor POD tweak

Always skip seen ops in our peep replacement

Sometimes, there are loops in the next chain as e.g. with infinite loops
like "for (;;) { ... }". We can't reuse the op_opt member because it's
almost always set after the first pass.

This fixes RT #66146.

This is 0.10

Switch to qw<>

Fix building on Windows

Require perl 5.8.3

5.8.2 has a buggy peephole optimizer that may cause test failures.

Skip threads tests unless perl version is 5.13.4 or greater

There was a long standing bug in the handling of GV <-> CV double linkage
that could (and explicitely did with a poisonous perl) cause segfaults at
thread destruction. It got fixed by Dave in commit 803f274 which went in
5.13.3, but the fix was amended for 5.13.4 in commit 09aad8f. Since it's
not really fair for the user to not be able to install the module because
of this, we skip the threads tests unless perl is at least 5.13.4.

Force linking against the perl dll when using gcc 3.4 on Windows

When a Windows perl links an XS shared object to an import library using
gcc/g++ version 3.4.x, strange breakage happens at load time because the
mutex-related symbols seems not to be reachable. This situation happens
especially for AS perl and the default compiler suite it installs.

We fix this by forcing g++ to link against the dll instead, which should
be in the same directory as the perl executable (at least for AS perl).

This change is the integration of commit 14f8af2 from Variable::Magic's
repository.

Introduce LT_FORKSAFE

Only load Carp on error

Fix test failures with Strawberry Perl 5.12

perl crashes because the SystemRoot environment variable is missing.

Use TARG in lt_pp_padsv

This is how Perl_pp_padsv gets the SV.

Bump copyright year

Remove the #ifdef wrapping the mutex locks/unlocks

Only declare dMY_CXT when really needed

Get rid of CALL_FPTR

Set the ppaddr member of padsv ops at peep time

There was a race in the "PL_ppaddr[OP_PADSV] save/restore dance" in that
perl might be compiling ops inside and outside the scope of the pragma at
the same time. We solve this by setting the op_ppaddr member of padsv ops
to a_pp_deref during the peephole optimization phase.

Use cop_hints_fetch_pvn() whenever possible

refcounted_he_fetch() never was public, but in recent 5.13.x versions it is
no longer linkable.

Use the new CLONE_PARAMS API with perl 5.13.2

Clarify our policy towards C++ compilers

Update ptable.h

Ignore MYMETA.yml

Get rid of ENTERn/LEAVEn

They are no longer needed since 420f91f3c4f8aa318ede84928eb7c671921500ea.

Identify the require scope by the outmost cv outside of the current one

Fix the thread destructor trick for 5.13.1

Require perl 5.8.1

{ENTER,LEAVE}_with_name are no longer needed starting perl 5.11.4

This is 0.09

Bump copyright year

Trailing whitespace

Do not mix declarations and code

CLONE doesn't need to return anything, so make it use a PPCODE section

Add the missing return type to lt_setup()

Rename the pp_padsv member to old_pp_padsv

As pp_padsv is a compatibility macro from the perl core headers.

Update ptable.h

Also call FREETMPS/LEAVE when skipping a typed declaration

This fixes unbalanced scopes that were uncovered by the new named scope
feature in blead

Fix for {ENTER,LEAVE}_with_name

Re-indent WriteMakefile() arguments

Build the $name and the main $file from $dist

Put prerequisites in their own separate hash

Give an explicit value to dynamic_config

Only look up to the first require scope for the require propagation workaround

Kwalitee test overhaul

Reset the callbacks when the root interpreter is destroyed

This fix segfaults when the pragma is first loaded from inside a thread.
The global state for the root interpreter is also freed, so it won't leak
anymore.

Only remap the hint through the pointer table for threaded perls

Also use the hint pointer as the unique identifier for the %^H entry, so
that the pragma no longer leaks when you specify the same hook (i.e. a
reference to the same sub) in two different require scopes.

This is 0.08

Store the default method name in the thread local storage area

Because we actually write to it in threads (its refcount is incremented).

Increment the refcount after cloning

Require Variable::Magic 0.35 in t/23-magic-uvar.t

So that perl 5.9.5 isn't considered as having uvar magic anymore.

Correct the refcount of the source SVs that aren't actually stored

Decide to use shared op info according to MULTIPLICITY

And not LT_MULTIPLICITY, since it can be disabled at configure time.