This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5.git
5 years agoMark the Perldoc.pm as customized
Jarkko Hietaniemi [Wed, 16 Dec 2015 02:51:16 +0000 (21:51 -0500)]
Mark the Perldoc.pm as customized

5 years agoamigaos4: cpan/Pod-Perldoc: add pager preferences
Andy Broad [Wed, 16 Dec 2015 02:48:03 +0000 (21:48 -0500)]
amigaos4: cpan/Pod-Perldoc: add pager preferences

Upstreamed: https://rt.cpan.org/Ticket/Display.html?id=110368

5 years agoamigaos4: use the AmigaOS pager
Andy Broad [Wed, 16 Dec 2015 02:40:53 +0000 (21:40 -0500)]
amigaos4: use the AmigaOS pager

5 years agoencoding-warnings: Skip tests on EBCDIC
Karl Williamson [Sun, 29 Nov 2015 17:51:18 +0000 (10:51 -0700)]
encoding-warnings: Skip tests on EBCDIC

This module uses the deprecated $^ENCODING mechanism, which doesn't work
right on EBCDIC.

5 years agoperldelta: Fix typo leading to broken link
Karl Williamson [Wed, 16 Dec 2015 00:29:46 +0000 (17:29 -0700)]
perldelta: Fix typo leading to broken link

5 years agoFix use of == to compare strings in perlref.pod
Dagfinn Ilmari Mannsåker [Tue, 15 Dec 2015 23:45:00 +0000 (23:45 +0000)]
Fix use of == to compare strings in perlref.pod

5 years agoperldelta for cd3393cf71a2
Aaron Crane [Wed, 16 Dec 2015 00:15:27 +0000 (00:15 +0000)]
perldelta for cd3393cf71a2

New "Trailingcomma" feature for Data::Dumper.

5 years agoMerge branch 'data-dumper-trailingcomma' into blead
Aaron Crane [Wed, 16 Dec 2015 00:02:04 +0000 (00:02 +0000)]
Merge branch 'data-dumper-trailingcomma' into blead

This branch adds a "Trailingcomma" option to Data::Dumper, as suggested by
RT#126813. It also refactors the XS implementation of Data::Dumper somewhat,
in a way that made it much easier to add this feature (and will hopefull
have the same effect for future such feature additions).

5 years agoData::Dumper: add Trailingcomma option
Aaron Crane [Mon, 7 Dec 2015 22:49:19 +0000 (22:49 +0000)]
Data::Dumper: add Trailingcomma option

This is as suggested in RT#126813.

The refactoring to use a structure for the style variables has now paid off:
the additional variable is mentioned only where it's directly relevant,
rather than needing to be passed explicitly to every recursive call.

5 years agoData::Dumper: replace pointer with local variable
Aaron Crane [Tue, 8 Dec 2015 15:03:28 +0000 (15:03 +0000)]
Data::Dumper: replace pointer with local variable

The recursive dumping function uses a "level" variable to keep track of how
deep in the data structure it is. Previously, this variable was allocated on
the stack at the top level, and a pointer to that stack variable was passed
to each recursive invocation. Each recursive step was careful to increment
and decrement the pointed-to value at the right time. The consequence of
this approach is that understanding what's going involves mentally tracking
this state throughout the entire thousand-line function.

This change therefore replaces that pointer-to-mutable-int with a plain int
parameter; when the dumper invokes itself recursively, it simply adds one to
the level as needed. This seems much simpler to me.

This may also be faster: not only is the pointer indirection removed for
accesses to the variable, but on platforms where pointers are wider than I32
(including typical 64-bit systems), less memory is used on the stack for the
call frames.

5 years agoData::Dumper: move sortkeys setting into style struct
Aaron Crane [Tue, 8 Dec 2015 14:42:43 +0000 (14:42 +0000)]
Data::Dumper: move sortkeys setting into style struct

On Perl 5.6, there is no sortsv() function available to XS code, so
Data::Dumper used a Perl helper function. The name of that helper function
was allocated as a (mortal) SV, but that was done lazily, the first time the
helper was needed. This meant that the "sortkeys" C variable was mutable,
and therefore it couldn't be easily moved to the struct.

I think it's a better trade-off to allocate the SV in all cases under 5.6:
when dumping a data structure containing no hashes, we now allocate this SV
unnecessarily, but we save an extra pointer on the stack in every recursive
call frame.

In addition, Data::Dumper doesn't currently work on 5.6 as far as I can tell,
so this change certainly doesn't make anything any worse. I've nonetheless
attempted to restore 5.6 compatibility in this narrow area surrounding the
sortkeys option: in particular, a sortsv() call appeared in code that was
compiled under 5.6, but has now been moved to a block that's compiled only
under later Perls. I haven't been able to test this change on 5.6, though.

5 years agoData::Dumper: reorder elements of style struct
Aaron Crane [Tue, 8 Dec 2015 11:56:18 +0000 (11:56 +0000)]
Data::Dumper: reorder elements of style struct

Putting all the pointers and pointer-sized integers together at the start of
the struct reduces the amount of wasted space on platforms where pointers
are wider than ints. In particular, this should reduce the size of the style
struct by eight bytes on typical 64-bit configurations.

This could have been part of the previous commit, but having the order of
the struct's elements match the subroutine arguments that it replaced made
it easier to review that change for correctness.

5 years agoData::Dumper: refactor XS implementation
Aaron Crane [Tue, 8 Dec 2015 11:31:43 +0000 (11:31 +0000)]
Data::Dumper: refactor XS implementation

There are over a dozen variables that control the details of how Data::Dumper
generates output, almost all of which remain unchanged while dumping a single
set of objects. The previous implementation passed each of those control
variables as a separate argument to the recursive DD_dump() function, which
meant that DD_dump() took over two dozen parameters. This is already far
beyond what seems reasonable, and the problem will only get worse in future
as Data::Dumper acquires more features.

This refactoring therefore extracts most of those style variables into a
struct, and passes it to the recursive calls as a pointer-to-const. This is
clearly of huge benefit for maintainability. In addition, it seems plausible
that it will make dumping slightly faster, especially for deeply-nested data
structures: requiring every recursive call to have its own copy of
them on the stack meant that every call frame would take up more than a
single cache line of stack space even on 32-bit platforms. Putting them all
in a single struct means that this space is used only once per dump instead.

"If you have a procedure with 10 parameters, you probably missed some."
—Alan Perlis, Epigrams on Programming, ACM SIGPLAN Notices 17 (9), September
1982, pp. 7–13. http://pu.inf.uni-tuebingen.de/users/klaeren/epigrams.html

5 years agolib/meta_notation: Fix so C1 controls are escaped
Karl Williamson [Tue, 15 Dec 2015 03:23:26 +0000 (20:23 -0700)]
lib/meta_notation: Fix so C1 controls are escaped

Prior to this commit the meta notation for C1 controls included raw C0
controls.

5 years agolib/meta_notation.pm: Fix typo in comment
Karl Williamson [Tue, 15 Dec 2015 02:50:39 +0000 (19:50 -0700)]
lib/meta_notation.pm: Fix typo in comment

5 years agoperlgit: Keep verbatim lines within 79 columns
Karl Williamson [Tue, 15 Dec 2015 00:42:15 +0000 (17:42 -0700)]
perlgit: Keep verbatim lines within 79 columns

5 years agoFix -Dr output
Karl Williamson [Tue, 15 Dec 2015 00:08:28 +0000 (17:08 -0700)]
Fix -Dr output

Before this commit, the debug output of a compiled regular expression
was wrong in some cases for /d bracketed character classes.

For example,

    qr/[\W\xAB]/

was displayed as compiling to:

    ANYOFD[^0-9A-Z_a-z\x{80}-\x{AA}\x{AC}-\x{FF}][{non-utf8-latin1-all}
    {utf8}00AB 02C2-02C5...] (12)

instead of the correct:

    ANYOFD[^0-9A-Z_a-z\x{80}-\x{AA}\x{AC}-\x{FF}][{non-utf8-latin1-all}
    {utf8}0080-00A9 00AC-00B4 00B6-00B9 00BB-00BF 00D7 00F7 02C2-02C5
    ...] (12)

This was due to to the fact that the expression inside the first set of
square brackets was complemented, and the remainder was not complemented
back for display in the second set.

We have no tests for the debugging output, as there are no guarantees of
stability as to what gets output.  I also noticed a potential memory
leak, which this corrects.  But there are others in debugging, so I
didn't add a test for it.

5 years agoMention the clang thread safety analysis.
Jarkko Hietaniemi [Tue, 15 Dec 2015 00:01:35 +0000 (19:01 -0500)]
Mention the clang thread safety analysis.

5 years agoadd note about scope in strict docs
Doug Bell [Tue, 8 Dec 2015 15:35:15 +0000 (09:35 -0600)]
add note about scope in strict docs

The strict pragma only effects the current file or block scope, but we
never mention that in the docs. Thanks KES for reporting this.

5 years agoMerge branch 'mixed-endian-double-double' into blead
Jarkko Hietaniemi [Mon, 14 Dec 2015 11:39:12 +0000 (06:39 -0500)]
Merge branch 'mixed-endian-double-double' into blead

5 years agoinfnan: NaN payload for mixed endian double-doubles
Jarkko Hietaniemi [Thu, 10 Dec 2015 23:27:23 +0000 (18:27 -0500)]
infnan: NaN payload for mixed endian double-doubles

5 years agoConfigure: infnan for mixed-endian double-double
Jarkko Hietaniemi [Thu, 10 Dec 2015 23:59:53 +0000 (18:59 -0500)]
Configure: infnan for mixed-endian double-double

5 years agoConfigure: mixed-endian double-doubles
Jarkko Hietaniemi [Tue, 8 Dec 2015 13:48:40 +0000 (08:48 -0500)]
Configure: mixed-endian double-doubles

The ppc64el is the first seen little-endian double-double (and also
the first little-endian ppc), but it turns out its little-endianness
is mixed: the doubles are still in big-endian order.  Configure was
expecting wrongly a fully byte-reversed double-double.

Therefore extend the long double format detection to cover all the
(double-double) permutations, though the formats of five and eight
are rather unlikely (based on current platforms using double-double).

5 years agoConfigure: cannot trust the bytes after the 80-bit fp
Jarkko Hietaniemi [Tue, 8 Dec 2015 13:40:38 +0000 (08:40 -0500)]
Configure: cannot trust the bytes after the 80-bit fp

They can be zero, they can be garbage.

5 years agopp_padav, pp_padhv whitespace only
David Mitchell [Sat, 12 Dec 2015 13:25:20 +0000 (13:25 +0000)]
pp_padav, pp_padhv whitespace only

There was some bizarre indentation (1,2 or 3-space indents)

5 years agoperldelta for 0fd86aa72aab
Tony Cook [Sun, 13 Dec 2015 23:27:30 +0000 (10:27 +1100)]
perldelta for 0fd86aa72aab

5 years agobump $utf8::VERSION for the utf8_heavy.pl fix
Tony Cook [Sun, 13 Dec 2015 23:20:53 +0000 (10:20 +1100)]
bump $utf8::VERSION for the utf8_heavy.pl fix

5 years agoperldelta for 093d5aa02ee8
Tony Cook [Sun, 13 Dec 2015 23:18:28 +0000 (10:18 +1100)]
perldelta for 093d5aa02ee8

5 years agoperldelta for d3b9036e206e
Tony Cook [Sun, 13 Dec 2015 23:13:43 +0000 (10:13 +1100)]
perldelta for d3b9036e206e

5 years agoperldelta for e8c18a8486f7
Tony Cook [Sun, 13 Dec 2015 23:10:49 +0000 (10:10 +1100)]
perldelta for e8c18a8486f7

5 years agoperldelta for 2efdfb1e6cf6
Tony Cook [Sun, 13 Dec 2015 23:09:38 +0000 (10:09 +1100)]
perldelta for 2efdfb1e6cf6

5 years agoperldelta for 8f8d807bf58b
Tony Cook [Sun, 13 Dec 2015 22:49:54 +0000 (09:49 +1100)]
perldelta for 8f8d807bf58b

5 years ago5.22.1 is done
Steve Hay [Sun, 13 Dec 2015 20:32:05 +0000 (20:32 +0000)]
5.22.1 is done

5 years agoImport 5.22.1 perldelta
Steve Hay [Sun, 13 Dec 2015 20:29:04 +0000 (20:29 +0000)]
Import 5.22.1 perldelta

5 years agoAdd 5.22.1 epigraph
Steve Hay [Sun, 13 Dec 2015 20:01:10 +0000 (20:01 +0000)]
Add 5.22.1 epigraph

5 years ago5.22.1 today
Steve Hay [Sun, 13 Dec 2015 17:38:21 +0000 (17:38 +0000)]
5.22.1 today

5 years ago5.22.1 today - update Module::CoreList
Steve Hay [Sun, 13 Dec 2015 17:37:43 +0000 (17:37 +0000)]
5.22.1 today - update Module::CoreList

5 years agoavoid leaks when calling mg_set() in leave_scope()
David Mitchell [Fri, 11 Dec 2015 12:06:39 +0000 (12:06 +0000)]
avoid leaks when calling mg_set() in leave_scope()

In leave_scope() in places like SAVEt_SV, it does stuff like

    if (SvSMAGICAL(...))
        mg_set(...)
    SvREFCNT_dec_NN(ARG0_SV)

If mg_set() dies (e.g. it calls STORE() and STORE() dies), then ARG0_SV
would leak. Fix this by putting ARG0_SV back in the save stack in this
case.

A similar thing applies to SAVEt_AV and SAVEt_HV, but I couldn't
think of a simple test for those, as tied array and hashes don't have
set magic (just RMG).

Also, SAVEt_AV and SAVEt_HV share a lot of common code, so I made
SAVEt_HV goto into the SAVEt_AV code block for the common part.

5 years agoutf8.c: Fix EBCDIC double translation
Karl Williamson [Thu, 10 Dec 2015 17:16:53 +0000 (10:16 -0700)]
utf8.c: Fix EBCDIC double translation

In Perl_uvoffuni_to_utf8_flags(), the input is a Unicode, not native,
code point.  But in ba6ed43c6aca7f1ff5a1b82062faa3e1c33c0582, I used a
macro that assumes the input is native.

5 years agoSuppress overflow warning in bop.t.
Craig A. Berry [Thu, 10 Dec 2015 15:53:02 +0000 (09:53 -0600)]
Suppress overflow warning in bop.t.

There is a constant designed to exercise the limits of a 64-bit
integer that causes an overflow when IVs are 32 bits.  The warning
happens at compile time and we don't know yet that we will never
execute the 64-bit path at run time.

5 years agohexfp: all ppc/powerpc-ld linux tailbits difference in exp(1)
Jarkko Hietaniemi [Thu, 10 Dec 2015 11:59:03 +0000 (06:59 -0500)]
hexfp: all ppc/powerpc-ld linux tailbits difference in exp(1)

(not just linux-ppc64-ld)

Not a regression from 5.22.0.

5 years agoSkip casing for high code points
Karl Williamson [Thu, 3 Dec 2015 20:27:21 +0000 (13:27 -0700)]
Skip casing for high code points

As discussed in the previous commit, most code points in Unicode
don't change if upper-, or lower-cased, etc.  In fact as of Unicode
v8.0, 93% of the available code points are above the highest one that
does change.

This commit skips trying to case these 93%.  A regen/ script keeps track
of the max changing one in the current Unicode release, and skips casing
for the higher ones.  Thus currently, casing emoji will be skipped.

Together with the previous commits that dealt with casing, the potential
for huge memory requirements for the swash hashes for casing are
severely limited.

If the following command is run on a perl compiled with -O2 and no
DEBUGGING:

    blead Porting/bench.pl --raw --perlargs="-Ilib -X" --benchfile=plane1_case_perf /path_to_prior_perl=before_this_commit /path_to_new_perl=after

and the file 'plane1_case_perf' contains

    [
        'string::casing::emoji' => {
            desc    => 'yes swash vs no swash',
            setup   => 'my $a = "\x{1F570}"',  # MANTELPIECE CLOCK
            code    => 'uc($a)'
        },
    ];

the following results are obtained:

The numbers represent raw counts per loop iteration.

string::casing::emoji
yes swash vs no swash

       before_this_commit    after
       ------------------ --------
    Ir              981.0    306.0
    Dr              228.0     94.0
    Dw              100.0     45.0
  COND              137.0     49.0
   IND                7.0      4.0

COND_m                5.5      0.0
 IND_m                4.0      2.0

 Ir_m1                0.1     -0.1
 Dr_m1                0.0      0.0
 Dw_m1                0.0      0.0

 Ir_mm                0.0      0.0
 Dr_mm                0.0      0.0
 Dw_mm                0.0      0.0

5 years agoSkip casing for some non-cased scripts
Karl Williamson [Thu, 3 Dec 2015 20:12:51 +0000 (13:12 -0700)]
Skip casing for some non-cased scripts

Characters whose upper, lower, title, or fold case differ from the
character itself amount to just 1.5% of the assigned Unicode characters,
and this percentage falls with each new Unicode release, as almost all
cased scripts have already been encoded.  But a lot of code is written
assuming a cased language, such as calling uc() or lcfirst(), or doing
qr//i.  When such code is run on a non-cased language, the work expended
in doing the casing is wasted.  And casing is expensive.  But finding
out if a character is cased or not is nearly as expensive, so one might
as well just do the casing.

However, the Unicode code space is organized so that there are some long
stretches of contiguous code points that aren't cased.  By adding tests
to see if the input code point is in just a few of these ranges, we can
quickly rule casing out for most of the non-cased scripts that are of
commercial use today, at essentially no expense to handling the more
common cased scripts.  Testing for just 3 ranges in Plane 0 of Unicode
(where most of the code points in common use today reside) allows us to
skip doing casing for more than 82% of code points in the plane,
including the following languages: Arabic, Chinese, Hebrew, Japanese,
Korean, Thai, and the major scripts of India.  No longer is a swash
generated when trying to case one of these, so runtime memory usage is
decreased.

(It should be noted that some of these languages have characters
scattered in other areas, because the original allocation for them
turned out to be not large enough.  When changing the case of these
other characters, the lookups won't be skippped.  But that original
allocation included all or nearly all the characters in current common
use, so these other characters are comparatively rare.)

The comments in the code indicate some candidate non-cased ranges that I
chose not to treat specially at this time.  The next commit will address
planes above Plane 0.

When this command is run on a perl compiled with -O2, no DEBUGGING:

    blead Porting/bench.pl --perlargs="-Ilib -X" --benchfile=plane0_casing_perf /path_to_prior_perl=before_this_commit /path_to_new_perl=after

and file 'plane0_casing_perf' contains
    [
        'string::casing::greek' => {
            desc    => 'should be no change',
            setup   => 'my $a = "\x{3B1}"',  # GREEK SMALL LETTER ALPHA
            code    => 'uc($a)'
        },
        'string::casing::hebrew' => {
            desc    => 'yes swash vs no swash',
            setup   => 'my $a = "\x{5D0}"',  # HEBREW LETTER ALEF
            code    => 'uc($a)'
        },
        'string::casing::cjk' => {
            desc    => 'yes swash vs no swash',
            setup   => 'my $a = "\x{4E01}"',
            code    => 'uc($a)'
        },
        'string::casing::korean' => {
            desc    => 'yes swash vs no swash',
            setup   => 'my $a = "\x{AC00}"',
            code    => 'uc($a)'
        },
    ];

These are the results:

The numbers represent raw counts per loop iteration.

string::casing::cjk
yes swash vs no swash

       before_this_commit    after
       ------------------ --------
    Ir              931.0    300.0
    Dr              217.0     93.0
    Dw               94.0     45.0
  COND              129.0     48.0
   IND                7.0      4.0

COND_m                1.5      0.0
 IND_m                4.0      2.0

 Ir_m1                0.1      0.0
 Dr_m1                0.0      0.0
 Dw_m1                0.0      0.0

 Ir_mm                0.0      0.0
 Dr_mm                0.0      0.0
 Dw_mm                0.0      0.0

string::casing::greek
should be no change

       before_this_commit    after
       ------------------ --------
    Ir              946.0    920.0
    Dr              218.0    220.0
    Dw              100.0    100.0
  COND              127.0    121.0
   IND                6.0      8.0

COND_m                0.5      1.3
 IND_m                2.0      2.0

 Ir_m1                0.1      0.0
 Dr_m1                0.0      0.0
 Dw_m1                0.0      0.0

 Ir_mm                0.0      0.0
 Dr_mm                0.0      0.0
 Dw_mm                0.0      0.0

string::casing::hebrew
yes swash vs no swash

       before_this_commit    after
       ------------------ --------
    Ir              928.0    290.0
    Dr              224.0     92.0
    Dw              100.0     45.0
  COND              129.0     46.0
   IND                6.0      4.0

COND_m                0.5      0.0
 IND_m                2.0      2.0

 Ir_m1                0.1      0.0
 Dr_m1                0.0      0.0
 Dw_m1                0.0      0.0

 Ir_mm                0.0      0.0
 Dr_mm                0.0      0.0
 Dw_mm                0.0      0.0

string::casing::korean
yes swash vs no swash

       before_this_commit    after
       ------------------ --------
    Ir              953.0    307.6
    Dr              224.0     93.0
    Dw              100.0     45.0
  COND              131.0     50.9
   IND                7.0      4.0

COND_m                1.5      0.0
 IND_m                4.0      2.0

 Ir_m1                0.1      0.0
 Dr_m1                0.0      0.0
 Dw_m1                0.0      0.0

 Ir_mm                0.0      0.0
 Dr_mm                0.0      0.0
 Dw_mm                0.0      0.0

5 years agoutf8.c: Add indentation
Karl Williamson [Thu, 3 Dec 2015 19:59:50 +0000 (12:59 -0700)]
utf8.c: Add indentation

This is in preparation for the next commit, so the diff command is less
confused

5 years agoDon't try to case change surrogates, above-Unicodes
Karl Williamson [Thu, 3 Dec 2015 22:56:36 +0000 (15:56 -0700)]
Don't try to case change surrogates, above-Unicodes

Changing the case (upper, lower, title, fold) of surrogate code points
and non-Unicode code points always yields the original, so there is no
need to actually try it.  And trying it is slow and creates swashes,
which uses up runtime memory.  We test for these code points anyway, so
at the cost of just two gotos and a label, we can skip all that work and
potential memory use.  This is worth doing even though such usage will
be rare in practice.

Running the following command

    blead Porting/bench.pl --perlargs="-Ilib -X" --benchfile=above_unicode path_to_prior_perl=before_this_commit path_to_this_perl=after

on a -O2 no DEBUGGING perl, where file 'above_unicode" contains

    [
        'string::casing::above_unicode' => {
            desc    => 'yes cases vs no casing',
            setup   => 'my $a = "\x{110000}"',
            code    => 'my $b = uc($a)'
        },
    ];

yields this output (the extra cost of swash creation is not included):

 The numbers represent raw counts per loop iteration.

 string::casing::above_unicode
 yes cases vs no casing

        before_this_commit    after
        ------------------ --------
     Ir             1329.0    651.0
     Dr              324.0    190.0
     Dw              149.0     94.0
   COND              192.0    103.0
    IND               13.0     10.0

 COND_m                5.5      0.0
  IND_m                6.0      4.0

  Ir_m1                0.1      0.0
  Dr_m1                0.0      0.0
  Dw_m1                0.0      0.0

  Ir_mm                0.0      0.0
  Dr_mm                0.0      0.0
  Dw_mm                0.0      0.0

5 years agoFix awkward wording in 'say' documentation
Doug Bell [Sun, 6 Dec 2015 18:33:26 +0000 (12:33 -0600)]
Fix awkward wording in 'say' documentation

For: RT #126833

5 years agoreword $@ documentation (it's not just for syntax errors)
Lukas Mai [Thu, 10 Dec 2015 00:20:47 +0000 (01:20 +0100)]
reword $@ documentation (it's not just for syntax errors)

RT #124034

5 years agoutf8.c: Don't throw away a value and then recalc it
Karl Williamson [Thu, 3 Dec 2015 19:34:57 +0000 (12:34 -0700)]
utf8.c: Don't throw away a value and then recalc it

In half the calls to to_utf8_case(), the code point being looked up is
known.  It is thrown away because the API doesn't pass it, and then
recalculated first thing in to_utf8_case.

Fix this by making a new static function which adds the code point to
the parameter list, and change all calls to use this, leaving the
existing to_utf8_case() as just a wrapper for the new function.

5 years agoembed.fnc: White-space only
Karl Williamson [Thu, 3 Dec 2015 19:30:41 +0000 (12:30 -0700)]
embed.fnc: White-space only

5 years agoperlapi: Vaguely deprecate to_utf8_case
Karl Williamson [Thu, 3 Dec 2015 19:28:53 +0000 (12:28 -0700)]
perlapi: Vaguely deprecate to_utf8_case

by giving alternatives to use instead.

5 years agoutf8.c: Add some LIKELY(), UNLIKELY()
Karl Williamson [Thu, 3 Dec 2015 19:21:31 +0000 (12:21 -0700)]
utf8.c: Add some LIKELY(), UNLIKELY()

5 years agoperlgit.pod: update 'git status' sample output
Lukas Mai [Thu, 10 Dec 2015 00:58:05 +0000 (01:58 +0100)]
perlgit.pod: update 'git status' sample output

5 years agoperlgit.pod: standardize on % as shell prompt
Lukas Mai [Thu, 10 Dec 2015 00:56:41 +0000 (01:56 +0100)]
perlgit.pod: standardize on % as shell prompt

5 years agoutf8.h, utfebcdic.h: Add #define
Karl Williamson [Mon, 9 Nov 2015 05:13:44 +0000 (22:13 -0700)]
utf8.h, utfebcdic.h: Add #define

for future use

5 years agoutf8.h: Fix macro definition
Karl Williamson [Mon, 9 Nov 2015 05:02:22 +0000 (22:02 -0700)]
utf8.h: Fix macro definition

This has been wrong, and won't compile, should anyone have tried, since
635e76f560b3b3ca075aa2cb5d6d661601968e04 earlier in 5.23.

5 years agoutf8.h: Remove unused #define
Karl Williamson [Sat, 7 Nov 2015 17:44:00 +0000 (10:44 -0700)]
utf8.h: Remove unused #define

UTF8_QUAD_MAX is no longer used in the core, and is not in cpan, and its
name is highly misleading.  It is defined to be 2**36, which has really
nothing to do with what its name indicates.

5 years agot/lib/warnings/utf8: Add some tests
Karl Williamson [Sat, 7 Nov 2015 17:40:59 +0000 (10:40 -0700)]
t/lib/warnings/utf8: Add some tests

These better test the detection of surrogates, noncharacters, and
above-Unicode code points.

5 years agoAchim Gratz is now a perl author
Tony Cook [Wed, 9 Dec 2015 22:52:25 +0000 (09:52 +1100)]
Achim Gratz is now a perl author

5 years ago[perl #126834] Cygwin cygdrive prefix test
Achim Gratz [Wed, 9 Dec 2015 17:59:03 +0000 (18:59 +0100)]
[perl #126834] Cygwin cygdrive prefix test

* t/lib/cygwin.t: Use the /proc virtual filesystem to determine the
  cygdrive prefix.  If that isn't available, fall back to using the
  cygpath executable instead of parsing the output from df or mount
  for older Cygwin.  That fallback can fail if C:\ is manually mounted
  someplace else, but the former code had the same problem.

5 years ago[MERGE] rpeep() consistent oldoldop -> oldop -> o
David Mitchell [Wed, 9 Dec 2015 14:34:46 +0000 (14:34 +0000)]
[MERGE] rpeep() consistent oldoldop -> oldop -> o

5 years agorpeep() assert oldoldop -> oldop -> o form a chain
David Mitchell [Wed, 9 Dec 2015 14:30:05 +0000 (14:30 +0000)]
rpeep() assert oldoldop -> oldop -> o form a chain

In rpeep(), in a loop, the var o becomes each op in the op_next chain in
turn. At the same time, oldop is set to the previous value of o, and
oldoldop the previous but one.

Some places that modify the op_next chain weren't correctly upodating
oldop and oldoldop at the same time. Last few commits have fixed those
places.

This commit adds an assert at the top of loop to check that oldoldop and
oldop are in fact consistent.

(This assert was used to find the faults fixed in the previous couple of
commits).

5 years agorpeep: maintain chain when handling for(reverse..)
David Mitchell [Wed, 9 Dec 2015 14:27:18 +0000 (14:27 +0000)]
rpeep: maintain chain when handling for(reverse..)

There's code in rpeep() that eliminates the reverse op from
for (reverse ....) {} and just flags the enteriter as needing to reverse
its args.

This code didn't leave oldoldop -> oldop -> o as a consistent chain of
adjacent op_next ops.

5 years agorpeep: maintain chain when del extra nextstates
David Mitchell [Wed, 9 Dec 2015 13:51:22 +0000 (13:51 +0000)]
rpeep: maintain chain when del extra nextstates

There's code in rpeep() that eliminates duplicate nextstate ops.
E.g.

    FOO -> NEXTSTATE1 -> NULL -> ... -> NULL -> NEXTSTATE2 -> ...

becomes

    FOO --------------------------------------> NEXTSTATE2 -> ...

This code didn't leave oldoldop -> oldop -> o as a consistent chain of
adjacent op_next ops.

5 years agostop the eliding of void $pkg_var from assert fail
David Mitchell [Wed, 9 Dec 2015 12:34:45 +0000 (12:34 +0000)]
stop the eliding of void $pkg_var from assert fail

The code to eliminate things like our($foo); from the runtime op_next
chain in rpeep() caused the oldoldop, oldop, o vars not to form a chain of
3 adjacent ops. Instead, oldoldop and oldop ended up equal, which later
caused an assertion failure in the padrange code for something like

    my($a,$b),$x,my($c,$d);

5 years agoutf8.c: Fix broken EBCDIC compilation
Karl Williamson [Wed, 9 Dec 2015 05:30:22 +0000 (22:30 -0700)]
utf8.c: Fix broken EBCDIC compilation

Commit ba6ed43c6aca7f1ff5a1b82062faa3e1c33c0582 left out a '}' which is
skipped except in EBCDIC builds.  (I meant to make sure things would
compile (by reversing the sense of the #if's) on EBCDIC, but forgot at
the time it should have been done.)

5 years ago[perl #126593] make sure utf8_heavy.pl doesn't depend on itself
Tony Cook [Thu, 26 Nov 2015 05:22:04 +0000 (16:22 +1100)]
[perl #126593] make sure utf8_heavy.pl doesn't depend on itself

With ${^ENCODING} set, it did.

Partly reverts:

commit aa8f6cef961dc2009604f7464c66106421c3ae81
Author: Rafael Garcia-Suarez <rgs@consttype.org>
Date:   Wed Jun 17 13:18:59 2015 +0200

    Microoptimize some matches in utf8_heavy.pl

5 years agoPerl_uvoffuni_to_utf8_flags() Combine ASCII, EBCDIC branches
Karl Williamson [Tue, 8 Dec 2015 20:20:06 +0000 (13:20 -0700)]
Perl_uvoffuni_to_utf8_flags() Combine ASCII, EBCDIC branches

This uses the underlying structure of UTF-8 and UTF-EBCDIC to unify most
of the code.  Previously, the ASCII platform version unrolled a loop,
and the EBCDIC didn't.  Now the loop is used for code points that
require 5 or more bytes to represent in UTF-8 and UTF-EBCDIC.  On ASCII
platforms, this means that all leggal Unicode code points use the
unrolled version.  I used cachegrind to find that the unrolled savings
were not large, and in the trade-off between performance and
maintainability on code points that Unicode doesn't think are legal,
maintainability wins.

I also moved the tests so that there are no unnecessary tests on ASCII
platforms.  For example, if we know that we are in a range of code
points that doesn't have surrogates, no tests for surrogates are done.
Perhaps an optimizing compiler could figure this out.  There is a
smidgeon of extra tests on EBCDIC platforms, to keep the code unified
between the two platform types.

Originally, I did try to keep the loop unrolled, which is how I found
that the performance savings wasn't great.  Here that code is (with a
space inserted before column 1 '#' chars, so git doesn't think they are
comments:

U8 *
Perl_uvoffuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
{
    PERL_ARGS_ASSERT_UVOFFUNI_TO_UTF8_FLAGS;

    /* Test for and handle 1-byte result. */
    if (OFFUNI_IS_INVARIANT(uv)) {
*d++ = LATIN1_TO_NATIVE(uv);
return d;
    }

/*  Use shorter names internally in this file */
 #define SHIFT   UTF_ACCUMULATION_SHIFT
 #undef  MARK
 #define MARK    UTF_CONTINUATION_MARK
 #define MASK    UTF_CONTINUATION_MASK

    /* Below is an unrolled version of
     *
STRLEN len  = OFFUNISKIP(uv);
U8 *p = d+len-1;
while (p > d) {
    *p-- = I8_TO_NATIVE_UTF8((uv & UTF_CONTINUATION_MASK) | UTF_CONTINUATION_MARK);
    uv >>= UTF_ACCUMULATION_SHIFT;
}
*p = I8_TO_NATIVE_UTF8((uv & UTF_START_MASK(len)) | UTF_START_MARK(len));
return d+len;
     *
     * Unrolled, it looks like:
     *
        if (uv < max_2_byte_uv) return the 2 bytes;
        if (uv < max_3_byte_uv) return the 3 bytes;
        ...
    *
    * Note that on EBCDIC we have to turn things into NATIVE_UTF8, which is a
    * no-op on ASCII platforms */

    /* Not 1-byte; test for and handle 2-byte result.   In the test immediately
     * below, the 32 is for start bytes C0-CF, D0-DF, each of which has a
     * continuation byte which contributes SHIFT bits.  This yields 0x400 on
     * EBCDIC platforms, 0x800 on ASCII */
    if (uv < (32 * (1U << SHIFT))) {
*d++ = I8_TO_NATIVE_UTF8(( uv >> SHIFT) | UTF_START_MARK(2));
*d++ = I8_TO_NATIVE_UTF8(( uv           & MASK) |   MARK);
return d;
    }

    /* Not 2-byte; test for and handle 3-byte result.   In the test immediately
     * below, the 16 is for start bytes E0-EF (which are the ones that indicate
     * 3 bytes), the 2 is for 2 continuation bytes which each contribute SHIFT
     * bits.  This yields 0x4000 on EBCDIC platforms, 0x1_0000 on ASCII, so 3
     * bytes covers the range 0x400-0x3FFF on EBCDIC; 0x800-0xFFFF on ASCII */
    if (uv < (16 * (1U << (2 * SHIFT)))) {
*d++ = I8_TO_NATIVE_UTF8(( uv >> ((3 - 1) * SHIFT)) | UTF_START_MARK(3));
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((2 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(( uv  /* (1 - 1) */        & MASK) |   MARK);

 #ifndef EBCDIC  /* These problematic code points are 4 bytes on EBCDIC */
        /* The most likely code points in this range are below the surrogates.
         * Do an extra test to quickly exclude those. */
        if (UNLIKELY(uv >= UNICODE_SURROGATE_FIRST)) {
            if (UNLIKELY(   UNICODE_IS_32_NONCHARS(uv)
                         || UNICODE_IS_xFFF_E_F(uv)))
            {
                goto handle_nonchar;
            }
            if (UNLIKELY(UNICODE_IS_SURROGATE(uv))) {
                goto handle_surrogate;
            }
        }
 #endif
return d;
    }

    /* Not 3-byte; test for and handle 4-byte result.   In the test immediately
     * below, the 8 is for start bytes F0-F7, the 3 is for 3 continuation bytes
     * which each contribute SHIFT bits.  This yields 0x4_0000 on EBCDIC
     * platforms, 0x20_0000 on ASCII, so 4 bytes covers the range
     * 0x4000-0x3_FFFF on EBCDIC; 0x1_0000-0x1F_FFFF on ASCII */
    if (uv < (8 * (1U << (3 * SHIFT)))) {
*d++ = I8_TO_NATIVE_UTF8(( uv >> ((4 - 1) * SHIFT)) | UTF_START_MARK(4));
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((3 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((2 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(( uv  /* (1 - 1) */        & MASK) |   MARK);

 #ifdef EBCDIC  /* These problematic code points are 3 bytes on ASCII */
if (UNLIKELY(   UNICODE_IS_32_NONCHARS(uv)
                     || UNICODE_IS_xFFF_E_F(uv)))
        {
            goto handle_nonchar;
        }
if (UNLIKELY(UNICODE_IS_SURROGATE(uv))) {
            goto handle_surrogate;
        }
 #else
if (UNLIKELY(   UNICODE_IS_xFFF_E_F(uv))
                     || UNICODE_IS_10_FFF_E_F(uv))
        {
            goto handle_nonchar;
        }
        if (UNLIKELY(UNICODE_IS_SUPER(uv))) {
            goto handle_super;
        }
 #endif
return d;
    }

    /* Not 4-byte; test for and handle 5-byte result.   In the test immediately
     * below, the first 4 is for start bytes F8-FB, the second 4 is for 4
     * continuation bytes which each contribute SHIFT bits.  This yields
     * 0x40_0000 on EBCDIC platforms, 0x400_0000 on ASCII, so 5 bytes covers
     * the range 0x4_0000-0x3F_FFFF on EBCDIC; 0x20_0000-0x3FF_FFFF on ASCII */
    if (uv < (4 * (1U << (4 * SHIFT)))) {
*d++ = I8_TO_NATIVE_UTF8(( uv >> ((5 - 1) * SHIFT)) | UTF_START_MARK(5));
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((4 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((3 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((2 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(( uv  /* (1 - 1) */        & MASK) |   MARK);

 #ifdef EBCDIC
if (UNLIKELY(   UNICODE_IS_xFFF_E_F(uv))
                     || UNICODE_IS_10_FFF_E_F(uv))
        {
            goto handle_nonchar;
        }
        if (UNLIKELY(UNICODE_IS_SUPER(uv))) {
            goto handle_super;
        }
        return d;
 #else
goto handle_super;
 #endif
    }

    /* Not 5-byte; test for and handle 6-byte result.   In the test immediately
     * below, the 2 is for start bytes FC-FD, the 5 is for 5 continuation bytes
     * which each contribute SHIFT bits.  This yields 0x400_0000 on EBCDIC
     * platforms, 0x8000_0000 on ASCII, so 6 bytes covers the range
     * 0x40_0000-0x3FF_FFFF on EBCDIC; 0x400_0000-0x7FFF_FFFF on ASCII. */
    if (uv < (2 * (1U << (5 * SHIFT)))) {
*d++ = I8_TO_NATIVE_UTF8(( uv >> ((6 - 1) * SHIFT)) | UTF_START_MARK(6));
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((5 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((4 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((3 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((2 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(( uv  /* (1 - 1) */        & MASK) |   MARK);
goto handle_super;
    }

    /* This could be moved down for EBCDIC, but not worth the complexity */
    if (   UNLIKELY(uv > MAX_NON_DEPRECATED_CP) && ckWARN_d(WARN_DEPRECATED)) {
        Perl_warner(aTHX_ packWARN(WARN_DEPRECATED),
                    cp_above_legal_max, uv, MAX_NON_DEPRECATED_CP);
    }

    /* Not 6-byte; handle 7-byte result.  There is no need for a test on
     * platforms where 7 bytes is the maximum possible, .  The FE start byte
     * can have 6 continuation bytes which each contribute SHIFT bits.  This
     * yields 0x4000_0000 on EBCDIC platforms, 0x10_0000_0000 on ASCII, so 7
     * bytes covers the range 0x400_0000-0x3FFF_FFFF on EBCDIC;
     * 0x400_0000-0xF_FFFF_FFFF on ASCII */
 #if defined(UV_IS_QUAD) || defined(EBCDIC)
    if (uv < ((UV) 1U << (6 * SHIFT)))
 #endif
    {
*d++ = I8_TO_NATIVE_UTF8(0xfe); /* Can't match U+FEFF! */
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((6 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((5 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((4 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((3 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((2 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(( uv  /* (1 - 1) */        & MASK) |   MARK);
 #ifdef EBCDIC
        goto handle_super;
 #else
goto handle_above_31_bit;
 #endif
    }

    /* Below is for a 0xFF start byte.  You need a 64-bit word size to be able
     * to express this on an ASCII machine, but a 32-bit word expresses the
     * lower range on EBCDIC platforms */
 #if defined(UV_IS_QUAD) || defined(EBCDIC)
    {
        /* UTF8_MAX_BYTES result.  The 0xff start byte is followed by 13
         * continuation bytes on EBCDIC; 12 on ASCII.  These numbers of bytes
         * are essentially arbitrary, but were chosen to be enough to represent
         * 2**64 - 1 (plus an extra byte on ASCII).  */
        *d++ = I8_TO_NATIVE_UTF8(0xff); /* Can't match U+FFFE! */
 #   ifdef UV_IS_QUAD
 #      ifndef EBCDIC
*d++ =    /*      ASCII platform (12 - 1) 6 Reserved bits */    MARK;
 #      else
*d++ = I8_TO_NATIVE_UTF8(((uv >>((13 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >>((12 - 1) * SHIFT)) & MASK) |   MARK);
 #      endif
*d++ = I8_TO_NATIVE_UTF8(((uv >>((11 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >>((10 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((9 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((8 - 1) * SHIFT)) & MASK) |   MARK);
 #   else    /* Here, must be EBCDIC without quad */
*d++ = I8_TO_NATIVE_UTF8(    /*  (13 - 1) 5 Reserved bits */    MARK);
*d++ = I8_TO_NATIVE_UTF8(    /*  (12 - 1) 5 Reserved bits */    MARK);
*d++ = I8_TO_NATIVE_UTF8(    /*  (11 - 1) 5 Reserved bits */    MARK);
*d++ = I8_TO_NATIVE_UTF8(    /*  (10 - 1) 5 Reserved bits */    MARK);
*d++ = I8_TO_NATIVE_UTF8(    /*  ( 9 - 1) 5 Reserved bits */    MARK);
*d++ = I8_TO_NATIVE_UTF8(    /*  ( 8 - 1) 5 Reserved bits */    MARK);
 #   endif
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((7 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((6 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((5 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((4 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((3 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(((uv >> ((2 - 1) * SHIFT)) & MASK) |   MARK);
*d++ = I8_TO_NATIVE_UTF8(( uv  /* (1 - 1) */        & MASK) |   MARK);
    }
 #endif

 #ifdef EBCDIC
    if (uv <= 0x7FFFFFFF) {
        goto handle_super;
    }
 #endif
    /* FALLTHROUGH */                                                           \

  handle_above_31_bit:

    if (flags & (UNICODE_WARN_ABOVE_31_BIT|UNICODE_WARN_SUPER)) {
        Perl_ck_warner_d(aTHX_ packWARN(WARN_NON_UNICODE),
                  "Code point 0x%"UVXf" is not Unicode, and not portable", uv);
        /* So won't warn twice; we have to fall through into handle_super in
         * case supers are disallowed */
        flags &= ~UNICODE_WARN_SUPER;
    }

    if (flags & UNICODE_DISALLOW_ABOVE_31_BIT) {
        return NULL;
    }

  handle_super:
    if (flags & UNICODE_WARN_SUPER) {
        Perl_ck_warner_d(aTHX_ packWARN(WARN_NON_UNICODE),
            "Code point 0x%04"UVXf" is not Unicode, may not be portable", uv);
    }

    if (flags & UNICODE_DISALLOW_SUPER) {
        return NULL;
    }
    return d;

  handle_surrogate:
    if (flags & UNICODE_WARN_SURROGATE) {
        Perl_ck_warner_d(aTHX_ packWARN(WARN_SURROGATE),
                                    "UTF-16 surrogate U+%04"UVXf, uv);
    }
    if (flags & UNICODE_DISALLOW_SURROGATE) {
        return NULL;
    }
    return d;

  handle_nonchar:
    if (flags & UNICODE_WARN_NONCHAR) {
        Perl_ck_warner_d(aTHX_ packWARN(WARN_NONCHAR),
         "Unicode non-character U+%04"UVXf" is not recommended for open interchange",
         uv);
    }
    if (flags & UNICODE_DISALLOW_NONCHAR) {
        return NULL;
    }
    return d;
}

5 years agoutf8.c: Extract some code into macros
Karl Williamson [Tue, 8 Dec 2015 18:19:40 +0000 (11:19 -0700)]
utf8.c: Extract some code into macros

This is in preparation for a future commit, where they will be used in
more than one place.

5 years agoutf8.c: White-space only
Karl Williamson [Tue, 8 Dec 2015 18:13:16 +0000 (11:13 -0700)]
utf8.c: White-space only

Most of these white-space only changes are outdenting, in preparation
for a later commit

5 years agoutf8.c: Add some UNLIKELY()
Karl Williamson [Tue, 8 Dec 2015 18:08:51 +0000 (11:08 -0700)]
utf8.c: Add some UNLIKELY()

5 years agoutf8.c: Reorder some tests
Karl Williamson [Mon, 7 Dec 2015 04:32:28 +0000 (21:32 -0700)]
utf8.c: Reorder some tests

When converting a code point to its UTF-8 form, the code point is
checked to be sure it is not problematic.  It turns out that all
problematic code points require at least 3 UTF-8 bytes to represent.
Already, the single-byte characters are handled before the problematic
tests.  This changes so that the two-byte ones are as well.  Further, it
now uses the canned macros that do this which are valid on both EBCDIC
and ASCII systems, instead of the previous code, which was
ASCII-specific.  This means one less test when the input code point is
representable by 2 bytes.

5 years agoutf8.h: Split UNICODE_IS_NONCHAR() into smaller macros
Karl Williamson [Sat, 7 Nov 2015 17:37:47 +0000 (10:37 -0700)]
utf8.h: Split UNICODE_IS_NONCHAR() into smaller macros

This defines 2 macros that can be used individually to check for
non-characters when the input range is known to be restricted to not
include every possible one.  This is for future commits.

5 years agoimprove my rewrite of installhtml’s dir scan
Aristotle Pagaltzis [Tue, 8 Dec 2015 23:36:38 +0000 (00:36 +0100)]
improve my rewrite of installhtml’s dir scan

5 years agoAdd epigraph for 5.22.1-RC4
Steve Hay [Tue, 8 Dec 2015 21:41:50 +0000 (21:41 +0000)]
Add epigraph for 5.22.1-RC4

5 years agoPerl 5.22.1-RC4 today
Steve Hay [Tue, 8 Dec 2015 20:51:11 +0000 (20:51 +0000)]
Perl 5.22.1-RC4 today

5 years agoperldelta: davem's significant stuff since 5.23.5
David Mitchell [Tue, 8 Dec 2015 16:19:54 +0000 (16:19 +0000)]
perldelta: davem's significant stuff since 5.23.5

5 years agoFix t/op/sprintf2.t on VMS
Craig A. Berry [Tue, 8 Dec 2015 08:19:48 +0000 (08:19 +0000)]
Fix t/op/sprintf2.t on VMS

(Passed under harness, but failed under TEST.)

5 years agoFix Emacs dir-local variables
Aaron Crane [Mon, 7 Dec 2015 20:13:08 +0000 (20:13 +0000)]
Fix Emacs dir-local variables

The setting for cperl-indent-level (which sets the default indentation step
used by Emacs for Perl code) was missing a dot in the relevant cons pair.
This meant that the value set was the single-element list (4) rather than
the integer 4, so attempting to indent lines made Emacs produce an error
"Wrong type argument: number-or-marker-p, (4)".

5 years agoregen charclass_invlists.h
Ricardo Signes [Mon, 7 Dec 2015 16:21:27 +0000 (11:21 -0500)]
regen charclass_invlists.h

This is needed bcause mktables changed.  A porting test did not pick
this up, and so probably should be made to.

5 years agomention $? in backticks documentation
Doug Bell [Tue, 24 Nov 2015 08:31:38 +0000 (02:31 -0600)]
mention $? in backticks documentation

Backticks work like system(), in that they use $? for the child exit
code. Mention that so people know to look in $? when their program
fails.

5 years agostandardize on "lookahead" and "lookaround"
Ed Avis [Mon, 7 Dec 2015 16:08:39 +0000 (11:08 -0500)]
standardize on "lookahead" and "lookaround"

...not the hyphenated form

commit message by rjbs

5 years agoRemove duplicate line from test
Steve Hay [Mon, 7 Dec 2015 09:24:51 +0000 (09:24 +0000)]
Remove duplicate line from test

5 years agoperldelta for 817e3e2c6
Tony Cook [Mon, 7 Dec 2015 03:08:11 +0000 (14:08 +1100)]
perldelta for 817e3e2c6

and a small typo fix

5 years ago[perl #123991] report an error if we can't parse the number after -C
Tony Cook [Thu, 26 Nov 2015 00:18:52 +0000 (11:18 +1100)]
[perl #123991] report an error if we can't parse the number after -C

5 years agoUpdate Math-BigInt-FastCalc to CPAN version 0.38
Chris 'BinGOs' Williams [Fri, 4 Dec 2015 15:37:53 +0000 (15:37 +0000)]
Update Math-BigInt-FastCalc to CPAN version 0.38

  [DELTA]

2015-12-02 v0.38 pjacklam
  * Use 'static double', not just 'double' in FastCalc.xs.
  * Move 'Test::More' from 'build_requires' to 'test_requires' in Makefile.PL.

5 years agoutf8.h, utfebcdic.h: Comments, white-space only
Karl Williamson [Fri, 6 Nov 2015 20:21:48 +0000 (13:21 -0700)]
utf8.h, utfebcdic.h: Comments, white-space only

5 years agohexfp: test longdblkind directly, instead of doublekind
Jarkko Hietaniemi [Sun, 6 Dec 2015 15:03:48 +0000 (10:03 -0500)]
hexfp: test longdblkind directly, instead of doublekind

Also, explain the gating on linux on this test.

(suggested by Aaron Crane)

5 years agoPorting/Glossary: fix a set of typos
Aaron Crane [Sun, 6 Dec 2015 13:30:34 +0000 (13:30 +0000)]
Porting/Glossary: fix a set of typos

A few descriptions of floating-point formats included the word "big" before
the actual endianness.

5 years agoperldelta: Add note about earlier \p{} changes
Karl Williamson [Sun, 6 Dec 2015 05:53:55 +0000 (22:53 -0700)]
perldelta: Add note about earlier \p{} changes

5 years agoAPItest: Add tests for valid_utf8_to_uvchr
Karl Williamson [Fri, 13 Nov 2015 16:35:19 +0000 (09:35 -0700)]
APItest: Add tests for valid_utf8_to_uvchr

5 years agot/uni/case.pl: Sort numerics with <=> to get better results
Karl Williamson [Sun, 29 Nov 2015 17:57:04 +0000 (10:57 -0700)]
t/uni/case.pl: Sort numerics with <=> to get better results

5 years agoutf8.h: Remove a branch in macro for Unicode surrogates
Karl Williamson [Sat, 7 Nov 2015 17:32:54 +0000 (10:32 -0700)]
utf8.h: Remove a branch in macro for Unicode surrogates

By masking, this macro can be written so it only has one branch.
Presumably an optimizing compiler would do the same, but not necessarily
so.

5 years agoutf8.h: Add some casts in macros, for safety
Karl Williamson [Tue, 10 Nov 2015 00:29:05 +0000 (17:29 -0700)]
utf8.h: Add some casts in macros, for safety

This also renames the macro formal parameter to uv to be clearer as to
what is expected as input, and there were cases where it was referred to
inside the macro without being parenthesized, which was dangerous.

5 years agoMerge commit for removing EBCDIC special code
Karl Williamson [Sun, 6 Dec 2015 05:07:57 +0000 (22:07 -0700)]
Merge commit for removing EBCDIC special code

It's better to use the same code and definitons whenever possible for
different platforms, for ease of maintenance.  This set of commits
eliminates several cases of differing EBCDIC/ASCII definitions, so that
there is less separate code to maintain.

5 years agoutf8.h: Combine EBCDIC and ASCII macros
Karl Williamson [Sun, 6 Dec 2015 04:56:43 +0000 (21:56 -0700)]
utf8.h: Combine EBCDIC and ASCII macros

Previous commits have set things up so the macros are the same on both
platforms.  By moving them to the common part of utf8.h, they can share
the same definition.  The difference listing shows instead other things
being moved due to the size of this move in comparison with those things
that really stayed the same.

5 years agoutf8.h: Refactor macro definition
Karl Williamson [Fri, 6 Nov 2015 18:42:27 +0000 (11:42 -0700)]
utf8.h: Refactor macro definition

This changes to use the underlying UTF-8 structure to compute the
numbers in this macro, instead of hand-specifying the resultant ones.
Thus, this macro, with minor tweaks, is the same text on both ASCII and
EBCDIC platforms (though the resultant numbers differ), and the next
commit will change them to use it in common.

5 years agoutf8.h: Combine EBCDIC and ASCII macros
Karl Williamson [Fri, 6 Nov 2015 18:03:22 +0000 (11:03 -0700)]
utf8.h: Combine EBCDIC and ASCII macros

The previous commits have made these macros be the exact same text, so
can be combined, and defined just once.  This requires moving them to
the portion of the file that is common with both EBCDIC and ASCII.

The commit diff shows instead other code being moved.

5 years agoutf8.h: Refactor a macro
Karl Williamson [Fri, 6 Nov 2015 17:56:23 +0000 (10:56 -0700)]
utf8.h: Refactor a macro

This new definition expands to the same thing as before, but now the
unexpanded text is identical to the EBCDIC definition (which expands to
something else), so the next commit can combine the ASCII and EBCDIC
ones into a single definition.

5 years agoutf8.h: Use common macro to avoid repeating
Karl Williamson [Fri, 6 Nov 2015 17:44:36 +0000 (10:44 -0700)]
utf8.h: Use common macro to avoid repeating

This refactors two macros that have mostly the same guts to have a third
macro to define the common guts.

It also changes to use UV_IS_QUAD instead of a home-grown #define that a
future commit will remove.

5 years agoutf8.h: Move #define within file
Karl Williamson [Fri, 6 Nov 2015 17:37:56 +0000 (10:37 -0700)]
utf8.h: Move #define within file

This makes 2 related definitions adjacent.