17 months agoTest for namedprotos: @_ should be a valid slurpy param steffen/signatures
Steffen Mueller [Sat, 20 Oct 2012 15:27:43 +0000]
Test for namedprotos: @_ should be a valid slurpy param

Using @_ as a slurpy arg should be legal. But in this behaviour, it
should have copy, not alias semantics.

17 months agoTest for namedprotos: @_ in string eval
Steffen Mueller [Sat, 20 Oct 2012 15:26:43 +0000]
Test for namedprotos: @_ in string eval

Using @_ inside a string eval inside a sub with a named proto should
only die at run time.

18 months agoMade bad slurpy args fatal (fixed TODO test)
Peter Martini [Thu, 18 Oct 2012 03:05:17 +0000]
Made bad slurpy args fatal (fixed TODO test)
Added the error to perldiag.pod
Note that the check happens very late, so a malformed
signature isn't even checked - it gets stored in CvPROTO,
is warned on if the warning for illegal proto are set,
and will die only when the sub is called (traditional proto
behavior).

18 months agoReplace false with FALSE, true with TRUE
Peter Martini [Thu, 18 Oct 2012 02:23:12 +0000]
Replace false with FALSE, true with TRUE

18 months agoThe last element in the proto is never stale.
Peter Martini [Thu, 18 Oct 2012 00:13:19 +0000]
The last element in the proto is never stale.
Moved the code to turn it off to an unconditional location.
Prior to this move, an unused greedy parameter would still
be stale, and scope would fail an assertion.

18 months agoCleaning up a TODO comment
Peter Martini [Wed, 17 Oct 2012 23:53:21 +0000]
Cleaning up a TODO comment

18 months agoNAMECNT on the PADLIST only works if there is one
Peter Martini [Wed, 17 Oct 2012 23:52:55 +0000]
NAMECNT on the PADLIST only works if there is one

18 months agoAdded entries for the 3 possible error messages
Peter Martini [Wed, 17 Oct 2012 23:40:06 +0000]
Added entries for the 3 possible error messages
due to using @_, or an implied @_, in a sub with a signature

18 months agoAdded an exception for namedproto: use feature
Peter Martini [Wed, 17 Oct 2012 22:22:36 +0000]
Added an exception for namedproto: use feature

18 months agoUpdate perly.y digest
Peter Martini [Wed, 17 Oct 2012 22:17:03 +0000]
Update perly.y digest

18 months agoCvPADLIST can be NULL, which would segv NAMECNT
Peter Martini [Tue, 16 Oct 2012 17:09:13 +0000]
CvPADLIST can be NULL, which would segv NAMECNT
I'm not sure why it's NULL - will have to revisit

18 months agoDie if a sub with a sig would use an inherited @_
Peter Martini [Tue, 16 Oct 2012 17:04:52 +0000]
Die if a sub with a sig would use an inherited @_
(Not sure if this is overkill)

18 months agoReduce redundant code
Peter Martini [Tue, 16 Oct 2012 17:04:21 +0000]
Reduce redundant code

18 months agoNAMECNT should be cloned in cv_clone,
Peter Martini [Tue, 16 Oct 2012 17:01:03 +0000]
NAMECNT should be cloned in cv_clone,
otherwise closures won't have the pad init properly

18 months agoBan goto'ing into a sub with a signature.
Peter Martini [Thu, 11 Oct 2012 09:25:21 +0000]
Ban goto'ing into a sub with a signature.
Not sure how to test it, since goto can't be used in an eval.

18 months agoIncorrect tests - &banned5 is using inherited @_,
Peter Martini [Thu, 11 Oct 2012 09:09:37 +0000]
Incorrect tests - &banned5 is using inherited @_,
needs to be &banned5()

18 months agoChanged the error message from Cannot to Can't
Peter Martini [Thu, 11 Oct 2012 09:07:18 +0000]
Changed the error message from Cannot to Can't
Also, removed the \n, as it prevented line display

18 months agoIts not necessary to explicitly undef in entersub
Peter Martini [Wed, 10 Oct 2012 03:43:46 +0000]
Its not necessary to explicitly undef in entersub

18 months agoRestore the original check for doing an arg list
Peter Martini [Wed, 10 Oct 2012 03:36:02 +0000]
Restore the original check for doing an arg list
the modified check was vestigial from testing.

18 months agoAdded proto attribute awareness
Peter Martini [Tue, 9 Oct 2012 18:23:23 +0000]
Added proto attribute awareness

18 months agoNo need to pass bad_proto to scan_named_proto
Peter Martini [Tue, 9 Oct 2012 06:43:45 +0000]
No need to pass bad_proto to scan_named_proto

18 months agoTeaching B::Deparse about the new signatures.
Peter Martini [Tue, 9 Oct 2012 06:17:14 +0000]
Teaching B::Deparse about the new signatures.

18 months agoRemove an outdated comment
Peter Martini [Mon, 8 Oct 2012 06:31:41 +0000]
Remove an outdated comment

18 months agoAdd support for named hashes.
Peter Martini [Mon, 8 Oct 2012 06:27:41 +0000]
Add support for named hashes.
Removed TODO from hash related tests.
Still need to validate that slurpies come last.

18 months agoAdd support for named arrays.
Peter Martini [Mon, 8 Oct 2012 06:07:57 +0000]
Add support for named arrays.
Remove the TODO from the tests.
This still doesn't enforce the restriction that it must be last.

18 months agoThe TODO for mismatched parameters is already done
Peter Martini [Mon, 8 Oct 2012 05:52:53 +0000]
The TODO for mismatched parameters is already done

18 months agoPADSTALE must be off, since its always in scope
Peter Martini [Mon, 1 Oct 2012 05:15:35 +0000]
PADSTALE must be off, since its always in scope

18 months agoAdded tests for aliasing @_
Peter Martini [Fri, 28 Sep 2012 04:09:54 +0000]
Added tests for aliasing @_

18 months agoAdded a new kind of magic, poison, so @_ is deadly
Peter Martini [Fri, 28 Sep 2012 03:51:47 +0000]
Added a new kind of magic, poison, so @_ is deadly
inside of a sub declared with a signature

18 months agoThe warning won't have a space unless signatures
Peter Martini [Fri, 28 Sep 2012 03:13:54 +0000]
The warning won't have a space unless signatures
are in effect

18 months agoMake the literal '@_' illegal in subs with sigs
Peter Martini [Thu, 27 Sep 2012 19:39:50 +0000]
Make the literal '@_' illegal in subs with sigs

18 months agoAdded a private function is_sub_with_sig
Peter Martini [Wed, 26 Sep 2012 21:26:19 +0000]
Added a private function is_sub_with_sig
This is intended to be used only at compile time,
to leave room for an optimization to turn
sub foo { my ($bar, $baz) = @_; } into
sub foo($bar,$baz){ }
in a check routine run after compilation, and the
two have different syntax.

18 months agoClearing the pad between calls is no longer a TODO
Peter Martini [Wed, 26 Sep 2012 15:03:38 +0000]
Clearing the pad between calls is no longer a TODO

18 months agoMove the new behavior under a feature
Peter Martini [Wed, 26 Sep 2012 15:02:39 +0000]
Move the new behavior under a feature
use feature 'experimental::sub_signature';

18 months agoParameters will be writable copies
Peter Martini [Wed, 26 Sep 2012 14:32:38 +0000]
Parameters will be writable copies

18 months agoNeed to explicitly clone the name count
Peter Martini [Sun, 23 Sep 2012 06:41:56 +0000]
Need to explicitly clone the name count
for subroutine signatures

18 months agoAdd support for the proto() attribute
Peter Martini [Wed, 19 Sep 2012 01:37:00 +0000]
Add support for the proto() attribute
For backwards compatibility

18 months agoRemove redundant SvPADMY_on
Peter Martini [Mon, 17 Sep 2012 07:22:25 +0000]
Remove redundant SvPADMY_on

18 months agoCreate lexicals in pp_entersub
Peter Martini [Mon, 17 Sep 2012 07:18:17 +0000]
Create lexicals in pp_entersub
Inlines the important bits of SAVECLEARSV
the only piece of which is missing is turning
off PADSTALE - I don't know if this can get set?

18 months agomore tests
Jesse Luehrs [Sat, 15 Sep 2012 22:22:29 +0000]
more tests

18 months agofix test counts
Jesse Luehrs [Sat, 15 Sep 2012 22:07:47 +0000]
fix test counts

18 months agomore tests
Jesse Luehrs [Sat, 15 Sep 2012 00:51:40 +0000]
more tests

18 months agoadd a couple more tests
Jesse Luehrs [Thu, 13 Sep 2012 04:44:38 +0000]
add a couple more tests

18 months agofix up the namedproto test
Jesse Luehrs [Thu, 13 Sep 2012 04:22:07 +0000]
fix up the namedproto test

18 months agoEnabled named parameters in entersub Updated t/comp/proto.t to cover the now legal...
Peter Martini [Sat, 8 Sep 2012 04:23:10 +0000]
Enabled named parameters in entersub Updated t/comp/proto.t to cover the now legal format Also added t/comp/namedproto.t to test design decisions, and record TODOs

18 months agoAdded scan_proto, and manually merged perly.act
Peter Martini [Wed, 26 Sep 2012 06:26:17 +0000]
Added scan_proto, and manually merged perly.act

18 months agoMove the prototype related code into its own func This will also be called by perly...
Peter Martini [Sat, 8 Sep 2012 03:40:03 +0000]
Move the prototype related code into its own func This will also be called by perly, but is not meant for public use The scan_proto func is called from within toke as a lookahead to warn on bad prototypes, and will be called from perly directly when the state is set up properly for it to manipulate the pad.

18 months agoAdd an AV field to PADLIST to store named params
Peter Martini [Sat, 8 Sep 2012 03:37:11 +0000]
Add an AV field to PADLIST to store named params

18 months agocpan: Upgrade AutoLoader to 5.73
Steffen Mueller [Tue, 16 Oct 2012 15:27:47 +0000]
cpan: Upgrade AutoLoader to 5.73

Just syncing to CPAN release.

18 months agoUpdate HTTP-Tiny to CPAN version 0.024
Chris 'BinGOs' Williams [Tue, 16 Oct 2012 11:55:44 +0000]
Update HTTP-Tiny to CPAN version 0.024

  [DELTA]

  0.024     2012-10-09 20:44:53 America/New_York

    [ADDED]

    - SSL connections now auto-retry I/O after SSL renegotiation [Alan
      Gardner]

    [FIXED]

    - User-specified CA bundles take precedence over Mozilla::CA [Alan
      Gardner]

    [PREREQS]

    - SSL support now requires Net::SSLeay 1.49 or greater to support
      auto-retry [Mike Doherty]

    - Downgraded IO::Socket::SSL and related prereqs to 'suggests' again

  0.023     2012-09-19 09:55:46 America/New_York

    [PREREQS]

    - IO::Socket::SSL and related prereqs changed to 'required' for dev
      release to get better failure diagnostics from CPAN Testers

    [TESTING]

    - Skip live SSL testing unless IO::Socket::SSL 1.56+ installed

18 months agoSync Module-CoreList in Porting/Maintainers.pl with CPAN
Chris 'BinGOs' Williams [Tue, 16 Oct 2012 11:50:46 +0000]
Sync Module-CoreList in Porting/Maintainers.pl with CPAN

18 months agoperlδ up to 40f316a72b
Father Chrysostomos [Tue, 16 Oct 2012 06:56:33 +0000]
perlδ up to 40f316a72b

18 months agoMake PerlIO::encoding handle cows
Father Chrysostomos [Tue, 16 Oct 2012 06:06:31 +0000]
Make PerlIO::encoding handle cows

Commits 667763bdbf and e9a8753af fixed bugs involving buffer realloca-
tions during encode and decode.  But what was not taken into account
was that the COW flags could still be left on even when buffer real-
ocations were accounted for.  This could result in SvPV_set and
SvLEN_set(sv,0) being called on an SV with the COW flags still on,
so SvPVX would be treated as a key inside a shared_he, resulting in
assertion failures.

18 months agoPrune some dead code in pp.c:pp_undef
Father Chrysostomos [Tue, 16 Oct 2012 05:53:30 +0000]
Prune some dead code in pp.c:pp_undef

Since commit 6fc9266916, the if (SvFAKE) check under the SVt_PVGV case
in pp_undef has been redundant.  And PVBMs are no longer GVs.

18 months agoMake PerlIO::encoding even more resilient to moving buffers
Father Chrysostomos [Mon, 15 Oct 2012 06:09:56 +0000]
Make PerlIO::encoding even more resilient to moving buffers

Commit 667763bdbf was not good enough.

If the buffer passed to an encode method is reallocated, it may be
smaller than the size (bufsiz) stored inside the encoding layer.  So
we need to extend the buffer in that case and make sure the buffer
pointer is not pointing to freed memory.

The test as modified by this commit causes malloc errors on stderr
when I try it without the encoding.xs changes.

18 months agoBump $Win32CORE::VERSION following commit 35f601d964
Steve Hay [Mon, 15 Oct 2012 07:35:59 +0000]
Bump $Win32CORE::VERSION following commit 35f601d964

18 months agohave Win32CORE use ALIAS/XSANY
Daniel Dragan [Tue, 9 Oct 2012 01:00:06 +0000]
have Win32CORE use ALIAS/XSANY

Using XSANY in addition to a struct of strings, saved 650 bytes (.rdata
and .text combined, 32bit/MS VC2K3/O1) from the previous implementation of
Win32CORE. Instead of encoding pointers or relative pointer sized offsets
to string literals, use unsigned chars. Instead of creating new XSUB C
function stubs, one per forwarded sub, use the ALIAS/XSANY feature and
have only 1 XSUB which has many names. If a length aware version of newXS
is ever added to perl, the sub names's lengths already are available. See
also commit eff5b9d539e for something similar to this commit.

18 months agoregcomp.c: Don't set /i in start class unless /l
Karl Williamson [Sun, 14 Oct 2012 00:17:11 +0000]
regcomp.c: Don't set /i in start class unless /l

There is a deficiency in the optimizer in which it doesn't get rid of
flags that it should.  One of these is if it should match /i or not.
Currently it always (perhaps not quite, I don't know) assumes that it
should match under /i, yielding false positives and slowing things down.
But a recent commit changed the flag that tells it to do this, so that it
only gets set if /l is also specified.  There is already existing code to
work around the optimizer deficiency for /l.  This commit just moves the
/i flag handling to that existing code, so it won't get invoked unless
/l is specified.

18 months agoregexp.t: Add 'no warnings "utf8";
Karl Williamson [Sat, 13 Oct 2012 16:00:18 +0000]
regexp.t: Add 'no warnings "utf8";

This .t works fine unless there are failures that it tries to output,
and the handle hasn't been opened using utf8.  Because we aren't sure if
that operation works, just turn off warnings.

18 months agoutf8.h: Correct some values for EBCDIC
Karl Williamson [Sat, 13 Oct 2012 15:52:42 +0000]
utf8.h: Correct some values for EBCDIC

It occurred to me that EBCDIC has different maximums for the number of
bytes a character can occupy.  This moves the definition in utf8.h to
within an #ifndef EBCDIC, and adds the correct values to utfebcdic.h

18 months agoregex: White-space, comment only; no code changes
Karl Williamson [Sat, 13 Oct 2012 15:20:11 +0000]
regex: White-space, comment only; no code changes

This outdents code that just had its containing block removed, and
reflows its comments to fill 79 columns; and does some other white space
adjustments, plus a typo in a comment.

18 months agoregex: Rename macro to reflect its narrowed use
Karl Williamson [Sat, 13 Oct 2012 15:15:37 +0000]
regex: Rename macro to reflect its narrowed use

This macro is now only used under locale; its other use has now been
removed.  Change the name to reflect its only use.

18 months agoregex: Splice out no longer used array element
Karl Williamson [Sat, 13 Oct 2012 15:07:05 +0000]
regex: Splice out no longer used array element

A recent commit removed all uses of an array element in the middle of an
array.  This moves up the elements that followed it.

18 months agoregex: Remove old code that tried to handle multi-char folds
Karl Williamson [Sat, 13 Oct 2012 14:49:26 +0000]
regex: Remove old code that tried to handle multi-char folds

A recent commit has changed the algorithm used to handle multi-character
folding in bracketed character classes.  The old code is no longer
needed.

18 months agoregcomp.c: Fix-up indentaion; no code changes
Karl Williamson [Fri, 12 Oct 2012 17:42:38 +0000]
regcomp.c: Fix-up indentaion; no code changes

Indent a newly-formed block

18 months agoPATCH: [perl #89774] multi-char fold + its fold in char class
Karl Williamson [Fri, 12 Oct 2012 03:49:31 +0000]
PATCH: [perl #89774] multi-char fold + its fold in char class

The design for handling characters that fold to multiple characters when
the former are encountered in a bracketed character class is defective.
The ticket reads, "If a bracketed character class includes a character
that has a multi-char fold, and it also includes the first character of
that fold, the multi-char fold will never be matched; just the first
character of the fold.".   Thus, in the class /[\0-\xff]/i, \xDF will
never be matched, because its fold is 'ss', the first character of
which, 's', is also in the class.

The reason the design is defective is that it doesn't allow for
backtracking and trying the other options.

This commit solves this by effectively rewriting the above to be
/ (?: \xdf | [\0-\xde\xe0-\xff] ) /xi.  And so the backtracking gets
handled automatcially by the regex engine.

18 months agoregen/mk_invlists.pl: Make list for multi-fold chars
Karl Williamson [Fri, 12 Oct 2012 17:24:34 +0000]
regen/mk_invlists.pl: Make list for multi-fold chars

This causes charclass_invlists.h to have a new list of all the
characters whose fold is a sequence of more than one character.

18 months agomktables: Add table for chars with multi-char fold
Karl Williamson [Fri, 12 Oct 2012 15:10:10 +0000]
mktables: Add table for chars with multi-char fold

This will be used in a later commit

18 months agoregcomp.c: Rename a macro, fix-up comments
Karl Williamson [Sat, 13 Oct 2012 14:31:29 +0000]
regcomp.c: Rename a macro, fix-up comments

This very recently introduced macro's name could be clearer, and it can
be used in another place, and the comment concerning that is slightly
inaccurate.

18 months agoLink to 5.14.3 announcement
Dominic Hargreaves [Sat, 13 Oct 2012 10:06:48 +0000]
Link to 5.14.3 announcement

18 months agoHandle cow $_ in @INC filter
Father Chrysostomos [Sat, 13 Oct 2012 05:29:04 +0000]
Handle cow $_ in @INC filter

Setting $_ to a copy-on-write scalar in an @INC filter causes the
parser to modify every other scalar sharing the same string buffer.
It needs to be forced to a regular scalar before the parser sees it.

18 months agoAllow COW copies in aassign
Father Chrysostomos [Sat, 13 Oct 2012 04:59:47 +0000]
Allow COW copies in aassign

When the ‘no common vars’ optimisation is not active, list assignment
does not allow COW copies (unless assigning to an empty hash or
array).  It has been this way since 61e5f455dc.  The recent addition
of sv_mortalcopy_flags gives us an easy way to fix this.

A certain test in tr.t was marked TODO if not given a COW.  This test
used to pass before 61e5f455dc, but after than becaming a failing TODO
test.  It makes sense to test that we do have a COW instead of having
a conditional TODO.

18 months agoAdd references to perl5143delta
Dominic Hargreaves [Fri, 12 Oct 2012 22:42:07 +0000]
Add references to perl5143delta

18 months agoAdd the 5.14.3 perldelta
Dominic Hargreaves [Fri, 12 Oct 2012 22:39:22 +0000]
Add the 5.14.3 perldelta

18 months agoAdd 5.14.3 to perlhist
Dominic Hargreaves [Thu, 11 Oct 2012 18:56:22 +0000]
Add 5.14.3 to perlhist

18 months agoadd 5.14.3 epigraph
Dominic Hargreaves [Fri, 12 Oct 2012 21:57:16 +0000]
add 5.14.3 epigraph

18 months agoUpdate Module-CoreList Changes file
Chris 'BinGOs' Williams [Fri, 12 Oct 2012 21:24:16 +0000]
Update Module-CoreList Changes file

18 months agoAdd v5.14.3 data to Module::CoreList and bump to 2.74
Chris 'BinGOs' Williams [Fri, 12 Oct 2012 09:26:38 +0000]
Add v5.14.3 data to Module::CoreList and bump to 2.74

18 months agotoke.c: Rewrite bogus yylex comment
Father Chrysostomos [Fri, 12 Oct 2012 07:08:14 +0000]
toke.c: Rewrite bogus yylex comment

This comment has been wrong since it was first added.  What it des-
cribed was then the code at the beginning of yylex, before the main
tokenizing switch.

Since then, two parts of what it described have moved elsewhere; the
pending identifier code to S_pending_ident, and the sort $a<=>$b check
to op.c:S_simplify_sort.

18 months agoperlreapi.pod: Consistent spaces after dots
Father Chrysostomos [Fri, 12 Oct 2012 06:40:09 +0000]
perlreapi.pod: Consistent spaces after dots

18 months agoperlreapi.pod: Document RXf_MODIFIES_VARS
Father Chrysostomos [Fri, 12 Oct 2012 06:31:00 +0000]
perlreapi.pod: Document RXf_MODIFIES_VARS

18 months agoperlreapi.pod: Update RXf_SKIPWHITE section
Father Chrysostomos [Fri, 12 Oct 2012 06:27:37 +0000]
perlreapi.pod: Update RXf_SKIPWHITE section

18 months agoperlreapi.pod: Update RXf_SPLIT section
Father Chrysostomos [Fri, 12 Oct 2012 06:26:21 +0000]
perlreapi.pod: Update RXf_SPLIT section

18 months agoDisable const repl optimisation for empty pattern
Father Chrysostomos [Fri, 12 Oct 2012 05:51:44 +0000]
Disable const repl optimisation for empty pattern

s//$a/ cannot assume that the $a expression is going to return the
same value at each iteration, because the last-used pattern may con-
tain code blocks that clobber *a.

18 months agodefins.t: Suppress uninit warning
Father Chrysostomos [Fri, 12 Oct 2012 03:26:23 +0000]
defins.t: Suppress uninit warning

and make the no-warnings test pass.

18 months agoMove tests from t/op/while_readdir.t to t/op/defins.t
Brad Gilbert [Tue, 9 Oct 2012 19:24:38 +0000]
Move tests from t/op/while_readdir.t to t/op/defins.t

It turns out that some of what t/op/while_readdir.t was testing
was also tested by t/op/defins.t

18 months agoUse const repl optimisation with s///e where possible
Father Chrysostomos [Fri, 12 Oct 2012 03:22:08 +0000]
Use const repl optimisation with s///e where possible

In those cases where s///e contains a single variable or a sequence
that is folded to a const op, we can do away with substcont.

PMf_EVAL means that there was an /e.  But we don’t actually need to
check that; instead we can just examine the op tree, which we have to
do anyway.

The op tree that s//$x/e and s//"constant"/e compile down to have a
null (a do-block) containing a scope op (block with a single state-
ment, as opposed to op_leave which represents multiple statements)
containing a null followed by the constant or variable.

18 months agoperl5180delta: B::Generate is fixed
Father Chrysostomos [Fri, 12 Oct 2012 02:55:20 +0000]
perl5180delta: B::Generate is fixed

18 months ago[perl #49190] Don’t prematurely optimise s/foo/bar$baz/
Father Chrysostomos [Thu, 11 Oct 2012 21:38:31 +0000]
[perl #49190] Don’t prematurely optimise s/foo/bar$baz/

$baz could be aliased to a package variable, so we do need to recon-
catenate for every iteration of s///g.  For s/// without /g, only one
more op will be executed, so the speed difference is negligible.

The only cases we can optimise in terms of skipping the evaluation of
the ops on the rhs (by eliminating the substconst op) are s//constant/
and s//$single_variable/.  Anything more complicated causes bugs.

A recent commit made s/foo/$bar/g re-stringify $bar for each iteration
(though without having to reevaluate the ops that return $bar).  So we
no longer have to special-case match vars at compile time.

This means that s/foo/bar$baz/g will be slower (and less buggy), but
s/foo/$1/g will be faster.

This also caused an existing taint but in pp_subst to surface.  If
get-magic turns off taint on a replacement string, it should not be
considered tainted.  So the taint check on the replacement should come
*after* the stringification.  This applies to the constant replacement
optimisation.  pp_substcont was already doing this correctly.

18 months agoDon’t taint return value of s///e based on replacement
Father Chrysostomos [Fri, 12 Oct 2012 01:01:40 +0000]
Don’t taint return value of s///e based on replacement

According to the comments about how taint works above pp_subst in
pp_hot.c, the return value of s/// should not be tainted based on
the taintedness of the replacement.  That makes sense, because the
replacement does not affect how many iterations there were.  (The
return value is the number of iterations).

It only applies, however, to the cases where the ‘constant replace-
ment’ optimisation applies.

That means /e taints its return value:

$ perl5.16.0 -MDevel::Peek -Te '$_ = "abcd"; $x = s//$^X/; Dump $x'
SV = PVMG(0x822ff4) at 0x824dc0
  REFCNT = 1
  FLAGS = (pIOK)
  IV = 1
  NV = 0
  PV = 0
$ perl5.16.0 -MDevel::Peek -Te '$_ = "abcd"; $x = s//$^X/e; Dump $x'
SV = PVMG(0x823010) at 0x824dc0
  REFCNT = 1
  FLAGS = (GMG,SMG,pIOK)
  IV = 1
  NV = 0
  PV = 0
  MAGIC = 0x201940
    MG_VIRTUAL = &PL_vtbl_taint
    MG_TYPE = PERL_MAGIC_taint(t)
    MG_LEN = 1

The number pushed on to the stack was becoming tainted due to the set-
ting of PL_tainted.  PL_tainted is assigned to and the return value
explicitly tainted if appropriate shortly after the mPUSHi (which
implies sv_setiv, which taints when PL_tainted is true), so setting
PL_tainted to 0 just before the mPUSHi is safe.

18 months agoRemove PMf_MAYBE_CONST
Father Chrysostomos [Thu, 11 Oct 2012 21:05:29 +0000]
Remove PMf_MAYBE_CONST

It was added in ce862d02d but has never been used.

18 months ago[perl #49190] Stringify repl repeatedly in s///g
Father Chrysostomos [Thu, 11 Oct 2012 09:03:35 +0000]
[perl #49190] Stringify repl repeatedly in s///g

pm_runtime in op.c examines the rhs of s/// to see whether it is safe
to execute that set of ops just once.  If it sees a match var or an
expression with side effects, it creates a pp_substcont op, which
results in the rhs being executed multiple times.

If the rhs seems constant enough, pp_subst does the substitution in a
tight loop.

This unfortunately causes s/a/$a/ to fail if *a has been aliased to
*1.  Furthermore, $REGMARK and $REGERROR did not count as match vars.

pp_subst actually has two separate loops.  One of them modifies the
target in place.  The other appends to a new scalar and then copies it
back to the target.  The first loop is used if it seems safe.

This commit makes $REGMARK, $REGERROR and aliases to match vars work=
when the replacement consists solely of the variable.

It does this by setting PL_curpm before stringifying the replacement,
so that $1 et al. see the right pattern.  It also stringifies the
variable for each iteration of the second loop, so that $1 and
$REGMARK update.

The first loop, which requires the rhs to be constant, is skipped if
the regexp contains the special backtracking control verbs that mod-
ify $REGMARK and $REGERROR.

18 months agoRXf_MODIFIES_VARS
Father Chrysostomos [Thu, 11 Oct 2012 15:37:44 +0000]
RXf_MODIFIES_VARS

regcomp.c sets this new flag whenever regops that could modify
$REGMARK or $REGERROR have been seen.  pp_subst will use this
to tell whether it should repeatedly stringify the replacement.

18 months agoDefine RXf_SPLIT and RXf_SKIPWHITE as 0
Father Chrysostomos [Thu, 11 Oct 2012 16:27:18 +0000]
Define RXf_SPLIT and RXf_SKIPWHITE as 0

They are on longer used in core, and we need room for more flags.

The only CPAN modules that use them check whether RXf_SPLIT is set
(which no longer happens) before setting RXf_SKIPWHITE (which is
ignored).

18 months agopp_hot.c:pp_subst: add comment
Father Chrysostomos [Thu, 11 Oct 2012 07:54:56 +0000]
pp_hot.c:pp_subst: add comment

18 months agoSimplify the fix for bug #41530
Father Chrysostomos [Thu, 11 Oct 2012 07:24:18 +0000]
Simplify the fix for bug #41530

We don’t need to upgrade the target string and redo the pattern match
if the replacement is in utf8.  We can simply convert during concate-
nation, using the more recently added SV_CATUTF8 and SV_CATBYTES flags
to sv_catpvn_flags.

This should make things faster, too, as sv_catpvn_flags does not need
to allocate extra SVs or string buffers.

This happened to trigger an existing COW bug, causing test failures.
SvIsCOW and sv_force_normal_flags were being called on TARG before
get-magic.  So a magical scalar returning a COW could have that COW
modified in place.

I added a test for something I nearly broke.

18 months agoperldelta for [perl #114982]
Karl Williamson [Fri, 12 Oct 2012 04:04:12 +0000]
perldelta for [perl #114982]

18 months agoregcomp.c: Use more precise definition of folding chars
Karl Williamson [Fri, 12 Oct 2012 02:43:47 +0000]
regcomp.c: Use more precise definition of folding chars

Previously, in the Latin1 range, whether a character is alphabetic or
not has served as a surrogate for if the character participates in
folds, as it is a superset of the folding class, with two characters
which are alpha but not folding: the masculine and feminine ordinal
indicators.  But we have plenty of bits available in the bit array for
Latin1 character classifications, so this commit makes the definition
precise.

18 months agohandy.h: Add macro which returns if a char is folding
Karl Williamson [Fri, 12 Oct 2012 02:40:09 +0000]
handy.h: Add macro which returns if a char is folding

This adds a macro for regcomp.c to use to determine if a Latin1 range
character participates in any folds

18 months agoregen/mk_PL_charclass.pl: Add bit for if character folds
Karl Williamson [Fri, 12 Oct 2012 02:25:04 +0000]
regen/mk_PL_charclass.pl: Add bit for if character folds

This takes the existing mktables-generated table that lists all
characters that participate in any way in a fold, and creates a bit for
it in l1_char_class_tab.h