This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5.git
6 years agoDisallow GIMME in ext/
Father Chrysostomos [Sat, 20 Dec 2014 15:14:01 +0000 (07:14 -0800)]
Disallow GIMME in ext/

It’s an inefficient macro, so we don’t want it inadvertently
used again.

6 years agoIncrease $VMS::DCLsym::VERSION to 1.06
Father Chrysostomos [Sat, 20 Dec 2014 15:10:34 +0000 (07:10 -0800)]
Increase $VMS::DCLsym::VERSION to 1.06

6 years agoIncrease $Safe::VERSION to 2.39
Father Chrysostomos [Sat, 20 Dec 2014 15:10:01 +0000 (07:10 -0800)]
Increase $Safe::VERSION to 2.39

6 years agoRemove bogus ST(0) assignment from DCLsym.xs
Father Chrysostomos [Sat, 20 Dec 2014 15:09:13 +0000 (07:09 -0800)]
Remove bogus ST(0) assignment from DCLsym.xs

If we are using PPCODE, then simply assigning to ST(0) won’t return
the value, unless we also do SP++.  So this function has been return-
ing an empty list on failure and the ST(0) assignment has been
doing nothing.

6 years agoRemove bogus GIMME check from DCLsym.xs
Father Chrysostomos [Sat, 20 Dec 2014 15:05:56 +0000 (07:05 -0800)]
Remove bogus GIMME check from DCLsym.xs

GIMME used to return 0 for scalar context.  As of 5.12, it never
returns 0.  As it happens, this function (_getsym) is only ever called
in one spot (by getsym) and in list context.  So don’t even bother
with the check.

6 years agoUse GIMME_V in POSIX
Father Chrysostomos [Sat, 20 Dec 2014 14:55:36 +0000 (06:55 -0800)]
Use GIMME_V in POSIX

GIMME_V is a simpler macro that results in smaller machine code.

6 years agoUse GIMME_V in Opcode
Father Chrysostomos [Sat, 20 Dec 2014 14:54:52 +0000 (06:54 -0800)]
Use GIMME_V in Opcode

GIMME_V is a simpler macro that results in smaller machine code.

6 years agoSafe Changes update
Father Chrysostomos [Sat, 20 Dec 2014 14:52:29 +0000 (06:52 -0800)]
Safe Changes update

6 years agoPropagate context properly in Safe->reval
Father Chrysostomos [Sat, 20 Dec 2014 14:50:12 +0000 (06:50 -0800)]
Propagate context properly in Safe->reval

(or, rather, in Opcode.xs).

It was providing scalar context when invoked in void context.  Test-
ing Safe->reval itself is complicated, because Opcode.xs, which is an
essential part of the fix, is not dual-life.

6 years agoUse GIMME_V in arybase
Father Chrysostomos [Sat, 20 Dec 2014 14:50:08 +0000 (06:50 -0800)]
Use GIMME_V in arybase

GIMME_V is a simpler macro that results in smaller machine code.

6 years agoUse GIMME_V in Data::Dumper
Father Chrysostomos [Sat, 20 Dec 2014 13:39:51 +0000 (05:39 -0800)]
Use GIMME_V in Data::Dumper

GIMME_V is a simpler macro that results in smaller machine code.

6 years agoMissed the %deprecated entry in Module::CoreList
Max Maischein [Sun, 21 Dec 2014 11:14:24 +0000 (12:14 +0100)]
Missed the %deprecated entry in Module::CoreList

6 years agoBump version number to 5.21.8
Max Maischein [Sun, 21 Dec 2014 10:18:45 +0000 (11:18 +0100)]
Bump version number to 5.21.8

Add 5.21.8 in Module::CoreList
Point Maintainers.pl to new version of Module::CoreList

6 years agoCreate new perldelta
Max Maischein [Sun, 21 Dec 2014 09:36:04 +0000 (10:36 +0100)]
Create new perldelta

6 years agoUpdate epigraphs.pod
Max Maischein [Sun, 21 Dec 2014 09:01:21 +0000 (10:01 +0100)]
Update epigraphs.pod

6 years agoMerge branch 'release-5.21.7' into blead
Max Maischein [Sat, 20 Dec 2014 17:38:50 +0000 (18:38 +0100)]
Merge branch 'release-5.21.7' into blead

6 years agoadd new release to perlhist v5.21.7
Max Maischein [Sat, 20 Dec 2014 14:52:25 +0000 (15:52 +0100)]
add new release to perlhist

6 years agoUpdate perldelta
Max Maischein [Sat, 20 Dec 2014 14:52:16 +0000 (15:52 +0100)]
Update perldelta

6 years agoUpdate Module::CoreList for 5.21.7
Max Maischein [Sat, 20 Dec 2014 14:01:57 +0000 (15:01 +0100)]
Update Module::CoreList for 5.21.7

6 years agoSkip multideref for PL_check[OP_HELEM] tinkering
Father Chrysostomos [Sat, 20 Dec 2014 13:26:02 +0000 (05:26 -0800)]
Skip multideref for PL_check[OP_HELEM] tinkering

We already do it when PL_check[OP_AELEM] is modified.  Do it
also for PL_check[OP_HELEM].  This will make it easier to get
Data::Alias working.

6 years agodump.c: Suppress extra sigils in multideref dump
Father Chrysostomos [Sat, 20 Dec 2014 13:21:41 +0000 (05:21 -0800)]
dump.c: Suppress extra sigils in multideref dump

This:

  my $z; my @y; $y[$z]

included

  <+> multideref($@y[$$z]) sK ->6

in its -MO=Concise output.

6 years agodump.c:unop_aux_stringify: Use newSVpvn_flags
Father Chrysostomos [Sat, 20 Dec 2014 13:06:13 +0000 (05:06 -0800)]
dump.c:unop_aux_stringify: Use newSVpvn_flags

newSVpvn_flags with SVs_TEMP takes less machine code than
sv_2mortal(newSVpv()).

6 years agoAllow multideref for $x[CONST->$*]
Father Chrysostomos [Sat, 20 Dec 2014 12:43:56 +0000 (04:43 -0800)]
Allow multideref for $x[CONST->$*]

6 years agoAllow multideref for $x[($pkg)]
Father Chrysostomos [Sat, 20 Dec 2014 12:38:15 +0000 (04:38 -0800)]
Allow multideref for $x[($pkg)]

The parens don’t need to disable the optimisation.

6 years agoFix assertion failure with $x[CONST->[0]]
Father Chrysostomos [Sat, 20 Dec 2014 12:35:24 +0000 (04:35 -0800)]
Fix assertion failure with $x[CONST->[0]]

6 years agoFix assertion failure with $x[($_)]
Father Chrysostomos [Sat, 20 Dec 2014 12:33:47 +0000 (04:33 -0800)]
Fix assertion failure with $x[($_)]

6 years agoAllow multideref for $x[($lex)]
Father Chrysostomos [Sat, 20 Dec 2014 12:29:08 +0000 (04:29 -0800)]
Allow multideref for $x[($lex)]

The parens don’t need to disable the optimisation.

(The OPpLVAL_INTRO flag [indicating my or state] has no run-time
effect for state vars, so we could ignore it and optimise, but it
would make deparsing inordinately complex, and no-one would write
$x[state $y] anyway.)

6 years agoprotect RExC_naughty changes behind macros
Hugo van der Sanden [Sat, 20 Dec 2014 12:21:27 +0000 (12:21 +0000)]
protect RExC_naughty changes behind macros

Avoid overflow, and add a bit of explanation.

6 years agoPerlIO::scalar: skip the 4GB seek test if off_t is too small
Tony Cook [Sat, 20 Dec 2014 02:52:29 +0000 (13:52 +1100)]
PerlIO::scalar: skip the 4GB seek test if off_t is too small

6 years ago01234567890123456789012345678901234567890123456789
Father Chrysostomos [Sat, 20 Dec 2014 00:42:30 +0000 (16:42 -0800)]
01234567890123456789012345678901234567890123456789
pp.h: Remove stack-popping from void overload code

There is no need to pop the stack in void context, as every void-context
op is followed by something that resets the stack.

6 years ago[perl #123458] list cx re::regexp_pattern($nonre)
Father Chrysostomos [Sat, 20 Dec 2014 00:20:42 +0000 (16:20 -0800)]
[perl #123458] list cx re::regexp_pattern($nonre)

It was returning (undef) in list context, though it was documented to
return the empty list.

6 years agouniversal.c:re_regexp_pattern: Mention GIMME_V once
Father Chrysostomos [Sat, 20 Dec 2014 00:15:05 +0000 (16:15 -0800)]
universal.c:re_regexp_pattern: Mention GIMME_V once

While it was only being called once, it occurred in two code paths.
Pulling it out of the main if-block reduces the size of universal.o.
Before and after:

$ ls -l universal.o
-rw-r--r--  1 sprout  staff  33700 Dec 19 16:05 universal.o
$ ls -l universal.o
-rw-r--r--  1 sprout  staff  33692 Dec 19 16:13 universal.o

6 years agopp_sys.c:pp_readdir: Call GIMME_V just once
Father Chrysostomos [Sat, 20 Dec 2014 00:11:32 +0000 (16:11 -0800)]
pp_sys.c:pp_readdir: Call GIMME_V just once

6 years agopp_ctl.c: Only do GIMME_V once in pp_caller
Father Chrysostomos [Sat, 20 Dec 2014 00:09:53 +0000 (16:09 -0800)]
pp_ctl.c: Only do GIMME_V once in pp_caller

This shrinks the machine code.

Before and after:

$ ls -l pp_ctl.o
-rw-r--r--  1 sprout  staff  96156 Dec 19 16:05 pp_ctl.o
$ ls -l pp_ctl.o
-rw-r--r--  1 sprout  staff  96044 Dec 19 16:09 pp_ctl.o

6 years agoUse GIMME_V in preference to GIMME
Father Chrysostomos [Sat, 20 Dec 2014 00:05:15 +0000 (16:05 -0800)]
Use GIMME_V in preference to GIMME

GIMME_V is a simpler macro that results in smaller machine code.

GIMME does not distinguish between scalar and void context.  The two
instances of GIMME == G_SCALAR that I changed (which used to match
void context too, but no longer do) are in code paths unreachable in
void context, so we don’t need to check for it.

6 years agowantarray.t: $got before $expected
Father Chrysostomos [Fri, 19 Dec 2014 20:41:43 +0000 (12:41 -0800)]
wantarray.t: $got before $expected

When the tests fail, the diagnostic output is very confusing
otherwise.

6 years agowantarray.t: Test logops at sub exit
Father Chrysostomos [Fri, 19 Dec 2014 04:25:06 +0000 (20:25 -0800)]
wantarray.t: Test logops at sub exit

6 years agowantarray.t: Remove unused var
Father Chrysostomos [Fri, 19 Dec 2014 01:57:44 +0000 (17:57 -0800)]
wantarray.t: Remove unused var

It stopped being used in dab34d0f01.

6 years agofix integer overflow in S_regpiece().
David Mitchell [Fri, 19 Dec 2014 22:52:55 +0000 (22:52 +0000)]
fix integer overflow in S_regpiece().

RExC_naughty is incremented when nasty bits of regex are found.
If at the end of compilation, its > 01, then PREGf_NAUGHTY is set on the
pattern.

However, some bits of S_regpiece on detecting naughiness, double or nearly
double RExC_naughty, quickly resulting in overflow of the I32.

I've fixed it by skipping the doubling when RExC_naughty is large,
but I don't know whether the doubling is conceptually wrong in the first
place.

Found by -fsanitize=undefined.

6 years agofix integer overflow in S_study_chunk().
David Mitchell [Fri, 19 Dec 2014 22:35:48 +0000 (22:35 +0000)]
fix integer overflow in S_study_chunk().

It was adding to delta even when delta was already SSize_t_MAX

This triggered it: /.*(ab|abc)/.

Found by -fsanitize=undefined.

6 years agofix integer overflow in S_study_chunk().
David Mitchell [Fri, 19 Dec 2014 22:19:58 +0000 (22:19 +0000)]
fix integer overflow in S_study_chunk().

It was adding SSize_t_MAX to data->last_start_max when
data->last_start_max was already SSize_t_MAX.

This triggered it: /(x+y)+/.

Found by -fsanitize=undefined.

6 years agofix integer overflow in S_scan_commit().
David Mitchell [Fri, 19 Dec 2014 21:41:11 +0000 (21:41 +0000)]
fix integer overflow in S_scan_commit().

offset_float_max could end up as SSize_t_MAX+1.

This triggered it: /^x(ab|c.+)$/.

Found by -fsanitize=undefined.

6 years agoadd asan_ignore - which errors to ignore
David Mitchell [Fri, 19 Dec 2014 20:31:00 +0000 (20:31 +0000)]
add asan_ignore - which errors to ignore

"clang -fsanitize=undefined" produces lots of false positives.
This file allows certain functions to be excluded from checking.
Use it as:

    clang -fsanitize=undefined -fsanitize-blacklist=`pwd`/asan_ignore

6 years agoop.c: better casting fix
David Mitchell [Fri, 19 Dec 2014 17:25:34 +0000 (17:25 +0000)]
op.c: better casting fix

My commit 0cb87cd1a of a few minutes ago broke g++. Hopefully this
commit won't break anything else.

6 years agofix a couple of win32 op.c warnings
David Mitchell [Fri, 19 Dec 2014 17:05:27 +0000 (17:05 +0000)]
fix a couple of win32 op.c warnings

These warnings appear on win32 smokes.

op.c(8600) : warning C4244: 'function' : conversion from 'cv_flags_t' to 'char'
, possible loss of data
op.c(11905) : warning C4146: unary minus operator applied to unsigned type, res
ult still unsigned

Since I'm not running windows, I can't confirm that this commit shuts up
these warnings, but I think think I've understood them correctly.

6 years agoODBM: fix a compiler warning.
David Mitchell [Fri, 19 Dec 2014 16:54:01 +0000 (16:54 +0000)]
ODBM: fix a compiler warning.

This has been applied blind since my system doesn't have libodbm,
but it matches exactly the cast added to NDBM's typemap a few years ago to
fix a similar warning.

6 years agoNDBM: silence 'unused var' warnings x 2
David Mitchell [Fri, 19 Dec 2014 16:31:51 +0000 (16:31 +0000)]
NDBM: silence 'unused var' warnings x 2

(I've done this blind because I don't have libndbm on my system)

6 years agoB.xs: remove redundant assignment
David Mitchell [Fri, 19 Dec 2014 16:09:19 +0000 (16:09 +0000)]
B.xs: remove redundant assignment

Follow-up to 500f40f555ee.

6 years agoExtUtils::Embed: silence test warning
David Mitchell [Fri, 19 Dec 2014 11:40:33 +0000 (11:40 +0000)]
ExtUtils::Embed: silence test warning

From the added code comments:

    XXX DAPM 12/2014: ExtUtils::Embed doesn't seem to provide API access
    to $Config{optimize} and so compiles the test code without
    optimisation on optimised perls. This causes the compiler to warn
    when -D_FORTIFY_SOURCE is in force without -O. For now, just strip
    the fortify on optimised builds to avoid the warning.

6 years agoAlso allow /\N{}/
Father Chrysostomos [Fri, 19 Dec 2014 06:10:49 +0000 (22:10 -0800)]
Also allow /\N{}/

See 4cbd7e223 and ticket #123417.

If a charnames handler returns the empty string for a particular name,
then the regular expression stringifies with an empty \N{} in it.
This needs to round-trip properly (eval "/$qr/"), just like \N{U+...}.

6 years agoperldelta for 1e2dd519
Father Chrysostomos [Thu, 18 Dec 2014 23:52:14 +0000 (15:52 -0800)]
perldelta for 1e2dd519

6 years agoperldelta for 3b91d897
Father Chrysostomos [Thu, 18 Dec 2014 23:50:57 +0000 (15:50 -0800)]
perldelta for 3b91d897

6 years agoperldelta for 1f3063473
Father Chrysostomos [Thu, 18 Dec 2014 22:55:34 +0000 (14:55 -0800)]
perldelta for 1f3063473

6 years agoperldelta for 9d52f6f3f87
Father Chrysostomos [Thu, 18 Dec 2014 22:53:38 +0000 (14:53 -0800)]
perldelta for 9d52f6f3f87

6 years agoperldelta for 84ee769f11
Father Chrysostomos [Thu, 18 Dec 2014 22:48:48 +0000 (14:48 -0800)]
perldelta for 84ee769f11

6 years agoinclude reference to metacpan.org; refer to the module-authors list instead of module...
Karen Etheridge [Thu, 18 Dec 2014 19:17:56 +0000 (11:17 -0800)]
include reference to metacpan.org; refer to the module-authors list instead of modules, and include a link to the subscription page

6 years agoUpdate Unicode-Collate to CPAN version 1.09
Chris 'BinGOs' Williams [Thu, 18 Dec 2014 18:38:57 +0000 (18:38 +0000)]
Update Unicode-Collate to CPAN version 1.09

  [DELTA]

1.09  Thu Dec 18 21:39:18 2014
    - XS: a workaround for perl 5.6.x to handle noncharacters U+FFFF etc.
      is abandoned. Perl 5.8.0 or later is recommended for handling these
      noncharacters.

6 years agoperldelta for 696efa16de2c
Tony Cook [Thu, 18 Dec 2014 04:42:11 +0000 (15:42 +1100)]
perldelta for 696efa16de2c

6 years agofix PerlIO::scalar get_cnt when the file position is beyond 2GB
Tony Cook [Thu, 18 Dec 2014 03:48:34 +0000 (14:48 +1100)]
fix PerlIO::scalar get_cnt when the file position is beyond 2GB

This caused a new test to fail on 32-bit builds.

6 years agoregen pod issues
Father Chrysostomos [Thu, 18 Dec 2014 00:03:36 +0000 (16:03 -0800)]
regen pod issues

The F<>/L<> warning is bogus in this case.

6 years ago[perl #123417] Allow lexer to parse \N{U+dotted.hex}
Father Chrysostomos [Sun, 14 Dec 2014 14:55:30 +0000 (06:55 -0800)]
[perl #123417] Allow lexer to parse \N{U+dotted.hex}

This ‘unoffical’ notation is used in stringifying regular expressions
that contain named sequences, so that qr/\N{foo}/ stringified can be
incorporated into another regular expression in a different scope and
still mean the same thing.

This also needs to work with eval "/$that_qr/".  I didn’t because the
lexer rejected this syntax.

6 years agoperldelta for 63d073d27fe5, 1d050e5534ce
Tony Cook [Wed, 17 Dec 2014 23:06:08 +0000 (10:06 +1100)]
perldelta for 63d073d27fe51d050e5534ce

6 years agodon't allow a negative file position on a PerlIO::scalar handle
Tony Cook [Wed, 17 Dec 2014 02:54:25 +0000 (13:54 +1100)]
don't allow a negative file position on a PerlIO::scalar handle

previosly seek() would produce an error, but would still make the\
file position negative.

6 years ago[perl #123443] avoid overflowing got into a negative number
Tony Cook [Wed, 17 Dec 2014 02:32:43 +0000 (13:32 +1100)]
[perl #123443] avoid overflowing got into a negative number

6 years agoUpdate Filter::Util::Call to CPAN version 1.51
Chris 'BinGOs' Williams [Wed, 17 Dec 2014 21:01:29 +0000 (21:01 +0000)]
Update Filter::Util::Call to CPAN version 1.51

  [DELTA]

1.50 2014-06-04 rurban
----

  * Do not re-bless already blessed filter_add arguments into the callers package.
    Fixes RT #54452
  * t/z_pod-coverage.t: omit empty Filter::decrypt (also fixes RT #84405)
  * Fix Perl Compiler detection in Filter::decrypt

1.51 2014-12-09 rurban
----

  * Minor -Wall -Wextra cleanups by jhi and me. Fixes RT #100742
  * Updated Copyright years
  * Document and warn about its limitations

6 years agoSort perldiag
Father Chrysostomos [Wed, 17 Dec 2014 20:37:07 +0000 (12:37 -0800)]
Sort perldiag

6 years agoperldelta typos
Father Chrysostomos [Wed, 17 Dec 2014 20:32:30 +0000 (12:32 -0800)]
perldelta typos

6 years agoFix bad read in pad.c:cv_undef
Father Chrysostomos [Tue, 16 Dec 2014 22:25:22 +0000 (14:25 -0800)]
Fix bad read in pad.c:cv_undef

When freeing a sub, we can’t assume an entry named "&" contains a CV.
It may instead be a weak reference to a format or named sub, or undef
if such a reference went stale, in which case we don’t want to mess
with CvOUTSIDE pointers.

This bug probably goes back to v5.17.1-213-ge09ac07, when weak refer-
ences started being stored in "&" pad entries.  It didn’t start trig-
gering AddressSanitizer failures until it was extended to named subs,
in v5.21.6-386-ga70f21d.

6 years agoimprove xs_handshake() diag message
David Mitchell [Wed, 17 Dec 2014 17:29:42 +0000 (17:29 +0000)]
improve xs_handshake() diag message

The important part of the error message is that the binaries are
mismatched; the details of the handshake keys are an implementation
detail.

Or to put it another way, when someone mixes up their paths, getting
something like

    Fcntl.c: Invalid handshake key got 0xcf80000 needed 0xd700000, binaries are mismatched

Is a bit scary and confusing. This is hopefully (slightly) less scary:

    Fcntl.c: loadable library and perl binaries are mismatched (got handshake key 0xcf80000, needed 0xd700000)

6 years agoxs_handshake(() clean up desciption
David Mitchell [Wed, 17 Dec 2014 17:13:26 +0000 (17:13 +0000)]
xs_handshake(() clean up desciption

Clean up the description of this function; in particular, say at the top
what the function is for; fix typos; and generally improve the readability
of the text.

6 years agoTemplate::Declare's tests now pass under 5.22-to-be
Aaron Crane [Wed, 17 Dec 2014 16:07:42 +0000 (16:07 +0000)]
Template::Declare's tests now pass under 5.22-to-be

6 years agoRemove duplicate apidoc entries
David Mitchell [Wed, 17 Dec 2014 15:54:18 +0000 (15:54 +0000)]
Remove duplicate apidoc entries

Modify apidoc.pl to warn about duplicate apidoc entries, and
remove duplicates for av_tindex and toLOWER_LC

6 years agoupdate perldelta for UNOP_AUX and OP_MULTIDEREF
David Mitchell [Wed, 17 Dec 2014 15:37:19 +0000 (15:37 +0000)]
update perldelta for UNOP_AUX and OP_MULTIDEREF

6 years agoINSTALL: warning text has changed
David Mitchell [Wed, 17 Dec 2014 15:17:35 +0000 (15:17 +0000)]
INSTALL: warning text has changed

Some text tells you about

    Note (probably harmless): No library found for -lsomething

warnings, but the actual warning has now changed to

    Warning (mostly harmless): No library found for -lsomething

6 years agoDeparse constant Perl subs
Father Chrysostomos [Wed, 17 Dec 2014 04:35:43 +0000 (20:35 -0800)]
Deparse constant Perl subs

Subs like sub f () { 42 } stopped being emitted, probably in
v5.21.3-638-g2eaf799, when such subs started being stored as simple
scalar refs in the stash.

6 years agoVMS does have fsync, so configure accordingly.
Craig A. Berry [Wed, 17 Dec 2014 03:09:40 +0000 (21:09 -0600)]
VMS does have fsync, so configure accordingly.

And has had since roughly the beginning of time, and has even been
using it since right around then in vms/vms.c.  But it doesn't work
on read-only filehandles, so skip the test that expects that.

6 years agoClean up VMS includes in ext/Errno/Errno_pm.PL.
Craig A. Berry [Wed, 17 Dec 2014 01:14:11 +0000 (19:14 -0600)]
Clean up VMS includes in ext/Errno/Errno_pm.PL.

There are currently (and for many years now) no viable alternatives
to the headers that come with the operating system, regardless of
compiler.

6 years agoObsolete workaround in ext/SDBM_File/sdbm/Makefile.PL.
Craig A. Berry [Wed, 17 Dec 2014 01:11:22 +0000 (19:11 -0600)]
Obsolete workaround in ext/SDBM_File/sdbm/Makefile.PL.

Hasn't been necessary or relevant for some years.

6 years agoAdd Template::Declare to perl5220delta
Father Chrysostomos [Tue, 16 Dec 2014 20:42:20 +0000 (12:42 -0800)]
Add Template::Declare to perl5220delta

for #123364.

6 years agoStorable.xs: introduce SEEN*_NN
David Mitchell [Tue, 16 Dec 2014 16:57:25 +0000 (16:57 +0000)]
Storable.xs: introduce SEEN*_NN

Introduce _NN versions of the SEEN() and SEEN0() macros, that
don't bother to check whether their first arg is null.

The initial motivation for this was to to silence a compiler warning
about a conditional always being true in SEEN(&PL_sv_undef,...), but
I've also applied it to all places in the code where it's clear that the
arg can't be null, e.g.

    sv = NEWSV();
    SEEN(sv,...);

At it happens, "places where" currently equates to every usage of
SEEN/SEEN0 in the source code.

6 years agoperldiag.pod: fix typo
David Mitchell [Tue, 16 Dec 2014 15:22:07 +0000 (15:22 +0000)]
perldiag.pod: fix typo

6 years agotoupper/lower: avoid sign warnings
David Mitchell [Tue, 16 Dec 2014 12:20:25 +0000 (12:20 +0000)]
toupper/lower: avoid sign warnings

Perl's toLOWER_LC() etc macros are specified as having U8 arg and return,
while the underlying macro may call the OS's tolower() function which is
int. Stop the compiler warning about mismatched sign in conditional by
casting the result of the OS function.

6 years ago[perl #123436] installperl patch related to $Config{dlext}
kmx [Tue, 16 Dec 2014 09:00:16 +0000 (09:00 +0000)]
[perl #123436] installperl patch related to $Config{dlext}

6 years ago[perl #123438] Wrong comment style in win32/win32.h
kmx [Tue, 16 Dec 2014 08:52:07 +0000 (08:52 +0000)]
[perl #123438] Wrong comment style in win32/win32.h

6 years ago[perl #123020] Scalar cx for lhs of void (...)x...
Father Chrysostomos [Tue, 16 Dec 2014 06:23:23 +0000 (22:23 -0800)]
[perl #123020] Scalar cx for lhs of void (...)x...

No sane code calls x in void context (except at the end of a subrou-
tine), but we have to handle it anyway.

Previously, the left-hand parenthesized operand to (...)x... would be
evaluated in the context in which the current sub was called.  I.e.,
if the last statement in the current sub is called in last context,
then then lhs of (...)x... a hundred lines earlier (say we have a
big sub) is called in list context, even though it is completely
unrelated.

Since the left-hand operand could be called in any of the three con-
texts when x itself was in void context, I could choose whatever I
wanted when making it consistent.  Scalar context makes the most sense
to me, because x falls back to string repeat when not in list context,
and because void context makes stack handling complex.

Unfortunately, this does not fix the context if x occurs at the end of
a subroutine.  That will be a lot trickier to fix.  (Hence, the com-
plex stack handling in pp_repeat must remain.)

6 years agoDon’t ignore rv2gv when deparsing readline
Father Chrysostomos [Tue, 16 Dec 2014 06:05:18 +0000 (22:05 -0800)]
Don’t ignore rv2gv when deparsing readline

Unlike most handle ops, readline does not implicitly add an rv2gv op.

In fact, there is a difference in behaviour, depending on whether
there is an rv2gv op present.  An explicit * (rv2gv) will force vivi-
fication of the typeglob, but ‘readline’ alone won’t vivify it.

So B::Deparse should not ignore the rv2gv kid of readline.

Previously, readline(*$foo) (vivifying) would deparse as <$foo> (non-
ivifying), and readline *{$foo} would deparse as readline do { $foo }
(same behavioural difference again).

6 years agoDeparse: Restore proto checks for coderef2text
Father Chrysostomos [Tue, 16 Dec 2014 04:37:11 +0000 (20:37 -0800)]
Deparse: Restore proto checks for coderef2text

This fixes #123435 (I hope).

Before v5.21.6-485-gf2279a6, B::Deparse, when deparsing sub calls,
would look in the stash for a sub with a prototype, and use that
prototype for deparsing.  (It would only do this for subs that it
itself is not going to deparse.)  That caused this to deparse
incorrectly:

BEGIN {
   require Test::More;
   is("foo", "foo");
}

Because of the presence of the prototyped &main::is by the time
B::Deparse is invoked, it would deparse the is() sub call without
parentheses, resulting in invalid code.

So I changed it to trust only those subs that it has already deparsed.

Now, with coderef2text, B::Deparse doesn’t deparse any subs except the
one passed to it.  So *all* prototype sub calls turn into &foo, break-
ing CPAN tests that expect otherwise.  While such tests could be con-
sidered too sensitive, I don’t think that this is necessarily a sane
default for coderef2text.

Ideally we should provide the option to tell coderef2text which
subs to trust, the default being to trust all of them.  But for
now I will just implement that default, which means reverting
v5.21.6-485-gf2279a6 *for coderef2text*, but not when deparsing the
main program.

6 years agoDeparse.pm: Remove obsolete comment about globals
Father Chrysostomos [Tue, 16 Dec 2014 04:31:16 +0000 (20:31 -0800)]
Deparse.pm: Remove obsolete comment about globals

Knowing that object fields were globals is no longer useful, unless
one is intimately familiar with a very old version of B::Deparse and
wants to find his way around the new one.  (Good luck!)

Furthermore, several of these ‘former globals’ were never globals,
because they came after this comment.

6 years agoSkip obsolete skip in io_xs.t.
Craig A. Berry [Tue, 16 Dec 2014 03:20:13 +0000 (21:20 -0600)]
Skip obsolete skip in io_xs.t.

The VAXC compiler and its compatibility library VAXCRTL are long
since obsolete.

6 years agoperldelta for 3f6e436ff088
Tony Cook [Tue, 16 Dec 2014 00:37:58 +0000 (11:37 +1100)]
perldelta for 3f6e436ff088

also move the B::Deparse fix under B::Deparse

6 years agodocument + improve ancient optimization in ParseXS
Daniel Dragan [Fri, 12 Dec 2014 10:16:50 +0000 (05:16 -0500)]
document + improve ancient optimization in ParseXS

From commit 8990e30710 "perl 5.0 alpha 6". The DESTROY XSUB with T_PTROBJ
as INPUT arg was refusing to obey my custom typemap for T_PTROBJ, but all
other XSUBs followed the custom T_PTROBJ override. Extend this
optimization to other rarely used typemap types and document this behavior.

6 years agoDeparse: Stop =~ QR_CONST from dropping flags
Father Chrysostomos [Mon, 15 Dec 2014 17:23:11 +0000 (09:23 -0800)]
Deparse: Stop =~ QR_CONST from dropping flags

6 years agoAdd B::REGEXP::compflags
Father Chrysostomos [Mon, 15 Dec 2014 17:43:41 +0000 (09:43 -0800)]
Add B::REGEXP::compflags

6 years agoDeparse.pm: Two more matchwords
Father Chrysostomos [Mon, 15 Dec 2014 13:53:39 +0000 (05:53 -0800)]
Deparse.pm: Two more matchwords

This is *highly* important. :-)

6 years agodeparse-skips.txt: op/getpid.t fails
Father Chrysostomos [Mon, 15 Dec 2014 02:27:39 +0000 (18:27 -0800)]
deparse-skips.txt: op/getpid.t fails

6 years agodeparse-skips.txt: More passing tests
Father Chrysostomos [Mon, 15 Dec 2014 02:25:30 +0000 (18:25 -0800)]
deparse-skips.txt: More passing tests

6 years agoDeparse system-BLOCK correctly
Father Chrysostomos [Mon, 15 Dec 2014 02:24:08 +0000 (18:24 -0800)]
Deparse system-BLOCK correctly

Same with exec.  Don’t put ‘do’ before the block.

This was accomplished by running it through the same code path
(indirop) that print and sort already go through.

There was a slight discrepancy between listop and indirop in the way
they handled no arguments.  Before we would get:

    () = system;
    () = exec;
    () = sort();

Instead of making the first two get the redundant parentheses, I
changed indirop, so sort lost them.

6 years agodeparse-skips.txt: eval tests pass
Father Chrysostomos [Mon, 15 Dec 2014 02:15:23 +0000 (18:15 -0800)]
deparse-skips.txt: eval tests pass

6 years agodeparse-skips.txt: Skip reason for op/each.t
Father Chrysostomos [Mon, 15 Dec 2014 02:14:50 +0000 (18:14 -0800)]
deparse-skips.txt: Skip reason for op/each.t

6 years agopp_readline: Don’t set PL_last_in_gv to &PL_sv_undef
Father Chrysostomos [Mon, 15 Dec 2014 17:41:54 +0000 (09:41 -0800)]
pp_readline: Don’t set PL_last_in_gv to &PL_sv_undef

Code elsewhere assumes it is always a GV or NULL:

readline "foo";
my $lastfh = "${^LAST_FH}";