This is a live mirror of the Perl 5 development currently hosted at
8 years agosv_grow: performance improvement for short strings
Reini Urban [Wed, 27 Aug 2014 17:48:35 +0000 (12:48 -0500)]
sv_grow: performance improvement for short strings

Empty COW strings with CUR=0 ended up allocated as LEN=10.
Now they are rounded up to 4 or 8.

+0   16.394324103 0.27%
+2   16.114379842 0.01%
+4   16.305622265 1.03%
+8   16.337438609 1.30%
+10  16.675009468 0.59%
with LD_LIBRARY_PATH=`pwd` perf stat -r2 ./perl t/harness t/op/*.t

+2 was consistently the best number, and +10 the worst.

8 years agoUpgrade to threads 1.96
Jerry D. Hedden [Wed, 27 Aug 2014 22:06:39 +0000 (18:06 -0400)]
Upgrade to threads 1.96

8 years agotodo: expand the list of OS access builtins to update
Ricardo Signes [Thu, 28 Aug 2014 01:13:46 +0000 (21:13 -0400)]
todo: expand the list of OS access builtins to update

...taken from an IRC conversation on #p5p

8 years agoDe-prefix Perl_isinfnan.
Jarkko Hietaniemi [Wed, 27 Aug 2014 23:04:36 +0000 (19:04 -0400)]
De-prefix Perl_isinfnan.

8 years agopack c/C on inf/nan.
Jarkko Hietaniemi [Wed, 27 Aug 2014 12:13:02 +0000 (08:13 -0400)]
pack c/C on inf/nan.

Made them return the 0xFF byte (and warn).  Not necessarily the best
choice, but there's not that much room in just 256 bytes for all of
the inf/-inf/nan.  This same choice will need to be made with wider
integer packs.

8 years agoMake sprintf %c and chr() on inf/nan return the U+FFFD.
Jarkko Hietaniemi [Wed, 27 Aug 2014 11:45:00 +0000 (07:45 -0400)]
Make sprintf %c and chr() on inf/nan return the U+FFFD.

%c was made to produce "Inf"/"NaN" earlier, but let's
keep with the Unicode way, and make chr() agree with %c.

8 years agoNVgf/NVff agree with -Duselongdouble.
Jarkko Hietaniemi [Wed, 27 Aug 2014 01:05:54 +0000 (21:05 -0400)]
NVgf/NVff agree with -Duselongdouble.

8 years agoComment tweak.
Jarkko Hietaniemi [Wed, 27 Aug 2014 01:19:31 +0000 (21:19 -0400)]
Comment tweak.

8 years agoext/re/t/regop.t: Use eq instead of == for strings
Karl Williamson [Wed, 27 Aug 2014 03:15:01 +0000 (21:15 -0600)]
ext/re/t/regop.t: Use eq instead of == for strings

Interestingly, this bug has been unnoticed for almost 3 years.

8 years agoDetect false infinities.
Jarkko Hietaniemi [Tue, 26 Aug 2014 22:48:45 +0000 (18:48 -0400)]
Detect false infinities.

8 years agoprintf inf/nan should be inf/nan.
Jarkko Hietaniemi [Tue, 26 Aug 2014 02:40:17 +0000 (22:40 -0400)]
printf inf/nan should be inf/nan.

Before: printf %[ducp] for Inf/NaN produced quite surprising results:
1, 0, -1, 184467440737095516159223372036854775808, -9223372036854775807,
bogus Unicode code points, random heap addresses in hex.

8 years agoAdd more infnan tests.
Jarkko Hietaniemi [Tue, 26 Aug 2014 01:55:53 +0000 (21:55 -0400)]
Add more infnan tests.

8 years agoAvoid useless warning, remove debug code.
Jarkko Hietaniemi [Mon, 25 Aug 2014 22:52:44 +0000 (18:52 -0400)]
Avoid useless warning, remove debug code.

8 years ago*fp*class* comment tweaks.
Jarkko Hietaniemi [Tue, 26 Aug 2014 14:30:30 +0000 (10:30 -0400)]
*fp*class* comment tweaks.

8 years agoPost-VAX VMS has fp_classify().
Jarkko Hietaniemi [Tue, 26 Aug 2014 01:44:55 +0000 (21:44 -0400)]
Post-VAX VMS has fp_classify().

8 years agoSimplify the hexfp space computation.
Jarkko Hietaniemi [Tue, 26 Aug 2014 16:16:36 +0000 (12:16 -0400)]
Simplify the hexfp space computation.

And prepare for the double double case being properly implemented.

8 years agoComment why hexfp is set here, not earlier.
Jarkko Hietaniemi [Tue, 26 Aug 2014 15:49:04 +0000 (11:49 -0400)]
Comment why hexfp is set here, not earlier.

8 years agoOnly one successful exit from grok_infnan().
Jarkko Hietaniemi [Tue, 26 Aug 2014 15:14:24 +0000 (11:14 -0400)]
Only one successful exit from grok_infnan().

8 years agoSprinkle the fact that long doubles aren't standardized.
Jarkko Hietaniemi [Tue, 26 Aug 2014 22:17:51 +0000 (18:17 -0400)]
Sprinkle the fact that long doubles aren't standardized.

8 years agoAllow eg ./perl t/harness t/op/lc.t
Jarkko Hietaniemi [Tue, 26 Aug 2014 11:26:33 +0000 (07:26 -0400)]
Allow eg ./perl t/harness t/op/lc.t

8 years agoTypo in pad.c apidocs
Father Chrysostomos [Sun, 12 Jan 2014 01:03:04 +0000 (17:03 -0800)]
Typo in pad.c apidocs

8 years agoPorting/ - Fix ExtUtils-CBuilder entry
Steve Hay [Tue, 26 Aug 2014 08:24:20 +0000 (09:24 +0100)]
Porting/ - Fix ExtUtils-CBuilder entry

8 years agoUpgrade version from version 0.9908 to 0.9909
Steve Hay [Tue, 26 Aug 2014 08:22:06 +0000 (09:22 +0100)]
Upgrade version from version 0.9908 to 0.9909

This includes some blead changes, but more are still waiting to be
incorporated into the next CPAN release, namely 7738054cc9 and dcccc8ffbf.

8 years Document fully-qualified constant names
Father Chrysostomos [Tue, 26 Aug 2014 05:05:37 +0000 (22:05 -0700)] Document fully-qualified constant names

added a few commits ago.

8 years Remove doc reference to compile-time checking
Father Chrysostomos [Tue, 26 Aug 2014 05:01:44 +0000 (22:01 -0700)] Remove doc reference to compile-time checking

This was removed in commit eff754733a.  It was necessary, as the
feature caused bugs #69456 and #122607.

Advertising the compile-time check with version-dependent qualifi-
cations would make the documentation too verbose.

8 years Remove redundant truth checks
Father Chrysostomos [Tue, 26 Aug 2014 04:45:50 +0000 (21:45 -0700)] Remove redundant truth checks

It is not possible to reach these without $symtab’s having been
assigned a stash reference.

8 years outdated comment
Father Chrysostomos [Tue, 26 Aug 2014 04:43:31 +0000 (21:43 -0700)] outdated comment

8 years agoIncrease $constant::VERSION to 1.32
Father Chrysostomos [Tue, 26 Aug 2014 04:42:11 +0000 (21:42 -0700)]
Increase $constant::VERSION to 1.32

8 years agoAllow package name in ‘use constant’ constants
Father Chrysostomos [Tue, 26 Aug 2014 04:41:55 +0000 (21:41 -0700)]
Allow package name in ‘use constant’ constants

See the thread that includes

This provides a way for a package to define constants in another pack-
age, without having to resort to *other::const = sub () { $value }.
Now one can write constant->import("other::const" => $value).

Documentation will be added in an upcoming commit.

8 years agotoke.c: Remove unnecessary PL_expect assignment
Father Chrysostomos [Tue, 26 Aug 2014 01:18:16 +0000 (18:18 -0700)]
toke.c: Remove unnecessary PL_expect assignment

In this code path, we know that the next token is a parenthesis.  It
also happens that the lexer always emits parentheses the same way,
so there is no question as to how to interpret it.  Hence, the value
of PL_expect is actually irrelevant here.

8 years agoperlfunc: consistent spaces after dots
Father Chrysostomos [Tue, 26 Aug 2014 01:10:12 +0000 (18:10 -0700)]
perlfunc: consistent spaces after dots

8 years agoperldiag: reword and rewrap an entry
Father Chrysostomos [Tue, 26 Aug 2014 01:05:56 +0000 (18:05 -0700)]
perldiag: reword and rewrap an entry

I think ‘portable between’ sounds better in this particular context.
The rewrapping is for the sake of splain output.

8 years agoStop trying to disambiguate {} after $
Father Chrysostomos [Mon, 25 Aug 2014 21:54:30 +0000 (14:54 -0700)]
Stop trying to disambiguate {} after $

$ ./perl -Ilib -e '${function_with_side_effects,42}'
$ ./perl -Ilib -e '${Function_with_side_effects,42}'
syntax error at -e line 1, near "${"
Execution of -e aborted due to compilation errors.

Why is the second one a syntax error?

Because the lexer is trying to disambiguate between a block and a hash
when it sees ‘{’ after ‘$’.  But an anonymous hash constructor cannot
come after a funny character, so any time it chooses the hash inter-
pretation over the blocky one, a syntax error ensues.

8 years agoperlrecharclass: Use more common property synonym
Karl Williamson [Tue, 26 Aug 2014 00:50:16 +0000 (18:50 -0600)]
perlrecharclass: Use more common property synonym

XPerlSpace is used elsewhere in this pod, so use it everywhere.

Spotted by Andrew Rodland.

8 years agoUpdate release schedule
Steve Hay [Mon, 25 Aug 2014 20:39:35 +0000 (21:39 +0100)]
Update release schedule

8 years agoAdd release date of 5.20.1-RC1
Steve Hay [Mon, 25 Aug 2014 20:26:29 +0000 (21:26 +0100)]
Add release date of 5.20.1-RC1

8 years agoAdd epigraph for 5.20.1-RC1
Steve Hay [Mon, 25 Aug 2014 19:35:15 +0000 (20:35 +0100)]
Add epigraph for 5.20.1-RC1

8 years agoImprove -Dr output of bracketed char classes
Karl Williamson [Sun, 24 Aug 2014 02:50:44 +0000 (20:50 -0600)]
Improve -Dr output of bracketed char classes

I look at this output a lot to verify that patterns compiled correctly.
This commit makes them somewhat easier to read, while extending this to
also work on EBCDIC platforms (as yet untested).

In staring at these over time, I realized that punctuation literals are
mostly what contributes to being hard to read.  [A-Z] is just as
readable as [A-Y], but [%!@\]~] is harder to read than if there were
fewer.  Sometimes that can't be helped, but if many get output,
inverting the pattern [^...] can cause fewer to be output.  This commit
employs heuristics to invert when it thinks that that would be more
legible.  For example, it converts the output of [^"'] to be


instead of

 ANYOF[\x{00}-\x{1F} !#$%&()*+,\-./0-9:;<=>?@A-Z[\\\]\^_`a-z{|}~\x{7F}-\x{FF}][{unicode_all}]

Since it is a heuristic, it may not be the best under all circumstances,
and may need to be tweaked in the future.

If almost all the printables are to be output, it uses a hex range, as
that is probably more closely aligned with the intent of the pattern
than which individual printables are desired.  Again this heuristic can
be tweaked.

And it prints a leading 0 on things it outputs as hex formerly as a
single digit \x{0A} now instead of \x{A} previously.

8 years agoregcomp.c: Use symbolic constant instead of number
Karl Williamson [Sun, 24 Aug 2014 00:49:58 +0000 (18:49 -0600)]
regcomp.c: Use symbolic constant instead of number

This is in preparation for it to be used in more than one place.

8 years agoregcomp.c: Add 'const' to parameter
Karl Williamson [Sun, 24 Aug 2014 00:40:06 +0000 (18:40 -0600)]
regcomp.c: Add 'const' to parameter

8 years agoperldiag: Add clarification.
Karl Williamson [Sun, 24 Aug 2014 00:21:36 +0000 (18:21 -0600)]
perldiag: Add clarification.

8 years agoregen/ Find max ascii print cp
Karl Williamson [Sun, 24 Aug 2014 00:10:44 +0000 (18:10 -0600)]
regen/ Find max ascii print cp

This creates a #define that gives the highest code point that is an
ASCII printable.  On ASCII-ish platforms, this is 0x7E, but on EBCDIC
platforms it varies, and can be as high as 0xFF.  This is in preparation
for needing this value in a future commit in regcomp.c

8 years agohandy.h, regcomp.c: Add, clarify comments
Karl Williamson [Sun, 24 Aug 2014 00:07:50 +0000 (18:07 -0600)]
handy.h, regcomp.c: Add, clarify comments

8 years agoregcomp.c: Extract some code into a macro
Karl Williamson [Sun, 24 Aug 2014 00:01:28 +0000 (18:01 -0600)]
regcomp.c: Extract some code into a macro

This is in preparation for it to be used in more than one place

8 years agoregcomp.c: white-space only
Karl Williamson [Sat, 23 Aug 2014 23:57:45 +0000 (17:57 -0600)]
regcomp.c: white-space only

Bring two case statements into line with their peers

8 years agoregcomp.c: Use available mnemonics for dumping regex
Karl Williamson [Sat, 23 Aug 2014 23:54:20 +0000 (17:54 -0600)]
regcomp.c: Use available mnemonics for dumping regex

Perl supports \e and \b (in bracketed character classes).  Use these on
outputting like we do \t and \n, instead of a hex value

8 years agosv.c: Silence VMS compiler warning
Karl Williamson [Sat, 23 Aug 2014 23:50:11 +0000 (17:50 -0600)]
sv.c: Silence VMS compiler warning

The result of this must be at least 0 as the type is unsigned, so
the compiler gives a warning.

8 years agoembed.fnc: Clarify m flag behavior comment
Karl Williamson [Sat, 23 Aug 2014 23:49:30 +0000 (17:49 -0600)]
embed.fnc: Clarify m flag behavior comment

8 years agoperlfunc: Improve the pointer from "elseif" to "elsif"
Ævar Arnfjörð Bjarmason [Mon, 25 Aug 2014 16:17:11 +0000 (16:17 +0000)]
perlfunc: Improve the pointer from "elseif" to "elsif"

A co-worker pointed out that the docs for "elsif" were quite confusing
because nothing when you "perldoc -f elseif" points out that it doesn't
exist, it just directs you to perlsyn where we only document "elsif".

Ricardo Signes added this aliasing back in v5.15.7-194-g8f0d6a6.

Improve this confusion, and also add a mention of the common "elif" and
"else if" variants while I'm at it. I was originally going to just alias
them, but t/porting/perlfunc.t started failing because we're missing
cross-references, and unlike "elseif" the other two aren't keywords,
even if the "elseif" one is only here to warn you about its use.

8 years agotoke.c: Remove unnecessary condition
Father Chrysostomos [Mon, 25 Aug 2014 05:42:51 +0000 (22:42 -0700)]
toke.c: Remove unnecessary condition

This code skips over a quoted string, handling escapes.  And to han-
dle escapes it skips past the character following a backslash if that
character is itself a backslash or the quote character.  Skipping past
the character after the backslash unconditionally, regardless of what
it is, has the same effect and uses less code.

This change shrunk the .o file.

-rw-r--r--  1 sprout  staff  671148 Aug 24 20:28 toke.o
-rw-r--r--  1 sprout  staff  671100 Aug 24 22:37 toke.o

8 years agoStop ck_rvconst from treating GV constants as strings
Father Chrysostomos [Mon, 25 Aug 2014 05:31:10 +0000 (22:31 -0700)]
Stop ck_rvconst from treating GV constants as strings

sub foo { 42 }
use constant bar => *foo;
BEGIN { undef *foo }
warn &{+bar};
warn bar->();

Obviously the last two lines should print the same thing, because they
both call the value of the ‘bar’ constant as a suroutine.

But op.c:ck_rvconst messes up the ‘bar->()’ at compile time, treating
the bar glob (a copy of the original *foo glob, and not the *foo glob
itself, which has since been undefined) as a string and using it to
look up a glob.

ck_rvconst should not do anything if the constant’s value is a glob.

8 years agoRemove compile-time checking of rv2?v with const kid
Father Chrysostomos [Mon, 25 Aug 2014 05:12:52 +0000 (22:12 -0700)]
Remove compile-time checking of rv2?v with const kid

There was code in op.c:ck_rvconst (which runs when creating a derefer-
ence op, such as rv2sv, rv2av, etc.) that would check that a constant
kid holding a reference pointed to something of the right type.  It
failed to take overloading into account.

The result was that these lines would fail to compile:


even though they should work.

Since the overloadedness could change any time, even checking for that
in op.c is incorrect.  The only correct fix is to remove this compile-
time check.  If something naughty gets through, it will be caught
at run time.

This fixes bugs #122607 and #69456.

8 years agoTest fpclassify() with full compile.
Jarkko Hietaniemi [Mon, 25 Aug 2014 01:21:04 +0000 (21:21 -0400)]
Test fpclassify() with full compile.

inlibc test is no good since it is likely to be a macro.

Also fix typo in fp_classify().  Yes, both exist.

8 years agoReorder the *fp*class* in preference order, add comments.
Jarkko Hietaniemi [Sun, 24 Aug 2014 22:43:29 +0000 (18:43 -0400)]
Reorder the *fp*class* in preference order, add comments.

Most importantly, try C99 fpclassify() first.

Use fp_classify() and fp_classl().

8 years agoConfigure scan for fp_classl().
Jarkko Hietaniemi [Mon, 25 Aug 2014 00:12:16 +0000 (20:12 -0400)]
Configure scan for fp_classl().

8 years agoConfigure scan for fp_classify().
Jarkko Hietaniemi [Sun, 24 Aug 2014 22:40:19 +0000 (18:40 -0400)]
Configure scan for fp_classify().

8 years agoMore is_inf() et alia dance.
Jarkko Hietaniemi [Sun, 24 Aug 2014 22:34:05 +0000 (18:34 -0400)]
More is_inf() et alia dance.

Too many almost similar interfaces.

Most importantly go for isinf() and isnan() if available,
instead of going for the labyrinth of *fp*class* interfaces.

8 years agoMore robust inf/nan recognition and generation.
Jarkko Hietaniemi [Sun, 24 Aug 2014 02:49:04 +0000 (22:49 -0400)]
More robust inf/nan recognition and generation.

Drop INFNAN_PEEK, premature optimization and hard to get right (it
basically imitates unrolled first half of grok_infnan).  Just keep
grok_infan fast.  (There is one spot in grok_number_flags() where we
peek at the next byte to avoid wasted work.)

If falling back (from not having NV_INF/NV_NAN) to the native strtod
(or similar), fake the input based on the grok_infnan result.
Add last-resort ways to generate inf/nan.

Recognize explicit unary plus, like "+Inf", and "INFINITE".

In tests use cmp_ok(), fix typos, add tests.

8 years ago[Merge] Eliminate PL_lex_expect; fix one bug; other clean-up
Father Chrysostomos [Mon, 25 Aug 2014 02:03:29 +0000 (19:03 -0700)]
[Merge] Eliminate PL_lex_expect; fix one bug; other clean-up

PL_expect (PL_parser->expect) is what the lexer uses to keep track of
what type of thing to expect next.  This (partly) determines whether
‘{’ begins a block, or an anonymous hash, or a subscript.

In numerous cases PL_expect was being set to the wrong value.  There
were extra statements to set it back to the right value.  There was
also a mechanism to save the value (force_next/PL_lex_expect) and
restore it later.

If we just set PL_expect to the correct values to begin with, we can
simplify things conceptually and reduce the amount of code.

I fixed bug #80368 in the process, since it got in the way.

I also fixed up some comments in toke.c and changed PL_parser to
parser in perly.y.

8 years agoIn perly.y, change PL_parser to parser
Father Chrysostomos [Fri, 22 Aug 2014 13:18:01 +0000 (06:18 -0700)]
In perly.y, change PL_parser to parser

All these code snippets are embedded inside a function
(perly.c:yyparse) that puts the current value of PL_parser in a local
variable named parser.  So the two are equivalent, but the latter
only has to access a local variable.


$ ls -ld perly.o
-rw-r--r--  1 sprout  staff  94748 Aug 22 06:12 perly.o


$ ls -ld perly.o
-rw-r--r--  1 sprout  staff  94340 Aug 22 06:15 perly.o

8 years agoSet PL_expect only once after curly subscripts
Father Chrysostomos [Fri, 22 Aug 2014 13:13:17 +0000 (06:13 -0700)]
Set PL_expect only once after curly subscripts

When curly subscripts are parsed, the lexer (toke.c:yylex) notes that
the value of PL_expect needs to be set to XSTATE (expecting a state-
ment) after the final brace.  When the final brace is encountered,
PL_expect is set to that recorded value.  But then the parser
(perly.y) sets it to XOPERATOR immediately thereafter.

This approach requires a plethora of identical statements in perly.y.
If we just set PL_expect to the right value to begin with, we can
avoid all those assignments.

8 years agoparser.h: Comment that lex_expect is unused
Father Chrysostomos [Sat, 23 Aug 2014 01:15:26 +0000 (18:15 -0700)]
parser.h: Comment that lex_expect is unused

There is at least one CPAN module (Data::Alias) that assigns to this.
Removing it won’t shrink the parser struct because of alignment, so
it doesn’t gain us anything.  Just leave it for now.  We can remove
it later if we have to.

8 years agotoke.c: Remove PL_lex_expect define
Father Chrysostomos [Sat, 23 Aug 2014 01:14:06 +0000 (18:14 -0700)]
toke.c: Remove PL_lex_expect define

This is no longer used.

8 years agoStop setting PL_lex_expect
Father Chrysostomos [Fri, 22 Aug 2014 13:02:17 +0000 (06:02 -0700)]
Stop setting PL_lex_expect

As of two commits ago, nothing uses its value any more.

8 years agotoke.c: Consolidate some PL_expect assignments
Father Chrysostomos [Fri, 22 Aug 2014 13:01:45 +0000 (06:01 -0700)]
toke.c: Consolidate some PL_expect assignments

The previous commit allows these settings of PL_expect to be combined.
We no longer need one before force_next in each instance.

8 years agoStop using the value of PL_expect
Father Chrysostomos [Fri, 22 Aug 2014 12:53:42 +0000 (05:53 -0700)]
Stop using the value of PL_expect

The changes in commits leading up to this one avoided unnecessary
PL_expect assignments that would soon be clobbered by this
‘PL_expect = PL_lex_expect’ that restores the previous value.

Hence, we no longer even need to read the value of PL_lex_expect since
PL_expect hasn’t changed.

Just one piece of code (KEY_package) was setting PL_lex_expect
directly instead of having force_next copy it from PL_expect, so this
commit changes it to set PL_expect to the correct value.

8 years agotoke.c: For plugins, don’t set PL_expect if PL_nexttoke
Father Chrysostomos [Sat, 23 Aug 2014 01:11:23 +0000 (18:11 -0700)]
toke.c: For plugins, don’t set PL_expect if PL_nexttoke

When a parsing plugin finishes parsing its stuff, the lexer may have
emitted one more token than the construct it was parsing (if the
plugin called parsing API functions like parse_fullstmt).  In such
cases, yyunlex has pushed that token on to the pending token stack
with force_next.

When the lexer is about to emit the plugin’s parsed statement or
expression, if there is a pending token, then it does not need to set
PL_expect, since the previous value will be restored anyway when the
pending token is emitted.

The next commit will disable that save-and-restore mechanism for
PL_expect, so we must not assign to it here.

8 years agotoke.c: Touch PL_expect less for implicit [.,] in quotes
Father Chrysostomos [Fri, 22 Aug 2014 12:45:27 +0000 (05:45 -0700)]
toke.c: Touch PL_expect less for implicit [.,] in quotes

When emitting implicit commas and cats, there is no need to set
PL_expect at the same time, since these code paths have already set
it to the correct value.  Also, the two instances of Aop would check
the current parse position for an ‘=’ to make an assignment operator.
But that could never happen in these two code paths, so the check
was a waste.

8 years ago[perl #80368] Fix implicit assignop in qq"a\U="
Father Chrysostomos [Fri, 22 Aug 2014 12:40:18 +0000 (05:40 -0700)]
[perl #80368] Fix implicit assignop in qq"a\U="

The bug report explains it all:
> $ perl -e 'print "a\U="'
> Can't modify constant item in concatenation (.) or string at -e line 1, near "print "a\U=""
> Execution of -e aborted due to compilation errors.
> The "a\U=" string constant ought to generate ops corresponding roughly to
> "a".uc("=") (which would then be constant-folded).  However, the "=" is
> being interpreted by the tokeniser as part of the concatenation operator,
> producing ops corresponding to "a".=uc("") (which generates the error).
> This happens because the implicit concatenation operator is generated
> in toke.c via the Aop() macro, which allows an addition-type operator
> to be mutated into an assignment operator if it is immediately followed
> by an "=".  It should instead be generated via one of the other macros,
> or possibly a new macro, that doesn't allow for mutation to an assignment
> operator.

This commit does the latter.

> There are multiple sites in toke.c making the same mistake.

The other two instances are harmless, but the next commit will change
them for a different reason (avoiding unnecessary PL_expect assign-
ments with a view to eventually removing PL_lex_expect).

8 years agotoke.c: Correct S_ao description
Father Chrysostomos [Fri, 22 Aug 2014 05:25:17 +0000 (22:25 -0700)]
toke.c: Correct S_ao description

It applies not just to control flow assignment operators, but to all
‘x=’-style operators.

8 years agotoke.c: Skip PL_expect assignment under KEY_require
Father Chrysostomos [Fri, 22 Aug 2014 04:44:39 +0000 (21:44 -0700)]
toke.c: Skip PL_expect assignment under KEY_require

Only set PL_expect here when force_word has realised there is no word
there and has not called force_next.  Setting PL_expect after a call
to force_next is useless, as force_next causes its saved value to be
restored when the next token is emitted.

Changing this may seem silly, as an unconditional assignment may even
be faster, but this will allow me to eliminate PL_lex_expect and make
PL_expect handling simpler than before.

8 years agotoke.c: Rework LOOPX macro
Father Chrysostomos [Fri, 22 Aug 2014 01:19:31 +0000 (18:19 -0700)]
toke.c: Rework LOOPX macro

All its callers have the same two lines preceding it, so fold them
into the macro.  Only assign to PL_expect after the force_word call if
force_word did not find a word.  (If it did find one, then force_next
would have recorded the previous PL_expect value, which will clobber
the one we have just assigned.)

8 years agotoke.c:S_lop: Don’t set PL_expect if PL_nexttoke
Father Chrysostomos [Fri, 22 Aug 2014 00:59:06 +0000 (17:59 -0700)]
toke.c:S_lop: Don’t set PL_expect if PL_nexttoke

Don’t set PL_expect if we have a ‘next token’, because when it is
popped off the pending token stack PL_expect will be set to the
saved value, clobbering this assigned value.  So the assignment is

8 years agoExpand a comment in toke.c (eliminate ‘why?’)
Father Chrysostomos [Thu, 21 Aug 2014 20:16:59 +0000 (13:16 -0700)]
Expand a comment in toke.c (eliminate ‘why?’)

8 years agoSet PL_expect less often when parsing semicolons
Father Chrysostomos [Thu, 21 Aug 2014 19:47:58 +0000 (12:47 -0700)]
Set PL_expect less often when parsing semicolons

As it worked before, the parser (perly.y) would set PL_expect to
XSTATE after encountering a statement-terminating semicolon.

Two functions in op.c--package and utilize--had to set the value to
XSTATE as a result.

Also, in the case of a closing brace, the lexer emits an implicit
semicolon followed by '}' (emitted via force_next).  force_next
records the value of PL_expect and restores it when emitting the
token.  So in this case the value of PL_expect was flipping back and
forth between two values.

Instead of having the parser set it to XSTATE, we can have the lexer
set it to XSTATE by default when emitting an explicit semicolon.  (It
was setting it to XTERM.)  The parser can set it to XTERM in the only
place that matters; viz., the header of a for-loop.  This simplifies
things conceptually, and makes the code a whole line shorter.

(The diff stat shows more savings in line count, but that is because
the version of bison I used to regenerate the tables produces smaller
headers than what was already committed.)

8 years agotoke.c: Don’t set PL_expect when emitting USE tokens
Father Chrysostomos [Thu, 21 Aug 2014 05:18:38 +0000 (22:18 -0700)]
toke.c: Don’t set PL_expect when emitting USE tokens

This is a follow-up to 52d0e95bf.

It is not necessary to set PL_expect (via TERM or OPERATOR) since
tokenize_use has already done it.  In 52d0e95bf I only changed one of
tokenize_use’s callers, and changed it the wrong way.

No behaviour changes.

8 years agoUpdate Module-CoreList for 5.20.1
Steve Hay [Mon, 25 Aug 2014 01:10:42 +0000 (02:10 +0100)]
Update Module-CoreList for 5.20.1

(Excluding %upstream and %bug_tracker portions, which involve modules that
are no longer in blead (e.g. Module-Build) and therefore are not suitable
for committing to blead and then cherry-picking to maint; they will be
committed directly to maint instead.)

8 years agoAdd new pumpkin keeper victim following release of 5.21.3
Steve Hay [Sun, 24 Aug 2014 23:23:27 +0000 (00:23 +0100)]
Add new pumpkin keeper victim following release of 5.21.3

8 years agoperlxs: Add text about dealing with locales, etc
Karl Williamson [Fri, 22 Aug 2014 04:40:42 +0000 (22:40 -0600)]
perlxs: Add text about dealing with locales, etc

This pod has been totally silent about monkey wrenches that could be
thrown by XS code doing things that can affect perl.  Add a few
cautions, including some detailed information about one area where we
have been bitten: locales.

8 years agoMake eval_pv documentation more precise
Tadeusz Sośnierz [Sun, 24 Aug 2014 13:13:28 +0000 (15:13 +0200)]
Make eval_pv documentation more precise

8 years agoIncrease $_charnames::VERSION to 1.42
Father Chrysostomos [Sun, 24 Aug 2014 06:31:01 +0000 (23:31 -0700)]
Increase $_charnames::VERSION to 1.42

8 years agoPartial minitest fix-up
Father Chrysostomos [Sun, 24 Aug 2014 06:22:26 +0000 (23:22 -0700)]
Partial minitest fix-up

While minitest passes all its tests when everything has been
built, it is sometimes useful to run it when nothing has been
built but miniperl (especially when one is working on low-level
stuff that breaks miniperl).  Many tests fail if things have
not been built yet because miniperl can’t find modules like  This patch fixes up some tests to find those modules
and changes to load File::Spec only when it
needs it.

There are still many more failures, but I’ll leave the rest
for another time (or another hacker :-).

8 years agoperldiag grammar tweaks
Father Chrysostomos [Tue, 19 Aug 2014 17:04:20 +0000 (10:04 -0700)]
perldiag grammar tweaks

8 years agoExplicitly cast to MANTISSATYPE since some compilers worry.
Jarkko Hietaniemi [Sun, 24 Aug 2014 01:43:17 +0000 (21:43 -0400)]
Explicitly cast to MANTISSATYPE since some compilers worry.

8 years agoFix bad quoting.
Jarkko Hietaniemi [Sun, 24 Aug 2014 01:24:14 +0000 (21:24 -0400)]
Fix bad quoting.

8 years agoUpdate HTTP-Tiny to CPAN version 0.048
Chris 'BinGOs' Williams [Sat, 23 Aug 2014 20:41:31 +0000 (21:41 +0100)]
Update HTTP-Tiny to CPAN version 0.048


0.048     2014-08-21 13:19:51-04:00 America/New_York


    - Protected proxy tests from ALL_PROXY in the environment

8 years agoUpdate ExtUtils-CBuilder version for CPAN release
Chris 'BinGOs' Williams [Sat, 23 Aug 2014 20:35:09 +0000 (21:35 +0100)]
Update ExtUtils-CBuilder version for CPAN release

8 years agoInclude fp.h with math.h on VMS.
Craig A. Berry [Sat, 23 Aug 2014 15:42:26 +0000 (10:42 -0500)]
Include fp.h with math.h on VMS.

It has some macros that really should be in math.h according to C99.

8 years agoVMS has the isfinite macro on all architectures.
Craig A. Berry [Sat, 23 Aug 2014 15:31:39 +0000 (10:31 -0500)]
VMS has the isfinite macro on all architectures.

And regardless of whether we're using IEEE math or not.  If we're
not, then everything is finite by definition because we would've
seen an exception before getting to the point of checking for
finitude, so the macro translates to "1" in those cases.

As of this writing, the isfinite macro requires the inclusion of
fp.h, not just math.h as C99 stipulates, and it also appears not
to handle long doubles.

8 years agoSkip strtold in concise-xs.t, "platform varying".
Jarkko Hietaniemi [Sat, 23 Aug 2014 14:41:29 +0000 (10:41 -0400)]
Skip strtold in concise-xs.t, "platform varying".

Not on Win32, for example.

8 years agoTest 9**9**9 for Inf and sin(9**9**9) for NaN.
Jarkko Hietaniemi [Sat, 23 Aug 2014 12:53:37 +0000 (08:53 -0400)]
Test 9**9**9 for Inf and sin(9**9**9) for NaN.

8 years agoRevert "Test 9**9**9 for Inf and sin(9**9**9) for NaN."
Jarkko Hietaniemi [Sat, 23 Aug 2014 12:49:29 +0000 (08:49 -0400)]
Revert "Test 9**9**9 for Inf and sin(9**9**9) for NaN."

This reverts commit 3761cb2c37385299211e45c965fb0d727e13c80b.

8 years agoThe less-than-zero branch needs to be the default always.
Jarkko Hietaniemi [Sat, 23 Aug 2014 12:40:51 +0000 (08:40 -0400)]
The less-than-zero branch needs to be the default always.

8 years agoTest 9**9**9 for Inf and sin(9**9**9) for NaN.
Jarkko Hietaniemi [Sat, 23 Aug 2014 12:21:27 +0000 (08:21 -0400)]
Test 9**9**9 for Inf and sin(9**9**9) for NaN.

8 years agoDo not test memcmp et al, now also Linux inlined it.
Jarkko Hietaniemi [Sat, 23 Aug 2014 12:14:20 +0000 (08:14 -0400)]
Do not test memcmp et al, now also Linux inlined it.

See perl #122595.

8 years agoOld HP-UXen had a non-standard strtold().
Jarkko Hietaniemi [Sat, 23 Aug 2014 00:38:25 +0000 (20:38 -0400)]
Old HP-UXen had a non-standard strtold().

8 years agoFix infnan.t Win32 failure.
Jarkko Hietaniemi [Fri, 22 Aug 2014 20:42:22 +0000 (16:42 -0400)]
Fix infnan.t Win32 failure.

8 years agoFix the PEEK_INFNAN (wrong macro arg name).
Jarkko Hietaniemi [Fri, 22 Aug 2014 18:52:46 +0000 (14:52 -0400)]
Fix the PEEK_INFNAN (wrong macro arg name).

Also rename as INFNAN_PEEK, to match HEXFP_PEEK.

Add "send" pointer to INFNAN_PEEK to guard againt past-the-buffer peeking.

HEXFP_PEEK doesn't easily lend itself to "send" pointer
because of it's calling environment doesn't have one.

8 years agoRemove obsolete comment.
Jarkko Hietaniemi [Fri, 22 Aug 2014 16:33:37 +0000 (12:33 -0400)]
Remove obsolete comment.

8 years agoIf this format ever happens, it is probably left-aligned.
Jarkko Hietaniemi [Fri, 22 Aug 2014 14:56:10 +0000 (10:56 -0400)]
If this format ever happens, it is probably left-aligned.

(Having unused bytes in the left/low/front makes no sense.)