This is a live mirror of the Perl 5 development currently hosted at
7 years agoPOSIX math: log1p emulation was wrong.
Jarkko Hietaniemi [Tue, 9 Sep 2014 17:02:19 +0000 (13:02 -0400)]
POSIX math: log1p emulation was wrong.

While at it, add quartic term to both expm1 and log1p.

7 years agoSkip warnable const folding outside warnings scope
Father Chrysostomos [Tue, 9 Sep 2014 13:13:43 +0000 (06:13 -0700)]
Skip warnable const folding outside warnings scope

Constant folding is not supposed to warn.  If it would produce a warn-
ing, then it is skipped and the warning is deferred to run time.

This means the -w flag can affect constant folding:

$ ./perl -Ilib -MO=Concise -le 'use constant u=>undef; $a = u+1'
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 132 -e:1) v:{ ->3
5     <2> sassign vKS/2 ->6
3        <$> const[NV 1] s/FOLD ->4
-        <1> ex-rv2sv sKRM*/1 ->5
4           <#> gvsv[*a] s ->5
-e syntax OK
$ ./perl -Ilib -MO=Concise -lwe 'use constant u=>undef; $a = u+1'
8  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 132 -e:1) v:{ ->3
7     <2> sassign vKS/2 ->8
5        <2> add[t2] sK/2 ->6
3           <$> const[NULL ] s*/FOLD ->4
4           <$> const[PVNV 1] s ->5
-        <1> ex-rv2sv sKRM*/1 ->7
6           <#> gvsv[*a] s ->7
-e syntax OK

But the problem here is that the flag could be turned on at run time,
so if the folding happens because -w is off, then the behaviour
changes due to folding.  It’s fine to do the folding here only when
warnings are lexically disabled, as that overrides any setting of -w.

7 years agoRename S_infnan_copy as S_infnan_2pv.
Jarkko Hietaniemi [Tue, 9 Sep 2014 13:51:44 +0000 (09:51 -0400)]
Rename S_infnan_copy as S_infnan_2pv.

7 years agoAdd gtags and ctags files into .gitignore
Jarkko Hietaniemi [Tue, 9 Sep 2014 12:32:26 +0000 (08:32 -0400)]
Add gtags and ctags files into .gitignore

7 years ago[perl #122728] Make sub(){undef} inlinable
Father Chrysostomos [Tue, 9 Sep 2014 05:54:10 +0000 (22:54 -0700)]
[perl #122728] Make sub(){undef} inlinable

7 years agoStop barewords from trumping subs with (*) proto
Father Chrysostomos [Tue, 9 Sep 2014 05:37:46 +0000 (22:37 -0700)]
Stop barewords from trumping subs with (*) proto

The splat prototype was allowing barewords to take precedence over
sub calls, if those sub calls did not parenthesize the argument list.

But it was rather buggy and inconsistent:

$ perl -le 'sub splat(*){print @_} sub foo; splat main::foo'

What happened to main::?

$ perl -le 'package Foo; sub splat(*){print @_} sub foo; splat foo'

Where did the prefix come from?

And constant subroutines were exempt from this, but whether a subrou-
tine is constant may change between versions:

$ perl5.14.4 -le 'sub splat(*){print @_} sub foo(){"x"x3}; splat foo'
$ perl5.18.1 -le 'sub splat(*){print @_} sub foo(){"x"x3}; splat foo'

because infix x is now subject to constant folding.


$ perl5.18.1 -le 'sub splat(*){print @_} BEGIN {$::{foo}=*bar}sub bar; splat foo'

I know this is a naughty example, because it’s fiddling with the sym-
bol table, but if the splat gets confused by that, then something is
quite wrong with its implementation.

Furthermore, one of the stated purposes of prototypes is to enable
custom subroutines to mimic the syntax of built-in functions.  But
*all* the built-in functions that take filehandles allow subroutines
to take precedence over barewords.

This commit allows all subroutines as arguments to the * prototype
to take precedence over barewords, just as constant subroutines
have till now.

This also fixes #35129, because the mechanism that was accidentally
swallowing arguments is now gone.

7 years agoGet mkdir.t working under miniperl *again*
Father Chrysostomos [Tue, 9 Sep 2014 03:15:58 +0000 (20:15 -0700)]
Get mkdir.t working under miniperl *again*

In commit ca7cc9e26e, I got mkdir.t to pass under miniperl when has not been generated yet.

The way I did it, though, causes the test to fail under miniperl if *has* been generated.  The ‘require’ call that tests to
see whether Errno can load ends up resetting $! before we test the
value in %!.

Also, we don’t need require inside a string eval.

7 years agohexfp: double-double correct test goldens.
Jarkko Hietaniemi [Tue, 9 Sep 2014 03:00:12 +0000 (23:00 -0400)]
hexfp: double-double correct test goldens.

7 years agohexfp: Implement double-double hexdigit extraction.
Jarkko Hietaniemi [Tue, 9 Sep 2014 02:48:35 +0000 (22:48 -0400)]
hexfp: Implement double-double hexdigit extraction.

(as instructed by sisyphus@)

7 years agorelease schedule: add managers for 5.21.6, 5.21.8
Ricardo Signes [Tue, 9 Sep 2014 02:23:33 +0000 (22:23 -0400)]
release schedule: add managers for 5.21.6, 5.21.8

7 years agoDocument the IBM admission of weirdness of AIX long doubles.
Jarkko Hietaniemi [Mon, 8 Sep 2014 21:14:01 +0000 (17:14 -0400)]
Document the IBM admission of weirdness of AIX long doubles.

Also skip the infnan test in AIX + long doubles because given
the IBM documentation it ain't gonna happen.

7 years agoNot nice to die in the middle of a test.
Jarkko Hietaniemi [Mon, 8 Sep 2014 20:35:47 +0000 (16:35 -0400)]
Not nice to die in the middle of a test.

7 years agoThe recent pad changes needed dVAR love.
Jarkko Hietaniemi [Mon, 8 Sep 2014 20:14:17 +0000 (16:14 -0400)]
The recent pad changes needed dVAR love.


7 years agoPOSIX math: AIX fixes.
Jarkko Hietaniemi [Mon, 8 Sep 2014 20:02:53 +0000 (16:02 -0400)]
POSIX math: AIX fixes.

AIX doesn't seemingly really have the long double math interfaces.

7 years agoPOSIX math: stupidness in 9e010b89
Jarkko Hietaniemi [Mon, 8 Sep 2014 17:39:50 +0000 (13:39 -0400)]
POSIX math: stupidness in 9e010b89

7 years agoPOSIX math: implement lround().
Jarkko Hietaniemi [Mon, 8 Sep 2014 14:56:52 +0000 (10:56 -0400)]
POSIX math: implement lround().

Somehow had missed this so far, but probably because in Perl terms
it is very similar to round(), and very similar to rint().

The API variations are fascinating: round(), roundl(), lround(), lroundl(),
llround(), llroundl().

7 years agoPOSIX math: NV_NAN can be the right answer for nan().
Jarkko Hietaniemi [Mon, 8 Sep 2014 14:38:20 +0000 (10:38 -0400)]
POSIX math: NV_NAN can be the right answer for nan().

7 years agoPOSIX math: HP-UX support varies depending on HP cc.
Jarkko Hietaniemi [Mon, 8 Sep 2014 14:37:39 +0000 (10:37 -0400)]
POSIX math: HP-UX support varies depending on HP cc.

7 years agoop.c: Calculate hash for CvNAME_HEK
Father Chrysostomos [Sat, 30 Aug 2014 17:26:58 +0000 (10:26 -0700)]
op.c: Calculate hash for CvNAME_HEK

I assumed when I wrote that code that share_hek would calculate the
hash, like most hash functions; but this internal function assumes
the caller does it.

Hence, CVs were not sharing their heks with other types of thingies
that have heks.  A CV named foo and a GV named foo would cause two
heks of the same name to be present in the shared string table.

7 years ago5df8ece2 didn't really allow one to keep long doubles.
Jarkko Hietaniemi [Sun, 7 Sep 2014 02:13:03 +0000 (22:13 -0400)]
5df8ece2 didn't really allow one to keep long doubles.

(It undefed the symbol, but stripped the flags and libs.)

7 years agomodfl emulation via truncl (C99) and copysignl.
Jarkko Hietaniemi [Sun, 7 Sep 2014 02:01:01 +0000 (22:01 -0400)]
modfl emulation via truncl (C99) and copysignl.

(We've had emulation for broken modfl before,
 but it used aintl, which is not that common.)

7 years agoConfigure: scan for truncl.
Jarkko Hietaniemi [Sun, 7 Sep 2014 01:55:03 +0000 (21:55 -0400)]
Configure: scan for truncl.

(C99 version of aintl)

7 years agoPrecompute hash for require() arg
Father Chrysostomos [Mon, 8 Sep 2014 01:08:35 +0000 (18:08 -0700)]
Precompute hash for require() arg

Arguments to require() get lookup up in %INC, so if we precompute the
hash at compile time (where possible) then require() should be faster
at run time.

My unsophisticated tests show a 2-3% increase in speed, but that may
just be noise.

7 years agoFix documented return type for PAD_SV
Peter Martini [Mon, 8 Sep 2014 00:34:29 +0000 (20:34 -0400)]
Fix documented return type for PAD_SV

It should be SV *, just like PAD_SVl, since (except under DEBUGGING)
it is actually the same macro.

7 years agoAdd perldelta entry for Getopt::Std.
James E Keenan [Sun, 7 Sep 2014 23:37:21 +0000 (19:37 -0400)]
Add perldelta entry for Getopt::Std.

List updated modules in more ASCII-betical order.

7 years agoCorrect typo reported by Hauke D. (RT #41359)
James E Keenan [Sun, 7 Sep 2014 23:26:53 +0000 (19:26 -0400)]
Correct typo reported by Hauke D. (RT #41359)

Increment $VERSION for Getopt::Std.

7 years agoperldelta for 7950e9cf39
Father Chrysostomos [Sun, 7 Sep 2014 19:35:40 +0000 (12:35 -0700)]
perldelta for 7950e9cf39

7 years agoperldelta: Move compile-time const deref checking
Father Chrysostomos [Sun, 7 Sep 2014 19:15:32 +0000 (12:15 -0700)]
perldelta: Move compile-time const deref checking

This is a change in behaviour, so it should be more prominent than the
bug fixes, but it is not a backward-incompatible change (some code no
longer dies that used to), nor it is really a new feature.  Putting it
in Diagnostics is the best I can come up with.

7 years agoperldelta: Move a bug fix
Father Chrysostomos [Sun, 7 Sep 2014 19:10:49 +0000 (12:10 -0700)]
perldelta: Move a bug fix

to the bug fix section.  Oops.

7 years agoperldelta for 7950e9cf3
Father Chrysostomos [Sun, 7 Sep 2014 19:08:09 +0000 (12:08 -0700)]
perldelta for 7950e9cf3

7 years agoperldelta for a14c24d0
Father Chrysostomos [Sun, 7 Sep 2014 19:02:27 +0000 (12:02 -0700)]
perldelta for a14c24d0

7 years agoperldelta for 7bdb4ff09
Father Chrysostomos [Sun, 7 Sep 2014 18:20:17 +0000 (11:20 -0700)]
perldelta for 7bdb4ff09

7 years agoperldelta for 64ff300b/#122669
Father Chrysostomos [Sun, 7 Sep 2014 18:15:41 +0000 (11:15 -0700)]
perldelta for 64ff300b/#122669

7 years agoAdd epigraph for 5.20.1-RC2
Steve Hay [Sun, 7 Sep 2014 17:32:29 +0000 (18:32 +0100)]
Add epigraph for 5.20.1-RC2

7 years ago5.20.1-RC2 today
Steve Hay [Sun, 7 Sep 2014 16:21:33 +0000 (17:21 +0100)]
5.20.1-RC2 today

7 years agoRemove GV_ADDINEVAL
Father Chrysostomos [Sun, 7 Sep 2014 05:42:19 +0000 (22:42 -0700)]

This flag does absolutely nothing.  The use of 8 as a flag to pass to
gv_fetchpv was added in this commit:

commit 93233ece75d8fe98a77377e72c4d6004c5ea8691
Author: Chip Salzenberg <>
Date:   Tue Mar 3 04:39:49 1998 +0000

    [win32] merge problematic maintpatch to op.c
            #77:  "Eliminate double warnings under C<package;>"
          Files:  gv.c op.c toke.c

But nothing in gv.c made use of it at the time.

Later it was changed into a #define in commit 0f303493c6.  Subse-
quently more uses were added in 77ca0c92 and f558d5af04.

It still does nothing.  Nothing outside the perl core references it.

7 years agomro.c: Don’t inline sv_sethek
Father Chrysostomos [Sun, 7 Sep 2014 00:38:29 +0000 (17:38 -0700)]
mro.c: Don’t inline sv_sethek

This code actually long predates sv_sethek.  But now that we have it,
we can call it, reducing the size of mro.o.

7 years agoregcomp.c: Don't doubly do 'use encoding'
Karl Williamson [Fri, 5 Sep 2014 16:15:09 +0000 (10:15 -0600)]
regcomp.c: Don't doubly do 'use encoding'

When reparsing, values have already been converted (if necessary) to
native, so don't do it again.

7 years agoregcomp.c: Remove extraneous tests
Karl Williamson [Fri, 5 Sep 2014 15:45:27 +0000 (09:45 -0600)]
regcomp.c: Remove extraneous tests

These two messages used to be warnings, but are now errors, so there is
no need to test which pass they are being output in.

7 years agoAllow \N{named seq} in qr/[...]/
Karl Williamson [Fri, 5 Sep 2014 15:09:28 +0000 (09:09 -0600)]
Allow \N{named seq} in qr/[...]/

This commit changes the regex handler to properly match in many
instances a \N{named sequence} in a bracketed character class.

A named sequence is one which consists of a string of multiple
characters but given one name.  Unicode has hundreds of them, like LATIN
CAPITAL LETTER A WITH MACRON AND GRAVE.  These are encoded by Unicode
when there is some user community that thinks of the conglomeration as a
single unit, but there was no prior standard that had it so, and it is
possible to encode it in Unicode using other means, typically a sequence
of a base character followed by some combining marks.  (If there had not
been such a prior standard, 8859-1, things like LATIN CAPITAL LETTER A
WITH GRAVE would have been put into Unicode this way too.)  If they did
not do it this way, they would run out of availble code points much

Not having these as single characters adds a burden to the programmer
having to deal with them.  Hiding this detail as much as possible makes
it easier to program.  This commit hides this in one more place than

It takes advantage of the infrastructure added some releases ago dealing
with the fact that the match of some single characters
case-insensitively can be 2 or even 3 characters.

  "ss" =~ /[ß]/i;

is the most prominent example.

We earlier discovered that /[^ß]/ leads to unexpected behavior, and
using one of these sequences as an endpoint in a range is also unclear
as to what is meant.  This commit leaves existing behavior for those
cases.  That behavior is to use just the first code point in the
sequence for regular [...], and to generate a fatal syntax error for

7 years agoregcomp.c: Extract out functionality into a function
Karl Williamson [Sun, 7 Sep 2014 03:30:14 +0000 (21:30 -0600)]
regcomp.c: Extract out functionality into a function

This is in preparation for it being called from a 2nd place.  The code
was merely moved and outdented, and comments moved within the function
and added to.

7 years agoregcomp.c: White-space only
Karl Williamson [Thu, 4 Sep 2014 02:00:28 +0000 (20:00 -0600)]
regcomp.c: White-space only

Properly indent code in blocks newly formed by the previous commit

7 years agoregcomp.c: Refactor func so caller handles anomalies
Karl Williamson [Thu, 4 Sep 2014 01:52:05 +0000 (19:52 -0600)]
regcomp.c: Refactor func so caller handles anomalies

S_grok_bslash_N() is refactored to not know about the strictness level
required by the caller, and to return things instead so that the caller
can decide what action to take.

This is in preparation for some changes in the caller's behavior in
future commits.

This has the effect of changing the parsing position or where a problem
occurs shown in a warning message.

7 years agoregcomp.c: Comment clarifications, nits
Karl Williamson [Thu, 4 Sep 2014 00:28:25 +0000 (18:28 -0600)]
regcomp.c: Comment clarifications, nits

7 years agoregcomp.c: Refactor one area to use common subroutine
Karl Williamson [Wed, 3 Sep 2014 23:31:39 +0000 (17:31 -0600)]
regcomp.c: Refactor one area to use common subroutine

By using the inline function append_utf8_from_native_byte(), the details
of this conversion are hidden from here.  Since that routine advances
the parsing pointer with each byte, this has to be slightly refactored.

7 years agoPATCH: [perl #122671] Many warnings in regcomp.c can occur twice
Karl Williamson [Tue, 2 Sep 2014 02:00:01 +0000 (20:00 -0600)]
PATCH: [perl #122671] Many warnings in regcomp.c can occur twice

This solves the problem by moving the warnings to be output only in
pass2 of compilation.  The problem arises because almost all of pass1
can be repeated under certain circumstances described in the ticket and
the added comments of this patch.

7 years agorecomp.c: output given warning in only one pass
Karl Williamson [Tue, 2 Sep 2014 00:54:03 +0000 (18:54 -0600)]
recomp.c: output given warning in only one pass

Otherwise, it will be output multiple times.  This warning was untested
for as well.

7 years agoregcomp.c: Vertically stack ternary
Karl Williamson [Mon, 1 Sep 2014 22:44:38 +0000 (16:44 -0600)]
regcomp.c: Vertically stack ternary

for legibility

7 years agoregcomp.c: Don't prematurely skip error checking
Karl Williamson [Mon, 1 Sep 2014 20:57:49 +0000 (14:57 -0600)]
regcomp.c: Don't prematurely skip error checking

The assertion in the comment changed by this commit was true only for
pass1 of the regex compilation; not pass2.  This makes it true in both
passes by moving it, and the code it was about past some error checking.
This error checking was executed in pass1, but not pass2.  It also
changes the warning to only be done in the second pass, part of
[perl #122671].  A future commit will fix the others

7 years agoregcomp.c: Move comment closer to code it applies to
Karl Williamson [Mon, 1 Sep 2014 20:48:02 +0000 (14:48 -0600)]
regcomp.c: Move comment closer to code it applies to

7 years agoregcomp.c: Remove unnecessary cast
Karl Williamson [Fri, 29 Aug 2014 03:12:39 +0000 (21:12 -0600)]
regcomp.c: Remove unnecessary cast

The macro does the appropriate cast, and this is slightly more legible.

7 years agoregcomp.c: Make macro a lookup
Karl Williamson [Tue, 26 Aug 2014 21:34:25 +0000 (15:34 -0600)]
regcomp.c: Make macro a lookup

The recently introduced macro isMNEMONIC_CNTRL has a look-up and several
tests in it, which occupy time and space.  Since it was only used for
debugging, that did not matter much, but future commits will use it in
more mainline code.  This commit changes it to be a single look-up,
using up one of the spare bits available for that purpose in
PL_charclass.  There are enough available bits that we aren't likely to
run out, really ever.  (We can always add a 2nd word of bits if

7 years agoregcomp.c: Extract functionality into a static function
Karl Williamson [Tue, 26 Aug 2014 23:29:31 +0000 (17:29 -0600)]
regcomp.c: Extract functionality into a static function

This is in preparation for it being used in more than one place in a
future commit.

7 years Typo in error message
Father Chrysostomos [Sat, 6 Sep 2014 17:21:00 +0000 (10:21 -0700)] Typo in error message

7 years agot/uni/parser.t: Make a test more robust
Father Chrysostomos [Sat, 6 Sep 2014 04:58:31 +0000 (21:58 -0700)]
t/uni/parser.t: Make a test more robust

It was checking that *tèst returns a true value, which is somewhat
redundant.  I think ‘is’ was meant, rather than ‘ok’, considering what
was the test name (*main::tèst).

7 years agoop.h: Correct PERL_LOADMOD_IMPORT_OPS comment
Father Chrysostomos [Sat, 6 Sep 2014 03:30:01 +0000 (20:30 -0700)]
op.h: Correct PERL_LOADMOD_IMPORT_OPS comment

This description, added in ec6d81aba, is misleading.

7 years agonumeric.c: Comment tweak
Karl Williamson [Fri, 5 Sep 2014 15:34:26 +0000 (09:34 -0600)]
numeric.c: Comment tweak

7 years agoSync up with meta after backports
H.Merijn Brand [Sat, 6 Sep 2014 19:58:22 +0000 (21:58 +0200)]
Sync up with meta after backports

This includes the inevitable reordering and some typo fixes

Note to committers that change Configure: when you add scans, thos will
only be included if used/referenced. You can force those in by adding a
reference in metaconfig.h

7 years agoLong double might have INFINITYL or NANL.
Jarkko Hietaniemi [Sat, 6 Sep 2014 18:12:05 +0000 (14:12 -0400)]
Long double might have INFINITYL or NANL.

7 years agoThe .i target should depend at least on perl.h and config.h.
Jarkko Hietaniemi [Sat, 6 Sep 2014 18:08:20 +0000 (14:08 -0400)]
The .i target should depend at least on perl.h and config.h.

While at it, do the same for the .s target.

7 years agoNV_INF/NV_NAN fallback where int32 is coerced to IEEE754 float.
Jarkko Hietaniemi [Sat, 6 Sep 2014 18:05:33 +0000 (14:05 -0400)]
NV_INF/NV_NAN fallback where int32 is coerced to IEEE754 float.

This is the second-to-last fallback.  The last one uses explicit
1/0.0 and 0/0.0 which may cause consternation with some compilers.

7 years agoPOSIX math: Add the opengroup URL for math.h
Jarkko Hietaniemi [Sat, 6 Sep 2014 11:49:03 +0000 (07:49 -0400)]
POSIX math: Add the opengroup URL for math.h

7 years agolex_utf8.t can run under miniperl
Father Chrysostomos [Fri, 5 Sep 2014 20:53:56 +0000 (13:53 -0700)]
lex_utf8.t can run under miniperl

but needs the Unicode tables built

7 years agoFix my constant $var utf8 confusion
Father Chrysostomos [Fri, 5 Sep 2014 20:53:00 +0000 (13:53 -0700)]
Fix my constant $var utf8 confusion

‘my some_constant $var’ tries to resolve some_constant to a package
name and then look that up, but, when using the value of the constant
to do a stash lookup, it was applying the utf8 flag if ‘use utf8’ was
in scope, even if the constant wasn’t utf8:

$ ./perl -Ilib -e 'use constant foo=>qq|\xc4\xb5|; BEGIN{${"\xc4\xb5::foo"}}; my foo $dog; print "ok\n"'
$ ./perl -Ilib -e 'use constant foo=>qq|\xc4\xb5|; BEGIN{${"\xc4\xb5::foo"}}; use utf8; my foo $dog; print "ok\n"'
No such class foo at -e line 1, near "; my foo"
Execution of -e aborted due to compilation errors.

7 years agofpclass snan detection errors (cut-n-paste).
Jarkko Hietaniemi [Fri, 5 Sep 2014 13:11:05 +0000 (09:11 -0400)]
fpclass snan detection errors (cut-n-paste).

7 years agoperl.c: fix small bug on Android from commit 9054c81
Alexandre (Midnite) Jousset [Fri, 5 Sep 2014 01:58:20 +0000 (03:58 +0200)]
perl.c: fix small bug on Android from commit 9054c81

Commit b33b7ab made PERL_LIB absolute when cross-compiling
on Android. Commit 9054c81 added incompatibility with
this. Now, only add "./" to run when
miniperl is running with -T.

7 years agoRemove -foo ambiguity warning
Father Chrysostomos [Fri, 5 Sep 2014 03:09:29 +0000 (20:09 -0700)]
Remove -foo ambiguity warning

$ ./perl -e 'sub foo{} -foo'
Ambiguous use of -foo resolved as -&foo() at -e line 1.

There is no ambiguity there, since unary minus does not force
its argument to be a bareword; it simply exempts barewords from

This warning also makes it harder to use constantly recently added
to POSIX.  To avoid that warning, for negative infinity you have to
write ‘- Inf’ or ‘-+Inf’, because the most natural way of writing it,
‘-Inf’, warns.

See <> and
related messages.

7 years agoListUtil.xs: Temporary fix removing declaration after statement.
George Greer [Fri, 5 Sep 2014 01:15:23 +0000 (21:15 -0400)]
ListUtil.xs: Temporary fix removing declaration after statement.

7 years agoIncrease $bigint::VERSION to 0.37
Father Chrysostomos [Fri, 5 Sep 2014 00:54:04 +0000 (17:54 -0700)]
Increase $bigint::VERSION to 0.37

7 years agoIncrease $bignum::VERSION to 0.38
Father Chrysostomos [Fri, 5 Sep 2014 00:53:30 +0000 (17:53 -0700)]
Increase $bignum::VERSION to 0.38

7 years agoIncrease $bigrat::VERSION to 0.37
Father Chrysostomos [Fri, 5 Sep 2014 00:53:12 +0000 (17:53 -0700)]
Increase $bigrat::VERSION to 0.37

7 years agobignum tests: use eval-block instead of eval-string
Olivier Mengué [Thu, 4 Sep 2014 22:34:04 +0000 (00:34 +0200)]
bignum tests: use eval-block instead of eval-string

7 years agobignum tests: use eval block to load Math::BigInt::Lite
Olivier Mengué [Thu, 4 Sep 2014 22:27:15 +0000 (00:27 +0200)]
bignum tests: use eval block to load Math::BigInt::Lite

7 years agobig{num,rat,int}: use eval block to load Math::BigInt::Lite
Olivier Mengué [Thu, 4 Sep 2014 22:17:23 +0000 (00:17 +0200)]
big{num,rat,int}: use eval block to load Math::BigInt::Lite

7 years agoPOSIX math: Use the Perl_ math APIs (C89) consistently.
Jarkko Hietaniemi [Thu, 4 Sep 2014 23:51:54 +0000 (19:51 -0400)]
POSIX math: Use the Perl_ math APIs (C89) consistently.

7 years agoVersion multibump.
Jarkko Hietaniemi [Thu, 4 Sep 2014 23:00:24 +0000 (19:00 -0400)]
Version multibump.

7 years agotoke.c: Avoid extra sv_setpv for foo <newline> =>
Father Chrysostomos [Thu, 4 Sep 2014 19:52:39 +0000 (12:52 -0700)]
toke.c: Avoid extra sv_setpv for foo <newline> =>

When parsing something like


if there is a global override, the parser transforms ‘time’ into
‘CORE::GLOBAL::time’ before it looks at the next line to see if there
is a fat arrow.

If it finds a fat arrow, it has to set the name back to ‘time’.

After finding a fat arrow on the line following a bareword, it was
setting the name to what appears in the program source, even when
there was no global override.  We can skip that most of the time.

All that I said about global overrides applies to ‘our’ subs, too.
‘foo’ gets transformed into ‘ThatPackage::foo’ and needs to be changed
back.  I added a test, to make sure that is not accidentally broken.

I took the liberty of changing ((SVOP*)pl_yylval.opval)->op_sv to sv
at the same time, to make the code more readable.

7 years ago%ld expected long int, but got ssize_t.
Jarkko Hietaniemi [Thu, 4 Sep 2014 16:47:27 +0000 (12:47 -0400)]
%ld expected long int, but got ssize_t.

7 years agoCorrect usage of memEQs in attributes.xs [perl #122701]
Andy Dougherty [Thu, 4 Sep 2014 16:24:42 +0000 (12:24 -0400)]
Correct usage of memEQs in attributes.xs [perl #122701]

Reported and diagnosed by Reini Urban <>.  The call to
memEQs(name, 6, "shared") could fail if name were shorter than 6 bytes,
or if name were longer than 6, but started with "shared".

7 years agoPOSIX math: Use rounding macros, instead of the c99_ functions.
Jarkko Hietaniemi [Thu, 4 Sep 2014 15:48:30 +0000 (11:48 -0400)]
POSIX math: Use rounding macros, instead of the c99_ functions.

This avoids the need for forward declarations.  Also rename
the functions with UPPERCASE so people are more careful.

7 years agoPOSIX math: let's not override the real lrint().
Jarkko Hietaniemi [Thu, 4 Sep 2014 15:40:33 +0000 (11:40 -0400)]
POSIX math: let's not override the real lrint().

7 years agoPOSIX math: Cygwin lacks at least nexttoward.
Jarkko Hietaniemi [Thu, 4 Sep 2014 15:37:34 +0000 (11:37 -0400)]
POSIX math: Cygwin lacks at least nexttoward.

7 years agoPOSIX math: There's no #elifdef, unfortunately.
Jarkko Hietaniemi [Thu, 4 Sep 2014 15:34:45 +0000 (11:34 -0400)]
POSIX math: There's no #elifdef, unfortunately.

7 years agoAvoid gcc warning.
Jarkko Hietaniemi [Thu, 4 Sep 2014 14:33:07 +0000 (10:33 -0400)]
Avoid gcc warning.

Cwd.xs:200:50: warning: size argument in 'strlcat' call appears to be size of the source; expected the size of the destination [-Wstrlcpy-strlcat-size]

No effective difference since both the source and destination
are buf[MAXPATHLEN].  They are now.

7 years agoFix our-sub method confusion
Father Chrysostomos [Thu, 4 Sep 2014 06:33:48 +0000 (23:33 -0700)]
Fix our-sub method confusion

‘our $foo’ creates a lexical alias to a global symbol.  That lexi-
cal alias is resolved during parsing.  For instance, if you have
‘our $foo; package bar; $foo’, the last $foo is translated by the
parser into a ‘main::foo’ constant, which is then used for sym-
bol lookup.

A similar thing happens with ‘our subs’.  In
‘our sub foo; package bar; foo()’, the foo() call is first translated
into main::foo, and then there are various checks to determine how to
handle this bareword.

Sometimes it is determined to be a method call, and that’s where
things go awry.  For this name transformation should only happen when
we are going to call this sub.  If the parser concludes that it is not
actually a sub call, then the original bareword as it appeared in the
source should be used.  But that is not what was happening.  As a con-
sequence, this code compiles down to F->main::f, rather than F->f.

use experimental "lexical_subs";
our sub f;
{package F}
f F;
Undefined subroutine &main::f called at - line 4.

And that it is actually doing a method call, not just f(F) can be dem-
onstrated by the fact that extra arguments can come after F without an
intervening comma:

use experimental "lexical_subs";
our sub f { warn "@_" };
{package F}
f F "g";
F g at - line 2.

And that inheritance works:

use experimental "lexical_subs";
@ISA = "Bar";
our sub f;
undef *f;
sub Bar'f { print "bark\n" }
{package F}
f F;

This commit corrects the behaviour by discarding the translated
symbol and restoring the original bareword if it turns out it is a
method name.

7 years agotoke.c: Combine two identical chunks via goto
Father Chrysostomos [Thu, 4 Sep 2014 06:27:36 +0000 (23:27 -0700)]
toke.c: Combine two identical chunks via goto

7 years agoUse sizeof() in UNUSED_ARG and UNUSED_VAR to avoid accessing the values.
Jarkko Hietaniemi [Thu, 4 Sep 2014 13:08:33 +0000 (09:08 -0400)]
Use sizeof() in UNUSED_ARG and UNUSED_VAR to avoid accessing the values.

The values might even be uninitialized in the case of PERL_UNUSED_VAR.

7 years agoGrab the warnflags and stdflags from cflags [perl #122694].
Jarkko Hietaniemi [Thu, 4 Sep 2014 12:22:34 +0000 (08:22 -0400)]
Grab the warnflags and stdflags from cflags [perl #122694].

They become $Config{ccwarnflags} and $Config{ccstdflags}.

7 years agoSome <termios.h> #define WRAP, undef it.
Jarkko Hietaniemi [Thu, 4 Sep 2014 12:21:57 +0000 (08:21 -0400)]
Some <termios.h> #define WRAP, undef it.

7 years agoAvoid duplicate GV lookup for barewords
Father Chrysostomos [Thu, 4 Sep 2014 02:03:20 +0000 (19:03 -0700)]
Avoid duplicate GV lookup for barewords

Since commit f74617600 (5.12), the GV lookup that this commit removes
from yylex has only been used to see whether the bareword could be a
filehandle.  The result is used by intuit_method to decide whether we
have a method call for ‘foo bar’ or ‘foo $bar’.

Doing this lookup for every bareword we encounter even when we are not
going to call intuit_method is wasteful.

The previous commit ensured that intuit_method is called only once
for each bareword, so we can put that gv lookup directly inside

7 years agoDon’t call intuit_method twice for the same barewords
Father Chrysostomos [Thu, 4 Sep 2014 01:21:18 +0000 (18:21 -0700)]
Don’t call intuit_method twice for the same barewords

This calls intuit_method once:

    sub fooo; print foo bar

This calls it twice:

    sub foo; print foo bar

because seeing whether we are dealing with a bareword after ‘print’,
‘say’ etc. must happen *before* we look past the space after ‘foo’ to
see whether ‘foo bar’ could be a method call.  That’s because skipping
a space could reset the internal variables that track whether we have
just seen ‘print’.

Hence, we end up with a call to intuit_method (i.e., is this a
method?) inside the block that deals with print FOO.

But then we have another call to intuit_method later that deals with
the non-print cases.

But the former can fall through to the latter if we don’t have a
method call here.  And then intuit_method is called again with exactly
the same arguments.  So we just repeat the check needlessly.

Avoiding the call the second time (if we have already called it above)
will allow the next commit to put a GV lookup that occurs only for the
sake of intuit_method directly inside intuit_method, avoiding the need
for that lookup for most barewords.

7 years agoMAD leftovers in toke.c
Father Chrysostomos [Thu, 4 Sep 2014 01:02:48 +0000 (18:02 -0700)]
MAD leftovers in toke.c

7 years agotoke.c: Stop using len to indicate trailing ::
Father Chrysostomos [Wed, 3 Sep 2014 19:59:15 +0000 (12:59 -0700)]
toke.c: Stop using len to indicate trailing ::

This variable stores the length of the word we are parsing.  But at
one point it starts being used as a boolean to indicate that we have a
bareword ending in two colons.  So if are looking up are bareword that
does not end in ::, we have to call strlen() to scan the string and
determine the length.

7 years agoPOSIX math: if no fesetround, try fpsetround.
Jarkko Hietaniemi [Thu, 4 Sep 2014 00:36:53 +0000 (20:36 -0400)]
POSIX math: if no fesetround, try fpsetround.

7 years agoPOSIX math: have the Perl_func wrappers for the C89 math, too.
Jarkko Hietaniemi [Wed, 3 Sep 2014 22:45:29 +0000 (18:45 -0400)]
POSIX math: have the Perl_func wrappers for the C89 math, too.

(Until now the non-long-double versions have been called on long doubles.)

7 years agoPOSIX math: c99_erfc, not plain erfc.
Jarkko Hietaniemi [Wed, 3 Sep 2014 22:32:34 +0000 (18:32 -0400)]
POSIX math: c99_erfc, not plain erfc.

7 years agoUpdate Scalar-List-Utils to CPAN version 1.40
Chris 'BinGOs' Williams [Wed, 3 Sep 2014 18:13:06 +0000 (19:13 +0100)]
Update Scalar-List-Utils to CPAN version 1.40


1.40 -- 2014/08/30 11:36:36
   * Added entire new module, Sub::Util to contain functions related
     to CODE refs
   * Added subname inspired by Sub::Identify
   * Added set_subname copied and renamed from Sub::Name
   * Also moved set_prototype into Sub::Name, with back-compat wrapper
     in Scalar::Util
   * Added prototype wrapper of CODE::prototype, for completeness
   * Nicer module documentation format, allows neater use of L</...>

   * This change was written at the YAPC::EU 2014 Hackathon hosted by
     Liz Mattijsen and Wendy van Dijk; much thanks to them for being its

7 years agoregcomp.h: Comment nits
Karl Williamson [Wed, 3 Sep 2014 18:42:07 +0000 (12:42 -0600)]
regcomp.h: Comment nits

7 years agoAllow for changing size of bracketed regex char class
Karl Williamson [Thu, 28 Aug 2014 20:22:14 +0000 (14:22 -0600)]
Allow for changing size of bracketed regex char class

This commit allows Perl to be compiled with a bitmap size that is larger
than 256.  This bitmap is used to directly look up whether a character
matches or not, without having to do a binary search or hash lookup.  It
might improve the performance for some installations that have a lot of
use of scripts that are above the Latin1 range.

7 years agoFix -Dr output to work for larger ANYOF node size
Karl Williamson [Fri, 29 Aug 2014 02:07:30 +0000 (20:07 -0600)]
Fix -Dr output to work for larger ANYOF node size

This generalizes the code for -Dr output to work to dump the contents of
ANYOF nodes (bracketed character classes) which have bitmaps for more
than code points 0-255.