This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a few perldelta typos
[perl5.git] / pod / perldelta.pod
1 =encoding utf8
2
3 =head1 NAME
4
5 perldelta - what is new for perl v5.22.0
6
7 =head1 DESCRIPTION
8
9 This document describes differences between the 5.22.0 release and the 5.20.0
10 release.
11
12 If you are upgrading from an earlier release such as 5.18.0, first read
13 L<perl5200delta>, which describes differences between 5.18.0 and 5.20.0.
14
15 =head1 Core Enhancements
16
17 =head2 New bitwise operators
18
19 A new experimental facility has been added that makes the four standard
20 bitwise operators (C<& | ^ ~>) treat their operands consistently as
21 numbers, and introduces four new dotted operators (C<&. |. ^. ~.>) that
22 treat their operands consistently as strings.  The same applies to the
23 assignment variants (C<&= |= ^= &.= |.= ^.=>).
24
25 To use this, enable the "bitwise" feature and disable the
26 "experimental::bitwise" warnings category.  See L<perlop/Bitwise String
27 Operators> for details.
28 L<[perl #123466]|https://rt.perl.org/Ticket/Display.html?id=123466>.
29
30 =head2 New double-diamond operator
31
32 C<<< <<>> >>> is like C<< <> >> but uses three-argument C<open> to open
33 each file in @ARGV.  So each element of @ARGV is an actual file name, and
34 "|foo" won't be treated as a pipe open.
35
36 =head2 New \b boundaries in regular expressions
37
38 =head3 qr/\b{gcb}/
39
40 C<gcb> stands for Grapheme Cluster Boundary.  It is a Unicode property
41 that finds the boundary between sequences of characters that look like a
42 single character to a native speaker of a language.  Perl has long had
43 the ability to deal with these through the C<\X> regular escape
44 sequence.  Now, there is an alternative way of handling these.  See
45 L<perlrebackslash/\b{}, \b, \B{}, \B> for details.
46
47 =head3 qr/\b{wb}/
48
49 C<wb> stands for Word Boundary.  It is a Unicode property
50 that finds the boundary between words.  This is similar to the plain
51 C<\b> (without braces) but is more suitable for natural language
52 processing.  It knows, for example that apostrophes can occur in the
53 middle of words.  See L<perlrebackslash/\b{}, \b, \B{}, \B> for details.
54
55 =head3 qr/\b{sb}/
56
57 C<sb> stands for Sentence Boundary.  It is a Unicode property
58 to aid in parsing natural language sentences.
59 See L<perlrebackslash/\b{}, \b, \B{}, \B> for details.
60
61 =head2 C<no re> covers more and is lexical
62
63 Previously running C<no re> would only turn off a few things. Now it
64 turns off all the enabled things. For example, previously, you
65 couldn't turn off debugging, once enabled, inside the same block.
66
67 =head2 Non-Capturing Regular Expression Flag
68
69 Regular expressions now support a C</n> flag that disables capturing
70 and filling in C<$1>, C<$2>, etc... inside of groups:
71
72   "hello" =~ /(hi|hello)/n; # $1 is not set
73
74 This is equivalent to putting C<?:> at the beginning of every capturing group.
75
76 See L<perlre/"n"> for more information.
77
78 =head2 C<use re 'strict'>
79
80 This applies stricter syntax rules to regular expression patterns
81 compiled within its scope, which hopefully will alert you to typos and
82 other unintentional behavior that backwards-compatibility issues prevent
83 us from doing in normal regular expression compilations.  Because the
84 behavior of this is subject to change in future Perl releases as we gain
85 experience, using this pragma will raise a category
86 C<experimental::re_strict> warning.
87 See L<'strict' in re|re/'strict' mode>.
88
89 =head2 C<qr/foo/x> now ignores any Unicode pattern white space
90
91 The C</x> regular expression modifier allows the pattern to contain
92 white space and comments, both of which are ignored, for improved
93 readability.  Until now, not all the white space characters that Unicode
94 designates for this purpose were handled.  The additional ones now
95 recognized are
96 U+0085 NEXT LINE,
97 U+200E LEFT-TO-RIGHT MARK,
98 U+200F RIGHT-TO-LEFT MARK,
99 U+2028 LINE SEPARATOR,
100 and
101 U+2029 PARAGRAPH SEPARATOR.
102
103 =head2 Unicode 7.0 is now supported
104
105 For details on what is in this release, see
106 L<http://www.unicode.org/versions/Unicode7.0.0/>.
107
108 =head2 S<C<use locale>> can restrict which locale categories are affected
109
110 It is now possible to pass a parameter to S<C<use locale>> to specify
111 a subset of locale categories to be locale-aware, with the remaining
112 ones unaffected.  See L<perllocale/The "use locale" pragma> for details.
113
114 =head2 Perl now supports POSIX 2008 locale currency additions.
115
116 On platforms that are able to handle POSIX.1-2008, the
117 hash returned by
118 L<C<POSIX::localeconv()>|perllocale/The localeconv function>
119 includes the international currency fields added by that version of the
120 POSIX standard.  These are
121 C<int_n_cs_precedes>,
122 C<int_n_sep_by_space>,
123 C<int_n_sign_posn>,
124 C<int_p_cs_precedes>,
125 C<int_p_sep_by_space>,
126 and
127 C<int_p_sign_posn>.
128
129 =head2 Better heuristics on older platforms for determining locale UTF8ness
130
131 On platforms that implement neither the C99 standard nor the POSIX 2001
132 standard, determining if the current locale is UTF8 or not depends on
133 heuristics.  These are improved in this release.
134
135 =head2 Aliasing via reference
136
137 Variables and subroutines can now be aliased by assigning to a reference:
138
139     \$c = \$d;
140     \&x = \&y;
141
142 Or by using a backslash before a C<foreach> iterator variable, which is
143 perhaps the most useful idiom this feature provides:
144
145     foreach \%hash (@array_of_hash_refs) { ... }
146
147 This feature is experimental and must be enabled via C<use feature
148 'refaliasing'>.  It will warn unless the C<experimental::refaliasing>
149 warnings category is disabled.
150
151 See L<perlref/Assigning to References>
152
153 =head2 C<prototype> with no arguments
154
155 C<prototype()> with no arguments now infers C<$_>.
156 L<[perl #123514]|https://rt.perl.org/Ticket/Display.html?id=123514>.
157
158 =head2 New "const" subroutine attribute
159
160 The "const" attribute can be applied to an anonymous subroutine.  It causes
161 it to be executed immediately when it is cloned.  Its value is captured and
162 used to create a new constant subroutine that is returned.  This feature is
163 experimental.  See L<perlsub/Constant Functions>.
164
165 =head2 C<fileno> now works on directory handles
166
167 When the relevant support is available in the operating system, the
168 C<fileno> builtin now works on directory handles, yielding the
169 underlying file descriptor in the same way as for filehandles. On
170 operating systems without such support, C<fileno> on a directory handle
171 continues to return the undefined value, as before, but also sets C<$!> to
172 indicate that the operation is not supported.
173
174 Currently, this uses either a C<dd_fd> member in the OS C<DIR>
175 structure, or a dirfd(3) function as specified by POSIX.1-2008.
176
177 =head2 List form of pipe open implemented for Win32
178
179 The list form of pipe:
180
181   open my $fh, "-|", "program", @arguments;
182
183 is now implemented on Win32.  It has the same limitations as C<system
184 LIST> on Win32, since the Win32 API doesn't accept program arguments
185 as a list.
186
187 =head2 C<close> now sets C<$!>
188
189 When an I/O error occurs, the fact that there has been an error is recorded
190 in the handle.  C<close> returns false for such a handle.  Previously, the
191 value of C<$!> would be untouched by C<close>, so the common convention of
192 writing C<close $fh or die $!> did not work reliably.  Now the handle
193 records the value of C<$!>, too, and C<close> restores it.
194
195 =head2 Assignment to list repetition
196
197 C<(...) x ...> can now be used within a list that is assigned to, as long
198 as the left-hand side is a valid lvalue.  This allows C<(undef,undef,$foo)
199 = that_function()> to be written as C<((undef)x2, $foo) = that_function()>.
200
201 =head2 Infinity and NaN (not-a-number) handling improved
202
203 Floating point values are able to hold the special values infinity (also
204 -infinity), and NaN (not-a-number).  Now we more robustly recognize and
205 propagate the value in computations, and on output normalize them to C<Inf> and
206 C<NaN>.
207
208 See also the L<POSIX> enhancements.
209
210 =head2 Floating point parsing has been improved
211
212 Parsing and printing of floating point values has been improved.
213
214 As a completely new feature, hexadecimal floating point literals
215 (like 0x1.23p-4)  are now supported, and they can be output with
216 C<printf %a>.
217
218 =head2 Packing infinity or not-a-number into a character is now fatal
219
220 Before, when trying to pack infinity or not-a-number into a
221 (signed) character, Perl would warn, and assumed you tried to
222 pack C<< 0xFF >>; if you gave it as an argument to C<< chr >>,
223 C<< U+FFFD >> was returned.
224
225 But now, all such actions (C<< pack >>, C<< chr >>, and C<< print '%c' >>)
226 result in a fatal error.
227
228 =head2 Experimental C Backtrace API
229
230 Starting from Perl 5.21.1, on some platforms Perl supports retrieving
231 the C level backtrace (similar to what symbolic debuggers like gdb do).
232
233 The backtrace returns the stack trace of the C call frames,
234 with the symbol names (function names), the object names (like "perl"),
235 and if it can, also the source code locations (file:line).
236
237 The supported platforms are Linux and OS X (some *BSD might work at
238 least partly, but they have not yet been tested).
239
240 The feature needs to be enabled with C<Configure -Dusecbacktrace>.
241
242 Also included is a C API to retrieve backtraces.
243
244 See L<perlhacktips/"C backtrace"> for more information.
245
246 =head1 Security
247
248 =head2 Perl is now compiled with -fstack-protector-strong if available
249
250 Perl has been compiled with the anti-stack-smashing option
251 C<-fstack-protector> since 5.10.1.  Now Perl uses the newer variant
252 called C<-fstack-protector-strong>, if available.
253
254 =head2 The L<Safe> module could allow outside packages to be replaced
255
256 Critical bugfix: outside packages could be replaced.  L<Safe> has
257 been patched to 2.38 to address this.
258
259 =head2 Perl is now always compiled with -D_FORTIFY_SOURCE=2 if available
260
261 The 'code hardening' option called C<_FORTIFY_SOURCE>, available in
262 gcc 4.*, is now always used for compiling Perl, if available.
263
264 Note that this isn't necessarily a huge step since in many platforms
265 the step had already been taken several years ago: many Linux
266 distributions (like Fedora) have been using this option for Perl,
267 and OS X has enforced the same for many years.
268
269 =head1 Incompatible Changes
270
271 =head2 Subroutine signatures moved before attributes
272
273 The experimental sub signatures feature, as introduced in 5.20, parsed
274 signatures after attributes.  In this release, the positioning has been
275 moved such that signatures occur after the subroutine name (if any) and
276 before the attribute list (if any).
277
278 =head2 C<&> and C<\&> prototypes accepts only subs
279
280 The C<&> prototype character now accepts only anonymous subs (C<sub {...}>)
281 and things beginning with C<\&>.  Formerly it erroneously also allowed
282 C<undef> and references to array, hashes, and lists.
283 L<[perl #4539]|https://rt.perl.org/Ticket/Display.html?id=4539>.
284 L<[perl #123062]|https://rt.perl.org/Ticket/Display.html?id=123062>.
285
286 The C<\&> prototype was allowing subroutine calls, whereas now it only
287 allows subroutines.  C<&foo> is permitted.  C<&foo()> and C<foo()> are not.
288 L<[perl #77860]|https://rt.perl.org/Ticket/Display.html?id=77860>.
289
290 =head2 C<use encoding> is now lexical
291
292 The L<encoding> pragma's effect is now limited to lexical scope.  This
293 pragma is deprecated, but in the meantime, it could adversely affect
294 unrelated modules that are included in the same program.
295
296 =head2 List slices returning empty lists
297
298 List slices return an empty list now only if the original list was empty
299 (or if there are no indices).  Formerly, a list slice would return an empty
300 list if all indices fell outside the original list.
301 L<[perl #114498]|https://rt.perl.org/Ticket/Display.html?id=114498>.
302
303 =head2 C<\N{}> with a sequence of multiple spaces is now a fatal error.
304
305 This has been deprecated since v5.18.
306
307 =head2 S<C<use UNIVERSAL '...'>> is now a fatal error
308
309 Importing functions from C<UNIVERSAL> has been deprecated since v5.12, and
310 is now a fatal error.  S<C<"use UNIVERSAL">> without any arguments is still
311 allowed.
312
313 =head2 In double-quotish C<\cI<X>>, I<X> must now be a printable ASCII character
314
315 In prior releases, failure to do this raised a deprecation warning.
316
317 =head2 Splitting the tokens C<(?> and C<(*> in regular expressions is
318 now a fatal compilation error.
319
320 These had been deprecated since v5.18.
321
322 =head2 5 additional characters are treated as white space under C</x> in
323 regex patterns (unless escaped)
324
325 The use of these characters with C</x> outside bracketed character
326 classes and when not preceded by a backslash has raised a deprecation
327 warning since v5.18.  Now they will be ignored.  See L</"qr/foo/x">
328 for the list of the five characters.
329
330 =head2 Comment lines within S<C<(?[ ])>> now are ended only by a C<\n>
331
332 S<C<(?[ ])>>  is an experimental feature, introduced in v5.18.  It operates
333 as if C</x> is always enabled.  But there was a difference, comment
334 lines (following a C<#> character) were terminated by anything matching
335 C<\R> which includes all vertical whitespace, such as form feeds.  For
336 consistency, this is now changed to match what terminates comment lines
337 outside S<C<(?[ ])>>, namely a C<\n> (even if escaped), which is the
338 same as what terminates a heredoc string and formats.
339
340 =head2 C<(?[...])> operators now follow standard Perl precedence
341
342 This experimental feature allows set operations in regular expression patterns.
343 Prior to this, the intersection operator had the same precedence as the other
344 binary operators.  Now it has higher precedence.  This could lead to different
345 outcomes than existing code expects (though the documentation has always noted
346 that this change might happen, recommending fully parenthesizing the
347 expressions).  See L<perlrecharclass/Extended Bracketed Character Classes>.
348
349 =head2 Omitting % and @ on hash and array names is no longer permitted
350
351 Really old Perl let you omit the @ on array names and the % on hash
352 names in some spots.  This has issued a deprecation warning since Perl
353 5.0, and is no longer permitted.
354
355 =head2 C<"$!"> text is now in English outside C<"use locale"> scope
356
357 Previously, the text, unlike almost everything else, always came out
358 based on the current underlying locale of the program.  (Also affected
359 on some systems is C<"$^E>".)  For programs that are unprepared to
360 handle locale, this can cause garbage text to be displayed.  It's better
361 to display text that is translatable via some tool than garbage text
362 which is much harder to figure out.
363
364 =head2 C<"$!"> text will be returned in UTF-8 when appropriate
365
366 The stringification of C<$!> and C<$^E> will have the UTF-8 flag set
367 when the text is actually non-ASCII UTF-8.  This will enable programs
368 that are set up to be locale-aware to properly output messages in the
369 user's native language.  Code that needs to continue the 5.20 and
370 earlier behavior can do the stringification within the scopes of both
371 'use bytes' and 'use locale ":messages".  No other Perl operations will
372 be affected by locale; only C<$!> and C<$^E> stringification.  The
373 'bytes' pragma causes the UTF-8 flag to not be set, just as in previous
374 Perl releases.  This resolves
375 L<[perl #112208]|https://rt.perl.org/Ticket/Display.html?id=112208>.
376
377 =head2 Support for C<?PATTERN?> without explicit operator has been removed
378
379 Starting regular expressions matching only once directly with the
380 question mark delimiter is now a syntax error, so that the question mark
381 can be available for use in new operators.  Write C<m?PATTERN?> instead,
382 explicitly using the C<m> operator: the question mark delimiter still
383 invokes match-once behaviour.
384
385 =head2 C<defined(@array)> and C<defined(%hash)> are now fatal errors
386
387 These have been deprecated since v5.6.1 and have raised deprecation
388 warnings since v5.16.
389
390 =head2 Using a hash or an array as a reference are now fatal errors.
391
392 For example, C<%foo-E<gt>{"bar"}> now causes a fatal compilation
393 error.  These have been deprecated since before v5.8, and have raised
394 deprecation warnings since then.
395
396 =head2 Changes to the C<*> prototype
397
398 The C<*> character in a subroutine's prototype used to allow barewords to take
399 precedence over most, but not all subroutines.  It was never consistent and
400 exhibited buggy behaviour.
401
402 Now it has been changed, so subroutines always take precedence over barewords,
403 which brings it into conformity with similarly prototyped built-in functions:
404
405     sub splat(*) { ... }
406     sub foo { ... }
407     splat(foo); # now always splat(foo())
408     splat(bar); # still splat('bar') as before
409     close(foo); # close(foo())
410     close(bar); # close('bar')
411
412 =head1 Deprecations
413
414 =head2 Setting C<${^ENCODING}> to anything but C<undef>
415
416 This variable allows Perl scripts to be written in a non-ASCII,
417 non-UTF-8 encoding.  However, it affects all modules globally, leading
418 to wrong answers and segmentation faults.  New scripts should be written
419 in UTF-8; old scripts should be converted to UTF-8, which is easily done
420 with the L<encoding> pragma.
421
422 =head2 C<< /\C/ >> character class
423
424 This character class, which matches a single byte, even if it appears
425 in a multi-byte character has been deprecated. Matching single bytes
426 in a multi-byte character breaks encapsulation, and can corrupt utf8
427 strings.
428
429 =head2 Use of non-graphic characters in single-character variable names
430
431 The syntax for single-character variable names is more lenient than
432 for longer variable names, allowing the one-character name to be a
433 punctuation character or even invisible (a non-graphic).  Perl v5.20
434 deprecated the ASCII-range controls as such a name.  Now, all
435 non-graphic characters that formerly were allowed are deprecated.
436 The practical effect of this occurs only when not under C<S<"use
437 utf8">>, and affects just the C1 controls (code points 0x80 through
438 0xFF), NO-BREAK SPACE, and SOFT HYPHEN.
439
440 =head2 Inlining of C<sub () { $var }> with observable side-effects
441
442 In many cases Perl makes sub () { $var } into an inlinable constant
443 subroutine, capturing the value of $var at the time the C<sub> expression
444 is evaluated.  This can break the closure behaviour in those cases where
445 $var is subsequently modified.  The subroutine won't return the new value.
446
447 This usage is now deprecated in those cases where the variable could be
448 modified elsewhere.  Perl detects those cases and emits a deprecation
449 warning.  Such code will likely change in the future and stop producing a
450 constant.
451
452 If your variable is only modified in the place where it is declared, then
453 Perl will continue to make the sub inlinable with no warnings.
454
455     sub make_constant {
456         my $var = shift;
457         return sub () { $var }; # fine
458     }
459
460     sub make_constant_deprecated {
461         my $var;
462         $var = shift;
463         return sub () { $var }; # deprecated
464     }
465
466     sub make_constant_deprecated2 {
467         my $var = shift;
468         log_that_value($var); # could modify $var
469         return sub () { $var }; # deprecated
470     }
471
472 In the second example above, detecting that $var is assigned to only once
473 is too hard to detect.  That it happens in a spot other than the C<my>
474 declaration is enough for Perl to find it suspicious.
475
476 This deprecation warning happens only for a simple variable for the body of
477 the sub.  (A C<BEGIN> block or C<use> statement inside the sub is ignored,
478 because it does not become part of the sub's body.)  For more complex
479 cases, such as C<sub () { do_something() if 0; $var }> the behaviour has
480 changed such that inlining does not happen if the variable is modifiable
481 elsewhere.  Such cases should be rare.
482
483 =head2 Use of multiple /x regexp modifiers
484
485 It is now deprecated to say something like any of the following:
486
487     qr/foo/xx;
488     /(?xax:foo)/;
489     use re qw(/amxx);
490
491 That is, now C<x> should only occur once in any string of contiguous
492 regular expression pattern modifiers.  We do not believe there are any
493 occurrences of this in all of CPAN.  This is in preparation for a future
494 Perl release having C</xx> mean to allow white-space for readability in
495 bracketed character classes (those enclosed in square brackets:
496 C<[...]>).
497
498 =head2 Using a NO-BREAK space in a character alias for C<\N{...}> is now
499 deprecated
500
501 This non-graphic character is essentially indistinguishable from a
502 regular space, and so should not be allowed.  See
503 L<charnames/CUSTOM ALIASES>.
504
505 =head2 A literal C<"{"> should now be escaped in a pattern
506
507 If you want a literal left curly bracket (also called a left brace) in a
508 regular expression pattern, you should now escape it by either
509 preceding it with a backslash (C<"\{">) or enclosing it within square
510 brackets C<"[{]">, or by using C<\Q>; otherwise a deprecation warning
511 will be raised.  This was first announced as forthcoming in the v5.16
512 release; it will allow future extensions to the language to happen.
513
514 =head2 Making all warnings fatal is discouraged
515
516 The documentation for L<fatal warnings|warnings/Fatal Warnings> notes that
517 C<< use warnings FATAL => 'all' >> is discouraged and provides stronger
518 language about the risks of fatal warnings in general.
519
520 =head1 Performance Enhancements
521
522 =over 4
523
524 =item *
525
526 If method and class names are known at compile time, hashes are precomputed
527 to speed up run-time method lookup.  Also, compound method names like
528 C<SUPER::new> are parsed at compile time, to save having to parse them at
529 run time.
530
531 =item *
532
533 Array and hash lookups (especially nested ones) that use only constants
534 or simple variables as keys, are now considerably faster. See
535 L</Internal Changes> for more details.
536
537 =item *
538
539 C<(...)x1>, C<("constant")x0> and C<($scalar)x0> are now optimised in list
540 context.  If the right-hand argument is a constant 1, the repetition
541 operator disappears.  If the right-hand argument is a constant 0, the whole
542 expression is optimised to the empty list, so long as the left-hand
543 argument is a simple scalar or constant.  C<(foo())x0> is not optimised.
544
545 =item *
546
547 C<substr> assignment is now optimised into 4-argument C<substr> at the end
548 of a subroutine (or as the argument to C<return>).  Previously, this
549 optimisation only happened in void context.
550
551 =item *
552
553 Assignment to lexical variables is often optimised away.  For instance, in
554 C<$lexical = chr $foo>, the C<chr> operator writes directly to the lexical
555 variable instead of returning a value that gets copied.  This optimisation
556 has been extended to C<split>, C<x> and C<vec> on the right-hand side.  It
557 has also been made to work with state variable initialization.
558
559 =item *
560
561 In "\L...", "\Q...", etc., the extra "stringify" op is now optimised away,
562 making these just as fast as C<lcfirst>, C<quotemeta>, etc.
563
564 =item *
565
566 Assignment to an empty list is now sometimes faster.  In particular, it
567 never calls C<FETCH> on tied arguments on the right-hand side, whereas it
568 used to sometimes.
569
570 =item *
571
572 C<length> is up to 20% faster for non-magical/non-tied scalars containing a
573 string if it is a non-utf8 string or if C<use bytes;> is in scope.
574
575 =item *
576
577 Non-magical/non-tied scalars that contain only a floating point value and are
578 on most Perl builds with 64 bit integers now use 8-32 less bytes of memory
579 depending on OS.
580
581 =item *
582
583 In C<@array = split>, the assignment can be optimized away with C<split>
584 writing directly to the array.  This optimisation was happening only for
585 package arrays other than @_ and only
586 sometimes.  Now this optimisation happens
587 almost all the time.
588
589 =item *
590
591 C<join> is now subject to constant folding.  Moreover, C<join> with a
592 scalar or constant for the separator and a single-item list to join is
593 simplified to a stringification.  The separator doesn't even get evaluated.
594
595 =item *
596
597 C<qq(@array)> is implemented using two ops: a stringify op and a join op.
598 If the qq contains nothing but a single array, the stringification is
599 optimized away.
600
601 =item *
602
603 C<our $var> and C<our($s,@a,%h)> in void context are no longer evaluated at
604 run time.  Even a whole sequence of C<our $foo;> statements will simply be
605 skipped over.  The same applies to C<state> variables.
606
607 =item *
608
609 Many internal functions have been refactored to improve performance and reduce
610 their memory footprints.
611 L<[perl #121436]|https://rt.perl.org/Ticket/Display.html?id=121436>
612 L<[perl #121906]|https://rt.perl.org/Ticket/Display.html?id=121906>
613 L<[perl #121969]|https://rt.perl.org/Ticket/Display.html?id=121969>
614
615 =item *
616
617 C<-T> and C<-B> filetests will return sooner when an empty file is detected.
618 L<[perl #121489]|https://rt.perl.org/Ticket/Display.html?id=121489>
619
620 =item *
621
622 Refactoring of C<< pp_tied >> and CC<< pp_ref >> for small improvements.
623
624 =item *
625
626 Pathtools don't try to load XS on miniperl.
627
628 =item *
629
630 A typo fix reduces the size of the C<< OP >> structure.
631
632 =item *
633
634 Hash lookups where the key is a constant is faster.
635
636 =item *
637
638 Subroutines with an empty prototype and bodies containing just C<undef> are now
639 eligible for inlining.
640 L<[perl #122728]|https://rt.perl.org/Ticket/Display.html?id=122728>
641
642 =item *
643
644 Subroutines in packages no longer need to carry typeglobs around with them.
645 Declaring a subroutine will now put a simple sub reference in the stash if
646 possible, saving memory.  The typeglobs still notionally exist, so accessing
647 them will cause the subroutine reference to be upgraded to a typeglob.  This
648 optimization does not currently apply to XSUBs or exported subroutines, and
649 method calls will undo it, since they cache things in typeglobs.
650 L<[perl #120441]|https://rt.perl.org/Ticket/Display.html?id=120441>
651
652 =item *
653
654 The functions C<utf8::native_to_unicode()> and C<utf8::unicode_to_native()>
655 (see L<utf8>) are now optimized out on ASCII platforms.  There is now not even
656 a minimal performance hit in writing code portable between ASCII and EBCDIC
657 platforms.
658
659 =item *
660
661 Win32 Perl uses 8 KB less of per-process memory than before for every perl
662 process of this version. This data is now memory mapped from disk and shared
663 between perl processes from the same perl binary.
664
665 =back
666
667 =head1 Modules and Pragmata
668
669 XXX All changes to installed files in F<cpan/>, F<dist/>, F<ext/> and F<lib/>
670 go here.  If Module::CoreList is updated, generate an initial draft of the
671 following sections using F<Porting/corelist-perldelta.pl>.  A paragraph summary
672 for important changes should then be added by hand.  In an ideal world,
673 dual-life modules would have a F<Changes> file that could be cribbed.
674
675 [ Within each section, list entries as a =item entry ]
676
677 =head2 New Modules and Pragmata
678
679 =over 4
680
681 =item *
682
683 XXX
684
685 =back
686
687 =head2 Updated Modules and Pragmata
688
689 =over 4
690
691 =item *
692
693 L<XXX> has been upgraded from version A.xx to B.yy.
694
695 =back
696
697 =head2 Removed Modules and Pragmata
698
699 =over 4
700
701 =item *
702
703 XXX
704
705 =back
706
707 =head1 Documentation
708
709 =head2 New Documentation
710
711 =head3 L<perlunicook>
712
713 This document, by Tom Christiansen, provides examples of handling Unicode in
714 Perl.
715
716 =head2 Changes to Existing Documentation
717
718 =head3 L<perlapi>
719
720 =over 4
721
722 =item *
723
724 Note that C<SvSetSV> doesn't do set magic.
725
726 =item *
727
728 C<sv_usepvn_flags> - Fix documentation to mention the use of C<NewX> instead of
729 C<malloc>.
730
731 L<[perl #121869]|https://rt.perl.org/Ticket/Display.html?id=121869>
732
733 =item *
734
735 Clarify where C<NUL> may be embedded or is required to terminate a string.
736
737 =item *
738
739 Previously missing documentation due to formatting errors are now included.
740
741 =item *
742
743 Entries are now organized into groups rather than by file where they are found.
744
745 =item *
746
747 Alphabetical sorting of entries is now handled by the POD generator to make
748 entries easier to find when scanning.
749
750 =back
751
752 =head3 L<perldata>
753
754 =over 4
755
756 =item *
757
758 The syntax of single-character variable names has been brought
759 up-to-date and more fully explained.
760
761 =back
762
763 =head3 L<perlebcdic>
764
765 =over 4
766
767 =item *
768
769 This document has been significantly updated in the light of recent
770 improvements to EBCDIC support.
771
772 =back
773
774 =head3 L<perlfunc>
775
776 =over 4
777
778 =item *
779
780 Mention that C<study()> is currently a no-op.
781
782 =item *
783
784 Calling C<delete> or C<exists> on array values is now described as "strongly
785 discouraged" rather than "deprecated".
786
787 =item *
788
789 Improve documentation of C<< our >>.
790
791 =item *
792
793 C<-l> now notes that it will return false if symlinks aren't supported by the
794 file system.
795
796 L<[perl #121523]|https://rt.perl.org/Ticket/Display.html?id=121523>
797
798 =item *
799
800 Note that C<exec LIST> and C<system LIST> may fall back to the shell on
801 Win32. Only C<exec PROGRAM LIST> and C<system PROGRAM LIST> indirect object
802 syntax will reliably avoid using the shell.
803
804 This has also been noted in L<perlport>.
805
806 L<[perl #122046]|https://rt.perl.org/Ticket/Display.html?id=122046>
807
808 =back
809
810 =head3 L<perlguts>
811
812 =over 4
813
814 =item *
815
816 The OOK example has been updated to account for COW changes and a change in the
817 storage of the offset.
818
819 =item *
820
821 Details on C level symbols and libperl.t added.
822
823 =back
824
825 =head3 L<perlhacktips>
826
827 =over 4
828
829 =item *
830
831 Documentation has been added illustrating the perils of assuming the contents
832 of static memory pointed to by the return values of Perl wrappers for C library
833 functions doesn't change.
834
835 =item *
836
837 Recommended replacements for tmpfile, atoi, strtol, and strtoul added.
838
839 =item *
840
841 Updated documentation for the C<test.valgrind> C<make> target.
842
843 L<[perl #121431]|https://rt.perl.org/Ticket/Display.html?id=121431>
844
845 =back
846
847 =head3 L<perlmodstyle>
848
849 =over 4
850
851 =item *
852
853 Instead of pointing to the module list, we are now pointing to
854 L<PrePAN|http://prepan.org/>.
855
856 =back
857
858 =head3 L<perlpolicy>
859
860 =over 4
861
862 =item *
863
864 We now have a code of conduct for the I<< p5p >> mailing list, as documented
865 in L<< perlpolicy/STANDARDS OF CONDUCT >>.
866
867 =item *
868
869 The conditions for marking an experimental feature as non-experimental are now
870 set out.
871
872 =back
873
874 =head3 L<perlport>
875
876 =over 4
877
878 =item *
879
880 Out-of-date VMS-specific information has been fixed/simplified.
881
882 =back
883
884 =head3 L<perlre>
885
886 =over 4
887
888 =item *
889
890 The C</x> modifier has been clarified to note that comments cannot be continued
891 onto the next line by escaping them.
892
893 =back
894
895 =head3 L<perlrebackslash>
896
897 =over 4
898
899 =item *
900
901 Added documentation of C<\b{sb}>, C<\b{wb}>, C<\b{gcb}>, and C<\b{g}>.
902
903 =back
904
905 =head3 L<perlrecharclass>
906
907 =over 4
908
909 =item *
910
911 Clarifications have been added to L<perlrecharclass/Character Ranges>
912 to the effect that Perl guarantees that C<[A-Z]>, C<[a-z]>, C<[0-9]> and
913 any subranges thereof in regular expression bracketed character classes
914 are guaranteed to match exactly what a naive English speaker would
915 expect them to match, even on platforms (such as EBCDIC) where special
916 handling is required to accomplish this.
917
918 =item *
919
920 The documentation of Bracketed Character Classes has been expanded to cover the
921 improvements in C<qr/[\N{named sequence}]/> (see under L</Selected Bug Fixes>).
922
923 =back
924
925 =head3 L<perlsec>
926
927 =over 4
928
929 =item *
930
931 Comments added on algorithmic complexity and tied hashes.
932
933 =back
934
935 =head3 L<perlsyn>
936
937 =over 4
938
939 =item *
940
941 An ambiguity in the documentation of the C<...> statement has been corrected.
942 L<[perl #122661]|https://rt.perl.org/Ticket/Display.html?id=122661>
943
944 =item *
945
946 The empty conditional in C<< for >> and C<< while >> is now documented
947 in L<< perlsyn >>.
948
949 =back
950
951 =head3 L<perlunicode>
952
953 =over 4
954
955 =item *
956
957 Update B<Default Word Boundaries> under
958 L<perlunicode/"Unicode Regular Expression Support Level">'s
959 B<Extended Unicode Support>.
960
961 =back
962
963 =head3 L<perluniintro>
964
965 =over 4
966
967 =item *
968
969 Advice for how to make sure your strings and regular expression patterns are
970 interpreted as Unicode has been revised to account for the new Perl 5.22 EBCDIC
971 handling.
972
973 =back
974
975 =head3 L<perlvar>
976
977 =over 4
978
979 =item *
980
981 Further clarify version number representations and usage.
982
983 =back
984
985 =head3 L<perlvms>
986
987 =over 4
988
989 =item *
990
991 Out-of-date and/or incorrect material has been removed.
992
993 =item *
994
995 Updated documentation on environment and shell interaction in VMS.
996
997 =back
998
999 =head3 L<perlxs>
1000
1001 =over 4
1002
1003 =item *
1004
1005 Added a discussion of locale issues in XS code.
1006
1007 =back
1008
1009 =head1 Diagnostics
1010
1011 The following additions or changes have been made to diagnostic output,
1012 including warnings and fatal error messages.  For the complete list of
1013 diagnostic messages, see L<perldiag>.
1014
1015 =head2 New Diagnostics
1016
1017 =head3 New Errors
1018
1019 =over 4
1020
1021 =item *
1022
1023 L<Bad symbol for scalar|perldiag/"Bad symbol for scalar">
1024
1025 (P) An internal request asked to add a scalar entry to something that
1026 wasn't a symbol table entry.
1027
1028 =item *
1029
1030 L<Can't use a hash as a reference|perldiag/"Can't use a hash as a reference">
1031
1032 (F) You tried to use a hash as a reference, as in
1033 C<< %foo->{"bar"} >> or C<< %$ref->{"hello"} >>.  Versions of perl E<lt>= 5.6.1
1034 used to allow this syntax, but shouldn't have.
1035
1036 =item *
1037
1038 L<Can't use an array as a reference|perldiag/"Can't use an array as a reference">
1039
1040 (F) You tried to use an array as a reference, as in
1041 C<< @foo->[23] >> or C<< @$ref->[99] >>.  Versions of perl E<lt>= 5.6.1 used to
1042 allow this syntax, but shouldn't have.
1043
1044 =item *
1045
1046 L<Can't use 'defined(@array)' (Maybe you should just omit the defined()?)|perldiag/"Can't use 'defined(@array)' (Maybe you should just omit the defined()?)">
1047
1048 (F) defined() is not useful on arrays because it
1049 checks for an undefined I<scalar> value.  If you want to see if the
1050 array is empty, just use C<if (@array) { # not empty }> for example.
1051
1052 =item *
1053
1054 L<Can't use 'defined(%hash)' (Maybe you should just omit the defined()?)|perldiag/"Can't use 'defined(%hash)' (Maybe you should just omit the defined()?)">
1055
1056 (F) C<defined()> is not usually right on hashes.
1057
1058 Although C<defined %hash> is false on a plain not-yet-used hash, it
1059 becomes true in several non-obvious circumstances, including iterators,
1060 weak references, stash names, even remaining true after C<undef %hash>.
1061 These things make C<defined %hash> fairly useless in practice, so it now
1062 generates a fatal error.
1063
1064 If a check for non-empty is what you wanted then just put it in boolean
1065 context (see L<perldata/Scalar values>):
1066
1067     if (%hash) {
1068        # not empty
1069     }
1070
1071 If you had C<defined %Foo::Bar::QUUX> to check whether such a package
1072 variable exists then that's never really been reliable, and isn't
1073 a good way to enquire about the features of a package, or whether
1074 it's loaded, etc.
1075
1076 =item *
1077
1078 L<Cannot chr %f|perldiag/"Cannot chr %f">
1079
1080 (F) You passed an invalid number (like an infinity or not-a-number) to
1081 C<chr>.
1082
1083 =item *
1084
1085 L<Cannot compress %f in pack|perldiag/"Cannot compress %f in pack">
1086
1087 (F) You tried converting an infinity or not-a-number to an unsigned
1088 character, which makes no sense.
1089
1090 =item *
1091
1092 L<Cannot pack %f with '%c'|perldiag/"Cannot pack %f with '%c'">
1093
1094 (F) You tried converting an infinity or not-a-number to a character,
1095 which makes no sense.
1096
1097 =item *
1098
1099 L<Cannot print %f with '%c'|perldiag/"Cannot printf %f with '%c'">
1100
1101 (F) You tried printing an infinity or not-a-number as a character (%c),
1102 which makes no sense.  Maybe you meant '%s', or just stringifying it?
1103
1104 =item *
1105
1106 L<charnames alias definitions may not contain a sequence of multiple spaces|perldiag/"charnames alias definitions may not contain a sequence of multiple spaces">
1107
1108 (F) You defined a character name which had multiple space
1109 characters in a row.  Change them to single spaces.  Usually these
1110 names are defined in the C<:alias> import argument to C<use charnames>, but
1111 they could be defined by a translator installed into C<$^H{charnames}>.
1112 See L<charnames/CUSTOM ALIASES>.
1113
1114 =item *
1115
1116 L<charnames alias definitions may not contain trailing white-space|perldiag/"charnames alias definitions may not contain trailing white-space">
1117
1118 (F) You defined a character name which ended in a space
1119 character.  Remove the trailing space(s).  Usually these names are
1120 defined in the C<:alias> import argument to C<use charnames>, but they
1121 could be defined by a translator installed into C<$^H{charnames}>.
1122 See L<charnames/CUSTOM ALIASES>.
1123
1124 =item *
1125
1126 L<:const is not permitted on named subroutines|perldiag/":const is not permitted on named subroutines">
1127
1128 (F) The "const" attribute causes an anonymous subroutine to be run and
1129 its value captured at the time that it is cloned.  Names subroutines are
1130 not cloned like this, so the attribute does not make sense on them.
1131
1132 =item *
1133
1134 L<Hexadecimal float: internal error|perldiag/"Hexadecimal float: internal error">
1135
1136 (F) Something went horribly bad in hexadecimal float handling.
1137
1138 =item *
1139
1140 L<Hexadecimal float: unsupported long double format|perldiag/"Hexadecimal float: unsupported long double format">
1141
1142 (F) You have configured Perl to use long doubles but
1143 the internals of the long double format are unknown,
1144 therefore the hexadecimal float output is impossible.
1145
1146 =item *
1147
1148 L<Illegal suidscript|perldiag/"Illegal suidscript">
1149
1150 (F) The script run under suidperl was somehow illegal.
1151
1152 =item *
1153
1154 L<In '(?...)', the '(' and '?' must be adjacent in regex; marked by S<<-- HERE> in mE<sol>%sE<sol>|perldiag/"In '(?...)', the '(' and '?' must be adjacent in regex; marked by <-- HERE in m/%s/">
1155
1156 (F) The two-character sequence C<"(?"> in
1157 this context in a regular expression pattern should be an
1158 indivisible token, with nothing intervening between the C<"(">
1159 and the C<"?">, but you separated them.
1160
1161 =item *
1162
1163 L<In '(*VERB...)', the '(' and '*' must be adjacent in regex; marked by S<<-- HERE> in mE<sol>%sE<sol>|perldiag/"In '(*VERB...)', the '(' and '*' must be adjacent in regex; marked by <-- HERE in m/%s/">
1164
1165 (F) The two-character sequence C<"(*"> in
1166 this context in a regular expression pattern should be an
1167 indivisible token, with nothing intervening between the C<"(">
1168 and the C<"*">, but you separated them.
1169
1170 =item *
1171
1172 L<Invalid quantifier in {,} in regex; marked by <-- HERE in mE<sol>%sE<sol>|perldiag/"Invalid quantifier in {,} in regex; marked by <-- HERE in m/%s/">
1173
1174 (F) The pattern looks like a {min,max} quantifier, but the min or max could not
1175 be parsed as a valid number - either it has leading zeroes, or it represents
1176 too big a number to cope with.  The S<<-- HERE> shows where in the regular
1177 expression the problem was discovered.  See L<perlre>.
1178
1179 =back
1180
1181 =head3 New Warnings
1182
1183 =over 4
1184
1185 =item *
1186
1187 L<'%s' is an unknown bound type in regex|perldiag/"'%s' is an unknown bound type in regex; marked by <-- HERE in m/%s/">
1188
1189 You used C<\b{...}> or C<\B{...}> and the C<...> is not known to
1190 Perl.  The current valid ones are given in
1191 L<perlrebackslash/\b{}, \b, \B{}, \B>.
1192
1193 =item *
1194
1195 L<"%s" is more clearly written simply as "%s" in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"%s" is more clearly written simply as "%s" in regex; marked by <-- HERE in mE<sol>%sE<sol>>
1196
1197 (W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
1198
1199 You specified a character that has the given plainer way of writing it,
1200 and which is also portable to platforms running with different character
1201 sets.
1202
1203 =item *
1204
1205 L<Argument "%s" treated as 0 in increment (++)|perldiag/"Argument "%s" treated
1206 as 0 in increment (++)">
1207
1208 (W numeric) The indicated string was fed as an argument to the C<++> operator
1209 which expects either a number or a string matching C</^[a-zA-Z]*[0-9]*\z/>.
1210 See L<perlop/Auto-increment and Auto-decrement> for details.
1211
1212 =item *
1213
1214 L<Both or neither range ends should be Unicode in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Both or neither range ends should be Unicode in regex; marked by <-- HERE in m/%s/">
1215
1216 (W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
1217
1218 In a bracketed character class in a regular expression pattern, you
1219 had a range which has exactly one end of it specified using C<\N{}>, and
1220 the other end is specified using a non-portable mechanism.  Perl treats
1221 the range as a Unicode range, that is, all the characters in it are
1222 considered to be the Unicode characters, and which may be different code
1223 points on some platforms Perl runs on.  For example, C<[\N{U+06}-\x08]>
1224 is treated as if you had instead said C<[\N{U+06}-\N{U+08}]>, that is it
1225 matches the characters whose code points in Unicode are 6, 7, and 8.
1226 But that C<\x08> might indicate that you meant something different, so
1227 the warning gets raised.
1228
1229 =item *
1230
1231 L<:const is experimental|perldiag/":const is experimental">
1232
1233 (S experimental::const_attr) The "const" attribute is experimental.
1234 If you want to use the feature, disable the warning with C<no warnings
1235 'experimental::const_attr'>, but know that in doing so you are taking
1236 the risk that your code may break in a future Perl version.
1237
1238 =item *
1239
1240 L<gmtime(%f) failed|perldiag/"gmtime(%f) failed">
1241
1242 (W overflow) You called C<gmtime> with a number that it could not handle:
1243 too large, too small, or NaN.  The returned value is C<undef>.
1244
1245 =item *
1246
1247 L<Hexadecimal float: exponent overflow|perldiag/"Hexadecimal float: exponent overflow">
1248
1249 (W overflow) The hexadecimal floating point has larger exponent
1250 than the floating point supports.
1251
1252 =item *
1253
1254 L<Hexadecimal float: exponent underflow|perldiag/"Hexadecimal float: exponent underflow">
1255
1256 (W overflow) The hexadecimal floating point has smaller exponent
1257 than the floating point supports.
1258
1259 =item *
1260
1261 L<Hexadecimal float: mantissa overflow|perldiag/"Hexadecimal float: mantissa overflow">
1262
1263 (W overflow) The hexadecimal floating point literal had more bits in
1264 the mantissa (the part between the 0x and the exponent, also known as
1265 the fraction or the significand) than the floating point supports.
1266
1267 =item *
1268
1269 L<Hexadecimal float: precision loss|perldiag/"Hexadecimal float: precision loss">
1270
1271 (W overflow) The hexadecimal floating point had internally more
1272 digits than could be output.  This can be caused by unsupported
1273 long double formats, or by 64-bit integers not being available
1274 (needed to retrieve the digits under some configurations).
1275
1276 =item *
1277
1278 L<localtime(%f) failed|perldiag/"localtime(%f) failed">
1279
1280 (W overflow) You called C<localtime> with a number that it could not handle:
1281 too large, too small, or NaN.  The returned value is C<undef>.
1282
1283 =item *
1284
1285 L<Negative repeat count does nothing|perldiag/"Negative repeat count does nothing">
1286
1287 (W numeric) You tried to execute the
1288 L<C<x>|perlop/Multiplicative Operators> repetition operator fewer than 0
1289 times, which doesn't make sense.
1290
1291 =item *
1292
1293 L<NO-BREAK SPACE in a charnames alias definition is deprecated|perldiag/"NO-BREAK SPACE in a charnames alias definition is deprecated">
1294
1295 (D deprecated) You defined a character name which contained a no-break
1296 space character.  Change it to a regular space.  Usually these names are
1297 defined in the C<:alias> import argument to C<use charnames>, but they
1298 could be defined by a translator installed into C<$^H{charnames}>.  See
1299 L<charnames/CUSTOM ALIASES>.
1300
1301 =item *
1302
1303 L<Non-finite repeat count does nothing|perldiag/"Non-finite repeat count does nothing">
1304
1305 (W numeric) You tried to execute the
1306 L<C<x>|perlop/Multiplicative Operators> repetition operator C<Inf> (or
1307 C<-Inf>) or C<NaN> times, which doesn't make sense.
1308
1309 =item *
1310
1311 L<PerlIO layer ':win32' is experimental|perldiag/"PerlIO layer ':win32' is experimental">
1312
1313 (S experimental::win32_perlio) The C<:win32> PerlIO layer is
1314 experimental.  If you want to take the risk of using this layer,
1315 simply disable this warning:
1316
1317     no warnings "experimental::win32_perlio";
1318
1319 =item *
1320
1321 L<Ranges of ASCII printables should be some subset of "0-9", "A-Z", or "a-z" in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Ranges of ASCII printables should be some subset of "0-9", "A-Z", or "a-z" in regex; marked by <-- HERE in mE<sol>%sE<sol>">
1322
1323 (W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
1324
1325 Stricter rules help to find typos and other errors.  Perhaps you didn't
1326 even intend a range here, if the C<"-"> was meant to be some other
1327 character, or should have been escaped (like C<"\-">).  If you did
1328 intend a range, the one that was used is not portable between ASCII and
1329 EBCDIC platforms, and doesn't have an obvious meaning to a casual
1330 reader.
1331
1332  [3-7]    # OK; Obvious and portable
1333  [d-g]    # OK; Obvious and portable
1334  [A-Y]    # OK; Obvious and portable
1335  [A-z]    # WRONG; Not portable; not clear what is meant
1336  [a-Z]    # WRONG; Not portable; not clear what is meant
1337  [%-.]    # WRONG; Not portable; not clear what is meant
1338  [\x41-Z] # WRONG; Not portable; not obvious to non-geek
1339
1340 (You can force portability by specifying a Unicode range, which means that
1341 the endpoints are specified by
1342 L<C<\N{...}>|perlrecharclass/Character Ranges>, but the meaning may
1343 still not be obvious.)
1344 The stricter rules require that ranges that start or stop with an ASCII
1345 character that is not a control have all their endpoints be the literal
1346 character, and not some escape sequence (like C<"\x41">), and the ranges
1347 must be all digits, or all uppercase letters, or all lowercase letters.
1348
1349 =item *
1350
1351 L<Ranges of digits should be from the same group in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Ranges of digits should be from the same group in regex; marked by <-- HERE in m/%s/">
1352
1353 (W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
1354
1355 Stricter rules help to find typos and other errors.  You included a
1356 range, and at least one of the end points is a decimal digit.  Under the
1357 stricter rules, when this happens, both end points should be digits in
1358 the same group of 10 consecutive digits.
1359
1360 =item *
1361
1362 L<Redundant argument in %s|perldiag/Redundant argument in %s>
1363
1364 (W redundant) You called a function with more arguments than other
1365 arguments you supplied indicated would be needed. Currently only
1366 emitted when a printf-type format required fewer arguments than were
1367 supplied, but might be used in the future for e.g. L<perlfunc/pack>.
1368
1369 The warnings category C<< redundant >> is new. See also
1370 L<[perl #121025]|https://rt.perl.org/Ticket/Display.html?id=121025>.
1371
1372 =item *
1373
1374 L<Use of \b{} for non-UTF-8 locale is wrong.  Assuming a UTF-8 locale|perldiag/"Use of \b{} for non-UTF-8 locale is wrong.  Assuming a UTF-8 locale">
1375
1376 You are matching a regular expression using locale rules,
1377 and a Unicode boundary is being matched, but the locale is not a Unicode
1378 one.  This doesn't make sense.  Perl will continue, assuming a Unicode
1379 (UTF-8) locale, but the results could well be wrong except if the locale
1380 happens to be ISO-8859-1 (Latin1) where this message is spurious and can
1381 be ignored.
1382
1383 =item *
1384
1385 L<< Using E<sol>u for '%s' instead of E<sol>%s in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Using E<sol>u for '%s' instead of E<sol>%s in regex; marked by <-- HERE in mE<sol>%sE<sol>" >>
1386
1387 You used a Unicode boundary (C<\b{...}> or C<\B{...}>) in a
1388 portion of a regular expression where the character set modifiers C</a>
1389 or C</aa> are in effect.  These two modifiers indicate an ASCII
1390 interpretation, and this doesn't make sense for a Unicode definition.
1391 The generated regular expression will compile so that the boundary uses
1392 all of Unicode.  No other portion of the regular expression is affected.
1393
1394 =item *
1395
1396 L<The bitwise feature is experimental|perldiag/"The bitwise feature is experimental">
1397
1398 This warning is emitted if you use bitwise
1399 operators (C<& | ^ ~ &. |. ^. ~.>) with the "bitwise" feature enabled.
1400 Simply suppress the warning if you want to use the feature, but know
1401 that in doing so you are taking the risk of using an experimental
1402 feature which may change or be removed in a future Perl version:
1403
1404     no warnings "experimental::bitwise";
1405     use feature "bitwise";
1406     $x |.= $y;
1407
1408 =item *
1409
1410 L<Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in mE<sol>%sE<sol>|perldiag/"Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%s/">
1411
1412 (D deprecated, regexp) You used a literal C<"{"> character in a regular
1413 expression pattern. You should change to use C<"\{"> instead, because a future
1414 version of Perl (tentatively v5.26) will consider this to be a syntax error.  If
1415 the pattern delimiters are also braces, any matching right brace
1416 (C<"}">) should also be escaped to avoid confusing the parser, for
1417 example,
1418
1419     qr{abc\{def\}ghi}
1420
1421 =item *
1422
1423 L<Use of literal non-graphic characters in variable names is deprecated|perldiag/"Use of literal non-graphic characters in variable names is deprecated">
1424
1425 =item *
1426
1427 L<Useless use of attribute "const"|perldiag/Useless use of attribute "const">
1428
1429 (W misc) The "const" attribute has no effect except
1430 on anonymous closure prototypes.  You applied it to
1431 a subroutine via L<attributes.pm|attributes>.  This is only useful
1432 inside an attribute handler for an anonymous subroutine.
1433
1434 =item *
1435
1436 L<E<quot>use re 'strict'E<quot> is experimental|perldiag/"use re 'strict'" is experimental>
1437
1438 (S experimental::re_strict) The things that are different when a regular
1439 expression pattern is compiled under C<'strict'> are subject to change
1440 in future Perl releases in incompatible ways.  This means that a pattern
1441 that compiles today may not in a future Perl release.  This warning is
1442 to alert you to that risk.
1443
1444 =item *
1445
1446 L<Warning: unable to close filehandle %s properly: %s|perldiag/"Warning: unable to close filehandle %s properly: %s">
1447
1448 =item *
1449
1450 L<Wide character (U+%X) in %s|perldiag/"Wide character (U+%X) in %s">
1451
1452 (W locale) While in a single-byte locale (I<i.e.>, a non-UTF-8
1453 one), a multi-byte character was encountered.   Perl considers this
1454 character to be the specified Unicode code point.  Combining non-UTF8
1455 locales and Unicode is dangerous.  Almost certainly some characters
1456 will have two different representations.  For example, in the ISO 8859-7
1457 (Greek) locale, the code point 0xC3 represents a Capital Gamma.  But so
1458 also does 0x393.  This will make string comparisons unreliable.
1459
1460 You likely need to figure out how this multi-byte character got mixed up
1461 with your single-byte locale (or perhaps you thought you had a UTF-8
1462 locale, but Perl disagrees).
1463
1464 =item *
1465
1466 The following two warnings for C<tr///> used to be skipped if the
1467 transliteration contained wide characters, but now they occur regardless of
1468 whether there are wide characters or not:
1469
1470 L<Useless use of E<sol>d modifier in transliteration operator|perldiag/"Useless use of /d modifier in transliteration operator">
1471
1472 L<Replacement list is longer than search list|perldiag/Replacement list is longer than search list>
1473
1474 =item *
1475
1476 A new C<locale> warning category has been created, with the following warning
1477 messages currently in it:
1478
1479 =over 4
1480
1481 =item *
1482
1483 L<Locale '%s' may not work well.%s|perldiag/Locale '%s' may not work well.%s>
1484
1485 =item *
1486
1487 L<Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".|perldiag/Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".>
1488
1489 =back
1490
1491 =back
1492
1493 =head2 Changes to Existing Diagnostics
1494
1495 =over 4
1496
1497 =item *
1498
1499 <> should be quotes
1500
1501 This warning has been changed to
1502 L<< <> at require-statement should be quotes|perldiag/"<> at require-statement should be quotes" >>
1503 to make the issue more identifiable.
1504
1505 =item *
1506
1507 L<Argument "%s" isn't numeric%s|perldiag/"Argument "%s" isn't numeric%s">
1508 now adds the following note:
1509
1510  Note that for the C<Inf> and C<NaN> (infinity and not-a-number) the
1511  definition of "numeric" is somewhat unusual: the strings themselves
1512  (like "Inf") are considered numeric, and anything following them is
1513  considered non-numeric.
1514
1515 =item *
1516
1517 L<Global symbol "%s" requires explicit package name|perldiag/"Global symbol "%s" requires explicit package name (did you forget to declare "my %s"?)">
1518
1519 This message has had '(did you forget to declare "my %s"?)' appended to it, to
1520 make it more helpful to new Perl programmers.
1521 L<[perl #121638]|https://rt.perl.org/Ticket/Display.html?id=121638>
1522
1523 =item *
1524
1525 '"my" variable &foo::bar can't be in a package' has been reworded to say
1526 'subroutine' instead of 'variable'.
1527
1528 =item *
1529
1530 L<\N{} in character class restricted to one character in regex; marked by S<<-- HERE> in mE<sol>%sE<sol>|perldiag/"\N{} in inverted character class or as a range end-point is restricted to one character in regex; marked by <-- HERE in m/%s/">
1531
1532 This message has had 'character class' changed to 'inverted character class or
1533 as a range end-point is' to reflect improvements in C<qr/[\N{named sequence}]/>
1534 (see under L</Selected Bug Fixes>).
1535
1536 =item *
1537
1538 L<panic: frexp|perldiag/"panic: frexp: %f">
1539
1540 This message has had ': %f' appended to it, to show what the offending floating
1541 point number is.
1542
1543 =item *
1544
1545 B<Possible precedence problem on bitwise %c operator> reworded as
1546 L<Possible precedence problem on bitwise %s operator|perldiag/"Possible precedence problem on bitwise %s operator">.
1547
1548 =item *
1549
1550 C<require> with no argument or undef used to warn about a Null filename; now
1551 it dies with C<Missing or undefined argument to require>.
1552
1553 =item *
1554
1555 L<Unsuccessful %s on filename containing newline|perldiag/"Unsuccessful %s on filename containing newline">
1556
1557 This warning is now only produced when the newline is at the end of
1558 the filename.
1559
1560 =item *
1561
1562 "Variable %s will not stay shared" has been changed to say "Subroutine"
1563 when it is actually a lexical sub that will not stay shared.
1564
1565 =item *
1566
1567 L<Variable length lookbehind not implemented in regex mE<sol>%sE<sol>|perldiag/"Variable length lookbehind not implemented in regex m/%s/">
1568
1569 Information about Unicode behaviour has been added.
1570
1571 =back
1572
1573 =head2 Diagnostic Removals
1574
1575 =over
1576
1577 =item *
1578
1579 "Ambiguous use of -foo resolved as -&foo()"
1580
1581 There is actually no ambiguity here, and this impedes the use of negated
1582 constants; e.g., C<-Inf>.
1583
1584 =item *
1585
1586 "Constant is not a FOO reference"
1587
1588 Compile-time checking of constant dereferencing (e.g., C<< my_constant->() >>)
1589 has been removed, since it was not taking overloading into account.
1590 L<[perl #69456]|https://rt.perl.org/Ticket/Display.html?id=69456>
1591 L<[perl #122607]|https://rt.perl.org/Ticket/Display.html?id=122607>
1592
1593 =back
1594
1595 =head1 Utility Changes
1596
1597 =head2 F<x2p/>
1598
1599 =over 4
1600
1601 =item *
1602
1603 The F<x2p/> directory has been removed from the Perl core.
1604
1605 This removes find2perl, s2p and a2p. They have all been released to CPAN as
1606 separate distributions (App::find2perl, App::s2p, App::a2p).
1607
1608 =back
1609
1610 =head2 L<h2ph>
1611
1612 =over 4
1613
1614 =item *
1615
1616 F<h2ph> now handles hexadecimal constants in the compiler's predefined
1617 macro definitions, as visible in C<$Config{cppsymbols}>.
1618 L<[perl #123784]|https://rt.perl.org/Ticket/Display.html?id=123784>.
1619
1620 =back
1621
1622 =head2 L<encguess>
1623
1624 =over 4
1625
1626 =item *
1627
1628 No longer depends on non-core module anymore.
1629
1630 =back
1631
1632 =head1 Configuration and Compilation
1633
1634 =over 4
1635
1636 =item *
1637
1638 F<Configure> now checks for F<lrintl>, F<lroundl>, F<llrintl>, and F<llroundl>.
1639
1640 =item *
1641
1642 F<Configure> with C<-Dmksymlinks> should now be faster.
1643 L<[perl #122002]|https://rt.perl.org/Ticket/Display.html?id=122002>.
1644
1645 =item *
1646
1647 pthreads and lcl will be linked by default if present. This allows XS modules
1648 that require threading to work on non-threaded perls. Note that you must still
1649 pass C<-Dusethreads> if you want a threaded perl.
1650
1651 =item *
1652
1653 For long doubles (to get more precision and range for floating point numbers)
1654 one can now use the GCC quadmath library which implements the quadruple
1655 precision floating point numbers in x86 and ia64 platforms.  See F<INSTALL> for
1656 details.
1657
1658 =item *
1659
1660 MurmurHash64A and MurmurHash64B can now be configured as the internal hash
1661 function.
1662
1663 =item *
1664
1665 C<make test.valgrind> now supports parallel testing.
1666
1667 For example:
1668
1669     TEST_JOBS=9 make test.valgrind
1670
1671 See L<perlhacktips/valgrind> for more information.
1672
1673 L<[perl #121431]|https://rt.perl.org/Ticket/Display.html?id=121431>
1674
1675 =item *
1676
1677 The MAD (Misc Attribute Decoration) build option has been removed
1678
1679 This was an unmaintained attempt at preserving
1680 the Perl parse tree more faithfully so that automatic conversion of
1681 Perl 5 to Perl 6 would have been easier.
1682
1683 This build-time configuration option had been unmaintained for years,
1684 and had probably seriously diverged on both Perl 5 and Perl 6 sides.
1685
1686 =item *
1687
1688 A new compilation flag, C<< -DPERL_OP_PARENT >> is available. For details,
1689 see the discussion below at L<< /Internal Changes >>.
1690
1691 =back
1692
1693 =head1 Testing
1694
1695 =over 4
1696
1697 =item *
1698
1699 F<t/porting/re_context.t> has been added to test that L<utf8> and its
1700 dependencies only use the subset of the C<$1..$n> capture vars that
1701 Perl_save_re_context() is hard-coded to localize, because that function has no
1702 efficient way of determining at runtime what vars to localize.
1703
1704 =item *
1705
1706 Tests for performance issues have been added in the file F<t/perf/taint.t>.
1707
1708 =item *
1709
1710 Some regular expression tests are written in such a way that they will
1711 run very slowly if certain optimizations break. These tests have been
1712 moved into new files, F<< t/re/speed.t >> and F<< t/re/speed_thr.t >>,
1713 and are run with a C<< watchdog() >>.
1714
1715 =item *
1716
1717 C<< test.pl >> now allows C<< plan skip_all => $reason >>, to make it
1718 more compatible with C<< Test::More >>.
1719
1720 =item *
1721
1722 A new test script, F<op/infnan.t>, has been added to test if Inf and NaN are
1723 working correctly.  See L</Infinity and NaN (not-a-number) handling improved>.
1724
1725 =back
1726
1727 =head1 Platform Support
1728
1729 =head2 Regained Platforms
1730
1731 =over 4
1732
1733 =item IRIX and Tru64 platforms are working again.
1734
1735 (Some C<make test> failures remain.)
1736
1737 =item z/OS running EBCDIC Code Page 1047
1738
1739 Core perl now works on this EBCDIC platform.  Earlier perls also worked, but,
1740 even though support wasn't officially withdrawn, recent perls would not compile
1741 and run well.  Perl 5.20 would work, but had many bugs which have now been
1742 fixed.  Many CPAN modules that ship with Perl still fail tests, including
1743 Pod::Simple.  However the version of Pod::Simple currently on CPAN should work;
1744 it was fixed too late to include in Perl 5.22.  Work is under way to fix many
1745 of the still-broken CPAN modules, which likely will be installed on CPAN when
1746 completed, so that you may not have to wait until Perl 5.24 to get a working
1747 version.
1748
1749 =back
1750
1751 =head2 Discontinued Platforms
1752
1753 =over 4
1754
1755 =item NeXTSTEP/OPENSTEP
1756
1757 NeXTSTEP was proprietary OS bundled with NeXT's workstations in the early
1758 to mid 90s; OPENSTEP was an API specification that provided a NeXTSTEP-like
1759 environment on a non-NeXTSTEP system.  Both are now long dead, so support
1760 for building Perl on them has been removed.
1761
1762 =back
1763
1764 =head2 Platform-Specific Notes
1765
1766 =over 4
1767
1768 =item EBCDIC
1769
1770 Special handling is required on EBCDIC platforms to get C<qr/[i-j]/> to
1771 match only C<"i"> and C<"j">, since there are 7 characters between the
1772 code points for C<"i"> and C<"j">.  This special handling had only been
1773 invoked when both ends of the range are literals.  Now it is also
1774 invoked if any of the C<\N{...}> forms for specifying a character by
1775 name or Unicode code point is used instead of a literal.  See
1776 L<perlrecharclass/Character Ranges>.
1777
1778 =item HP-UX
1779
1780 The archname now distinguishes use64bitint from use64bitall.
1781
1782 =item Android
1783
1784 Build support has been improved for cross-compiling in general and for
1785 Android in particular.
1786
1787 =item VMS
1788
1789 =over 4
1790
1791 =item *
1792
1793 When spawning a subprocess without waiting, the return value is now
1794 the correct PID.
1795
1796 =item *
1797
1798 Fix a prototype so linking doesn't fail under the VMS C++ compiler.
1799
1800 =item *
1801
1802 C<finite>, C<finitel>, and C<isfinite> detection has been added to
1803 C<configure.com>, environment handling has had some minor changes, and
1804 a fix for legacy feature checking status.
1805
1806 =back
1807
1808 =item Win32
1809
1810 =over 4
1811
1812 =item *
1813
1814 F<miniperl.exe> is now built with C<-fno-strict-aliasing>, allowing 64-bit
1815 builds to complete on GCC 4.8.
1816 L<[perl #123976]|https://rt.perl.org/Ticket/Display.html?id=123976>
1817
1818 =item *
1819
1820 C<test-prep> again depends on C<test-prep-gcc> for GCC builds.
1821 L<[perl #124221]|https://rt.perl.org/Ticket/Display.html?id=124221>
1822
1823 =item *
1824
1825 Perl can now be built in C++ mode on Windows by setting the makefile macro
1826 C<USE_CPLUSPLUS> to the value "define".
1827
1828 =item *
1829
1830 List form pipe open no longer falls back to the shell.
1831
1832 =item *
1833
1834 In release 5.21.8 compiling on VC with dmake was broken. Fixed.
1835
1836 =item *
1837
1838 New C<DebugSymbols> and C<DebugFull> configuration options added to
1839 Windows makefiles.
1840
1841 =item *
1842
1843 L<B> now compiles again on Windows.
1844
1845 =item *
1846
1847 Previously, on Visual C++ for Win64 built Perls only, when compiling every Perl
1848 XS module (including CPAN ones) and Perl aware .c file with a 64 bit Visual C++,
1849 would unconditionally have around a dozen warnings from hv_func.h.  These
1850 warnings have been silenced.  GCC all bitness and Visual C++ for Win32 were
1851 not affected.
1852
1853 =item *
1854
1855 Support for building without PerlIO has been removed from the Windows
1856 makefiles.  Non-PerlIO builds were all but deprecated in Perl 5.18.0 and are
1857 already not supported by F<Configure> on POSIX systems.
1858
1859 =item *
1860
1861 Between 2 and 6 ms and 7 I/O calls have been saved per attempt to open a perl
1862 module for each path in C<@INC>.
1863
1864 =item *
1865
1866 Intel C builds are now always built with C99 mode on.
1867
1868 =item *
1869
1870 C<%I64d> is now being used instead of C<%lld> for MinGW.
1871
1872 =item *
1873
1874 In the experimental C<:win32> layer, a crash in C<open> was fixed. Also
1875 opening C</dev/null>, which works the Win32 Perl's normal C<:unix> layer, was
1876 implemented for C<:win32>.
1877 L<[perl #122224]|https://rt.perl.org/Ticket/Display.html?id=122224>
1878
1879 =item *
1880
1881 A new makefile option, C<USE_LONG_DOUBLE>, has been added to the Windows
1882 dmake makefile for gcc builds only.  Set this to "define" if you want perl to
1883 use long doubles to give more accuracy and range for floating point numbers.
1884
1885 =back
1886
1887 =item OpenBSD
1888
1889 On OpenBSD, Perl will now default to using the system C<malloc> due to the
1890 security features it provides. Perl's own malloc wrapper has been in use
1891 since v5.14 due to performance reasons, but the OpenBSD project believes
1892 the tradeoff is worth it and would prefer that users who need the speed
1893 specifically ask for it.
1894
1895 L<[perl #122000]|https://rt.perl.org/Ticket/Display.html?id=122000>.
1896
1897 =item Solaris
1898
1899 =over 4
1900
1901 =item *
1902
1903 We now look for the Sun Studio compiler in both F</opt/solstudio*> and
1904 F</opt/solarisstudio*>.
1905
1906 =item *
1907
1908 Builds on Solaris 10 with C<-Dusedtrace> would fail early since make
1909 didn't follow implied dependencies to build C<perldtrace.h>.  Added an
1910 explicit dependency to C<depend>.
1911 L<[perl #120120]|https://rt.perl.org/Ticket/Display.html?id=120120>
1912
1913 =item *
1914
1915 C<c99> options have been cleaned up, hints look for C<solstudio>
1916 as well as C<SUNWspro>, and support for native C<setenv> has been added.
1917
1918 =back
1919
1920 =back
1921
1922 =head1 Internal Changes
1923
1924 =over 4
1925
1926 =item *
1927
1928 Experimental support has been added to allow ops in the optree to locate
1929 their parent, if any. This is enabled by the non-default build option
1930 C<-DPERL_OP_PARENT>. It is envisaged that this will eventually become
1931 enabled by default, so XS code which directly accesses the C<op_silbing>
1932 field of ops should be updated to be future-proofed.
1933
1934 On C<PERL_OP_PARENT> builds, the C<op_sibling> field has been renamed
1935 C<op_sibparent> and a new flag, C<op_moresib>, added. On the last op in a
1936 sibling chain, C<op_moresib> is false and C<op_sibparent> points to the
1937 parent (if any) rather than to being C<NULL>.
1938
1939 To make existing code work transparently whether using C<-DPERL_OP_PARENT>
1940 or not, a number of new macros and functions have been added that should
1941 be used, rather than directly manipulating C<op_sibling>.
1942
1943 For the case of just reading C<op_sibling> to determine the next sibling,
1944 two new macros have been added. A simple scan through a sibling chain
1945 like this:
1946
1947     for (; kid->op_sibling; kid = kid->op_sibling) { ...  }
1948
1949 should now be written as:
1950
1951     for (; OpHAS_SIBLING(kid); kid = OpSIBLING(kid)) { ...  }
1952
1953 For altering optrees, A general-purpose function C<op_sibling_splice()>
1954 has been added, which allows for manipulation of a chain of sibling ops.
1955 By analogy with the Perl function C<splice()>, it allows you to cut out
1956 zero or more ops from a sibling chain and replace them with zero or more
1957 new ops.  It transparently handles all the updating of sibling, parent,
1958 op_last pointers etc.
1959
1960 If you need to manipulate ops at a lower level, then three new macros,
1961 C<OpMORESIB_set>, C<OpLASTSIB_set> and C<OpMAYBESIB_set> are intended to
1962 be a low-level portable way to set C<op_sibling> / C<op_sibparent> while
1963 also updating C<op_moresib>.  The first sets the sibling pointer to a new
1964 sibling, the second makes the op the last sibling, and the third
1965 conditionally does the first or second action.  Note that unlike
1966 C<op_sibling_splice()> these macros won't maintain consistency in the
1967 parent at the same time (e.g. by updating C<op_first> and C<op_last> where
1968 appropriate).
1969
1970 A C-level C<Perl_op_parent()> function and a perl-level C<B::OP::parent()>
1971 method have been added. The C function only exists under
1972 C<-DPERL_OP_PARENT> builds (using it is build-time error on vanilla
1973 perls).  C<B::OP::parent()> exists always, but on a vanilla build it
1974 always returns C<NULL>. Under C<-DPERL_OP_PARENT>, they return the parent
1975 of the current op, if any. The variable C<$B::OP::does_parent> allows you
1976 to determine whether C<B> supports retrieving an op's parent.
1977
1978 C<-DPERL_OP_PARENT> was introduced in 5.21.2, but the interface was
1979 changed considerably in 5.21.11. If you updated your code before the
1980 5.21.11 changes, it may require further revision. The main changes after
1981 5.21.2 were:
1982
1983 =over 4
1984
1985 =item *
1986
1987 The C<OP_SIBLING> and C<OP_HAS_SIBLING> macros have been renamed
1988 C<OpSIBLING> and C<OpHAS_SIBLING> for consistency with other
1989 op-manipulating macros.
1990
1991 =item *
1992
1993 The C<op_lastsib> field has been renamed C<op_moresib>, and its meaning
1994 inverted.
1995
1996 =item *
1997
1998 The macro C<OpSIBLING_set> has been removed, and has been superseded by
1999 C<OpMORESIB_set> et al.
2000
2001 =item *
2002
2003 The C<op_sibling_splice()> function now accepts a null C<parent> argument
2004 where the splicing doesn't affect the first or last ops in the sibling
2005 chain
2006
2007 =back
2008
2009 =item *
2010
2011 Macros have been created to allow XS code to better manipulate the POSIX locale
2012 category C<LC_NUMERIC>.  See L<perlapi/Locale-related functions and macros>.
2013
2014 =item *
2015
2016 The previous C<atoi> et al replacement function, C<grok_atou>, has now been
2017 superseded by C<grok_atoUV>.  See L<perlclib> for details.
2018
2019 =item *
2020
2021 Added Perl_sv_get_backrefs() to determine if an SV is a weak-referent.
2022
2023 Function either returns an SV * of type AV, which contains the set of
2024 weakreferences which reference the passed in SV, or a simple RV * which
2025 is the only weakref to this item.
2026
2027 =item *
2028
2029 C<screaminstr> has been removed. Although marked as public API, it is
2030 undocumented and has no usage in modern perl versions on CPAN Grep. Calling it
2031 has been fatal since 5.17.0.
2032
2033 =item *
2034
2035 C<newDEFSVOP>, C<block_start>, C<block_end> and C<intro_my> have been added
2036 to the API.
2037
2038 =item *
2039
2040 The internal C<convert> function in F<op.c> has been renamed
2041 C<op_convert_list> and added to the API.
2042
2043 =item *
2044
2045 C<sv_magic> no longer forbids "ext" magic on read-only values.  After all,
2046 perl can't know whether the custom magic will modify the SV or not.
2047 L<[perl #123103]|https://rt.perl.org/Ticket/Display.html?id=123103>.
2048
2049 =item *
2050
2051 Starting in 5.21.6, accessing L<perlapi/CvPADLIST> in an XSUB is forbidden.
2052 CvPADLIST has been reused for a different internal purpose for XSUBs. Guard all
2053 CvPADLIST expressions with C<CvISXSUB()> if your code doesn't already block
2054 XSUB CV*s from going through optree CV* expecting code.
2055
2056 =item *
2057
2058 SVs of type SVt_NV are now bodyless when a build configure and platform allow
2059 it, specifically C<sizeof(NV) <= sizeof(IV)>. The bodyless trick is the same one
2060 as for IVs since 5.9.2, but for NVs, unlike IVs, is not guaranteed on all
2061 platforms and build configurations.
2062
2063 =item *
2064
2065 The C<$DB::single>, C<$DB::signal> and C<$DB::trace> now have set and
2066 get magic that stores their values as IVs and those IVs are used when
2067 testing their values in C<pp_dbstate>.  This prevents perl from
2068 recursing infinity if an overloaded object is assigned to any of those
2069 variables.
2070 L<[perl #122445]|https://rt.perl.org/Ticket/Display.html?id=122445>.
2071
2072 =item *
2073
2074 C<Perl_tmps_grow> which is marked as public API but undocumented has been
2075 removed from public API. If you use C<EXTEND_MORTAL> macro in your XS code to
2076 preextend the mortal stack, you are unaffected by this change.
2077
2078 =item *
2079
2080 C<cv_name>, which was introduced in 5.21.4, has been changed incompatibly.
2081 It now has a flags field that allows the caller to specify whether the name
2082 should be fully qualified.  See L<perlapi/cv_name>.
2083
2084 =item *
2085
2086 Internally Perl no longer uses the C<SVs_PADMY> flag.  C<SvPADMY()> now
2087 returns a true value for anything not marked PADTMP.  C<SVs_PADMY> is now
2088 defined as 0.
2089
2090 =item *
2091
2092 The macros SETsv and SETsvUN have been removed. They were no longer used
2093 in the core since commit 6f1401dc2a, and have not been found present on
2094 CPAN.
2095
2096 =item *
2097
2098 The C<< SvFAKE >> bit (unused on HVs) got informally reserved by
2099 David Mitchell for future work on vtables.
2100
2101 =item *
2102
2103 The C<sv_catpvn_flags> function accepts C<SV_CATBYTES> and C<SV_CATUTF8>
2104 flags, which specify whether the appended string is bytes or utf8,
2105 respectively.
2106
2107 =item *
2108
2109 A new opcode class, C<< METHOP >> has been introduced, which holds
2110 class/method related info needed at runtime to improve performance
2111 of class/object method calls.
2112
2113 C<< OP_METHOD >> and C<< OP_METHOD_NAMED >> are moved from being
2114 C<< UNOP/SVOP >> to being C<< METHOP >>.
2115
2116 =item *
2117
2118 C<save_re_context> no longer does anything and has been moved to F<mathoms.c>.
2119
2120 =item *
2121
2122 C<cv_name> is a new API function that can be passed a CV or GV.  It returns an
2123 SV containing the name of the subroutine for use in diagnostics.
2124 L<[perl #116735]|https://rt.perl.org/Ticket/Display.html?id=116735>
2125 L<[perl #120441]|https://rt.perl.org/Ticket/Display.html?id=120441>
2126
2127 =item *
2128
2129 C<cv_set_call_checker_flags> is a new API function that works like
2130 C<cv_set_call_checker>, except that it allows the caller to specify whether the
2131 call checker requires a full GV for reporting the subroutine's name, or whether
2132 it could be passed a CV instead.  Whatever value is passed will be acceptable
2133 to C<cv_name>.  C<cv_set_call_checker> guarantees there will be a GV, but it
2134 may have to create one on the fly, which is inefficient.
2135 L<[perl #116735]|https://rt.perl.org/Ticket/Display.html?id=116735>
2136
2137 =item *
2138
2139 C<CvGV> (which is not part of the API) is now a more complex macro, which may
2140 call a function and reify a GV.  For those cases where is has been used as a
2141 boolean, C<CvHASGV> has been added, which will return true for CVs that
2142 notionally have GVs, but without reifying the GV.  C<CvGV> also returns a GV
2143 now for lexical subs.
2144 L<[perl #120441]|https://rt.perl.org/Ticket/Display.html?id=120441>
2145
2146 =item *
2147
2148 Added L<perlapi/sync_locale>.  Changing the program's locale should be avoided
2149 by XS code.  Nevertheless, certain non-Perl libraries called from XS, such as
2150 C<Gtk> do so.  When this happens, Perl needs to be told that the locale has
2151 changed.  Use this function to do so, before returning to Perl.
2152
2153 =item *
2154
2155 The defines and labels for the flags in the C<op_private> field of OPs are now
2156 auto-generated from data in F<regen/op_private>.  The noticeable effect of this
2157 is that some of the flag output of C<Concise> might differ slightly, and the
2158 flag output of C<perl -Dx> may differ considerably (they both use the same set
2159 of labels now).  Also in debugging builds, there is a new assert in
2160 C<op_free()> that checks that the op doesn't have any unrecognized flags set in
2161 C<op_private>.
2162
2163 =item *
2164
2165 Added L<perlapi/sync_locale>.
2166 Changing the program's locale should be avoided by XS code.  Nevertheless,
2167 certain non-Perl libraries called from XS, such as C<Gtk> do so.  When this
2168 happens, Perl needs to be told that the locale has changed.  Use this function
2169 to do so, before returning to Perl.
2170
2171 =item *
2172
2173 The deprecated variable C<PL_sv_objcount> has been removed.
2174
2175 =item *
2176
2177 Perl now tries to keep the locale category C<LC_NUMERIC> set to "C"
2178 except around operations that need it to be set to the program's
2179 underlying locale.  This protects the many XS modules that cannot cope
2180 with the decimal radix character not being a dot.  Prior to this
2181 release, Perl initialized this category to "C", but a call to
2182 C<POSIX::setlocale()> would change it.  Now such a call will change the
2183 underlying locale of the C<LC_NUMERIC> category for the program, but the
2184 locale exposed to XS code will remain "C".  There is an API under
2185 development for those relatively few modules that need to use the
2186 underlying locale.  This API will be nailed down during the course of
2187 developing v5.21.  Send email to L<mailto:perl5-porters@perl.org> for
2188 guidance.
2189
2190 =item *
2191
2192 A new macro L<C<isUTF8_CHAR>|perlapi/isUTF8_CHAR> has been written which
2193 efficiently determines if the string given by its parameters begins
2194 with a well-formed UTF-8 encoded character.
2195
2196 =item *
2197
2198 The following private API functions had their context parameter removed,
2199 C<Perl_cast_ulong>,  C<Perl_cast_i32>, C<Perl_cast_iv>,    C<Perl_cast_uv>,
2200 C<Perl_cv_const_sv>, C<Perl_mg_find>,  C<Perl_mg_findext>, C<Perl_mg_magical>,
2201 C<Perl_mini_mktime>, C<Perl_my_dirfd>, C<Perl_sv_backoff>, C<Perl_utf8_hop>.
2202
2203 Users of the public API prefix-less calls remain unaffected.
2204
2205 =item *
2206
2207 The PADNAME and PADNAMELIST types are now separate types, and no longer
2208 simply aliases for SV and AV.
2209 L<[perl #123223]|https://rt.perl.org/Ticket/Display.html?id=123223>.
2210
2211 =item *
2212
2213 Pad names are now always UTF8.  The C<PadnameUTF8> macro always returns
2214 true.  Previously, this was effectively the case already, but any support
2215 for two different internal representations of pad names has now been
2216 removed.
2217
2218 =item *
2219
2220 A new op class, C<UNOP_AUX>, has been added. This is a subclass of
2221 C<UNOP> with an C<op_aux> field added, which points to an array of unions
2222 of C<UV>, C<SV*> etc. It is intended for where an op needs to store more data
2223 than a simple C<op_sv> or whatever. Currently the only op of this type is
2224 C<OP_MULTIDEREF> (see below).
2225
2226 =item *
2227
2228 A new op has been added, C<OP_MULTIDEREF>, which performs one or more
2229 nested array and hash lookups where the key is a constant or simple
2230 variable. For example the expression C<$a[0]{$k}[$i]>, which previously
2231 involved ten C<rv2Xv>, C<Xelem>, C<gvsv> and C<const> ops is now performed
2232 by a single C<multideref> op. It can also handle C<local>, C<exists> and
2233 C<delete>. A non-simple index expression, such as C<[$i+1]> is still done
2234 using C<aelem>/C<helem>, and single-level array lookup with a small constant
2235 index is still done using C<aelemfast>.
2236
2237 =back
2238
2239 =head1 Selected Bug Fixes
2240
2241 =over 4
2242
2243 =item *
2244
2245 C<pack("D", $x)> and C<pack("F", $x)> now zero the padding on x86 long double
2246 builds.  GCC 4.8 and later, under some build options, would either overwrite
2247 the zero-initialized padding, or bypass the initialized buffer entirely.  This
2248 caused F<op/pack.t> to fail.
2249 L<[perl #123971]|https://rt.perl.org/Ticket/Display.html?id=123971>
2250
2251 =item *
2252
2253 Extending an array cloned from a parent thread could result in "Modification of
2254 a read-only value attempted" errors when attempting to modify the new elements.
2255 L<[perl #124127]|https://rt.perl.org/Ticket/Display.html?id=124127>
2256
2257 =item *
2258
2259 An assertion failure and subsequent crash with C<< *x=<y> >> has been fixed.
2260 L<[perl #123790]|https://rt.perl.org/Ticket/Display.html?id=123790>
2261
2262 =item *
2263
2264 An optimization for state variable initialization introduced in Perl 5.21.6 has
2265 been reverted because it was found to exacerbate some other existing buggy
2266 behaviour.
2267 L<[perl #124160]|https://rt.perl.org/Ticket/Display.html?id=124160>
2268
2269 =item *
2270
2271 The extension of another optimization to cover more ops in Perl 5.21 has also
2272 been reverted to its Perl 5.20 state as a temporary fix for regression issues
2273 that it caused.
2274 L<[perl #123790]|https://rt.perl.org/Ticket/Display.html?id=123790>
2275
2276 =item *
2277
2278 New bitwise ops added in Perl 5.21.9 accidentally caused C<$^H |= 0x1c020000>
2279 to enable all features.  This has now been fixed.
2280
2281 =item *
2282
2283 A possible crashing/looping bug has been fixed.
2284 L<[perl #124099]|https://rt.perl.org/Ticket/Display.html?id=124099>
2285
2286 =item *
2287
2288 UTF-8 variable names used in array indexes, unquoted UTF-8 HERE-document
2289 terminators and UTF-8 function names all now work correctly.
2290 L<[perl #124113]|https://rt.perl.org/Ticket/Display.html?id=124113>
2291
2292 =item *
2293
2294 Repeated global pattern matches in scalar context on large tainted strings were
2295 exponentially slow depending on the current match position in the string.
2296 L<[perl #123202]|https://rt.perl.org/Ticket/Display.html?id=123202>
2297
2298 =item *
2299
2300 Various crashes due to the parser getting confused by syntax errors have been
2301 fixed.
2302 L<[perl #123801]|https://rt.perl.org/Ticket/Display.html?id=123801>
2303 L<[perl #123802]|https://rt.perl.org/Ticket/Display.html?id=123802>
2304 L<[perl #123955]|https://rt.perl.org/Ticket/Display.html?id=123955>
2305 L<[perl #123995]|https://rt.perl.org/Ticket/Display.html?id=123995>
2306
2307 =item *
2308
2309 C<split> in the scope of lexical $_ has been fixed not to fail assertions.
2310 L<[perl #123763]|https://rt.perl.org/Ticket/Display.html?id=123763>
2311
2312 =item *
2313
2314 C<my $x : attr> syntax inside various list operators no longer fails
2315 assertions.
2316 L<[perl #123817]|https://rt.perl.org/Ticket/Display.html?id=123817>
2317
2318 =item *
2319
2320 An @ sign in quotes followed by a non-ASCII digit (which is not a valid
2321 identifier) would cause the parser to crash, instead of simply trying the @ as
2322 literal.  This has been fixed.
2323 L<[perl #123963]|https://rt.perl.org/Ticket/Display.html?id=123963>
2324
2325 =item *
2326
2327 C<*bar::=*foo::=*glob_with_hash> has been crashing since Perl 5.14, but no
2328 longer does.
2329 L<[perl #123847]|https://rt.perl.org/Ticket/Display.html?id=123847>
2330
2331 =item *
2332
2333 C<foreach> in scalar context was not pushing an item on to the stack, resulting
2334 in bugs.  (C<print 4, scalar do { foreach(@x){} } + 1> would print 5.)  It has
2335 been fixed to return C<undef>.
2336 L<[perl #124004]|https://rt.perl.org/Ticket/Display.html?id=124004>
2337
2338 =item *
2339
2340 A memory leak introduced in Perl 5.21.6 has been fixed.
2341 L<[perl #123922]|https://rt.perl.org/Ticket/Display.html?id=123922>
2342
2343 =item *
2344
2345 A regression in the behaviour of the C<readline> built-in function, caused by
2346 the introduction of the C<< <<>> >> operator, has been fixed.
2347 L<[perl #123990]|https://rt.perl.org/Ticket/Display.html?id=123990>
2348
2349 =item *
2350
2351 Several cases of data used to store environment variable contents in core C
2352 code being potentially overwritten before being used have been fixed.
2353 L<[perl #123748]|https://rt.perl.org/Ticket/Display.html?id=123748>
2354
2355 =item *
2356
2357 Patterns starting with C</.*/> are now fast again.
2358 L<[perl #123743]|https://rt.perl.org/Ticket/Display.html?id=123743>.
2359
2360 =item *
2361
2362 The original visible value of C<$/> is now preserved when it is set to
2363 an invalid value.  Previously if you set C<$/> to a reference to an
2364 array, for example, perl would produce a runtime error and not set
2365 C<PL_rs>, but perl code that checked C<$/> would see the array
2366 reference.
2367 L<[perl #123218]|https://rt.perl.org/Ticket/Display.html?id=123218>.
2368
2369 =item *
2370
2371 In a regular expression pattern, a POSIX class, like C<[:ascii:]>, must
2372 be inside a bracketed character class, like C</qr[[:ascii:]]>.  A
2373 warning is issued when something looking like a POSIX class is not
2374 inside a bracketed class.  That warning wasn't getting generated when
2375 the POSIX class was negated: C<[:^ascii:]>.  This is now fixed.
2376
2377 =item *
2378
2379 Fix a couple of other size calculation overflows.
2380 L<[perl #123554]|https://rt.perl.org/Ticket/Display.html?id=123554>.
2381
2382 =item *
2383
2384 A bug introduced in 5.21.6, C<dump LABEL> acted the same as C<goto
2385 LABEL>.  This has been fixed.
2386 L<[perl #123836]|https://rt.perl.org/Ticket/Display.html?id=123836>.
2387
2388 =item *
2389
2390 Perl 5.14.0 introduced a bug whereby C<eval { LABEL: }> would crash.  This
2391 has been fixed.
2392 L<[perl #123652]|https://rt.perl.org/Ticket/Display.html?id=123652>.
2393
2394 =item *
2395
2396 Various crashes due to the parser getting confused by syntax errors have
2397 been fixed.
2398 L<[perl #123617]|https://rt.perl.org/Ticket/Display.html?id=123617>.
2399 L<[perl #123737]|https://rt.perl.org/Ticket/Display.html?id=123737>.
2400 L<[perl #123753]|https://rt.perl.org/Ticket/Display.html?id=123753>.
2401 L<[perl #123677]|https://rt.perl.org/Ticket/Display.html?id=123677>.
2402
2403 =item *
2404
2405 Code like C</$a[/> used to read the next line of input and treat it as
2406 though it came immediately after the opening bracket.  Some invalid code
2407 consequently would parse and run, but some code caused crashes, so this is
2408 now disallowed.
2409 L<[perl #123712]|https://rt.perl.org/Ticket/Display.html?id=123712>.
2410
2411 =item *
2412
2413 Fix argument underflow for C<pack>.
2414 L<[perl #123874]|https://rt.perl.org/Ticket/Display.html?id=123874>.
2415
2416 =item *
2417
2418 Fix handling of non-strict C<\x{}>. Now C<\x{}> is equivalent to C<\x{0}>
2419 instead of faulting.
2420
2421 =item *
2422
2423 C<stat -t> is now no longer treated as stackable, just like C<-t stat>.
2424 L<[perl #123816]|https://rt.perl.org/Ticket/Display.html?id=123816>.
2425
2426 =item *
2427
2428 The following no longer causes a SEGV: C<qr{x+(y(?0))*}>.
2429
2430 =item *
2431
2432 Fixed infinite loop in parsing backrefs in regexp patterns.
2433
2434 =item *
2435
2436 Several minor bug fixes in behavior of Inf and NaN, including
2437 warnings when stringifying Inf-like or NaN-like strings. For example,
2438 "NaNcy" doesn't numify to NaN anymore.
2439
2440 =item *
2441
2442 Only stringy classnames are now shared. This fixes some failures in L<autobox>.
2443 L<[perl #100819]|https://rt.cpan.org/Ticket/Display.html?id=100819>.
2444
2445 =item *
2446
2447 A bug in regular expression patterns that could lead to segfaults and
2448 other crashes has been fixed.  This occurred only in patterns compiled
2449 with C<"/i">, while taking into account the current POSIX locale (this usually
2450 means they have to be compiled within the scope of C<S<"use locale">>),
2451 and there must be a string of at least 128 consecutive bytes to match.
2452 L<[perl #123539]|https://rt.perl.org/Ticket/Display.html?id=123539>.
2453
2454 =item *
2455
2456 C<s///> now works on very long strings instead of dying with 'Substitution
2457 loop'.
2458 L<[perl #103260]|https://rt.perl.org/Ticket/Display.html?id=103260>.
2459 L<[perl #123071]|https://rt.perl.org/Ticket/Display.html?id=123071>.
2460
2461 =item *
2462
2463 C<gmtime> no longer crashes with not-a-number values.
2464 L<[perl #123495]|https://rt.perl.org/Ticket/Display.html?id=123495>.
2465
2466 =item *
2467
2468 C<\()> (reference to an empty list) and C<y///> with lexical $_ in scope
2469 could do a bad write past the end of the stack.  They have been fixed
2470 to extend the stack first.
2471
2472 =item *
2473
2474 C<prototype()> with no arguments used to read the previous item on the
2475 stack, so C<print "foo", prototype()> would print foo's prototype.  It has
2476 been fixed to infer $_ instead.
2477 L<[perl #123514]|https://rt.perl.org/Ticket/Display.html?id=123514>.
2478
2479 =item *
2480
2481 Some cases of lexical state subs inside predeclared subs could crash but no
2482 longer do.
2483
2484 =item *
2485
2486 Some cases of nested lexical state subs inside anonymous subs could cause
2487 'Bizarre copy' errors or possibly even crash.
2488
2489 =item *
2490
2491 When trying to emit warnings, perl's default debugger (F<perl5db.pl>) was
2492 sometimes giving 'Undefined subroutine &DB::db_warn called' instead.  This
2493 bug, which started to occur in Perl 5.18, has been fixed.
2494 L<[perl #123553]|https://rt.perl.org/Ticket/Display.html?id=123553>.
2495
2496 =item *
2497
2498 Certain syntax errors in substitutions, such as C<< s/${E<lt>E<gt>{})// >>, would
2499 crash, and had done so since Perl 5.10.  (In some cases the crash did not
2500 start happening till 5.16.)  The crash has, of course, been fixed.
2501 L<[perl #123542]|https://rt.perl.org/Ticket/Display.html?id=123542>.
2502
2503 =item *
2504
2505 A repeat expression like C<33 x ~3> could cause a large buffer
2506 overflow since the new output buffer size was not correctly handled by
2507 SvGROW().  An expression like this now properly produces a memory wrap
2508 panic.
2509 L<[perl #123554]|https://rt.perl.org/Ticket/Display.html?id=123554>.
2510
2511 =item *
2512
2513 C<< formline("@...", "a"); >> would crash.  The C<FF_CHECKNL> case in
2514 pp_formline() didn't set the pointer used to mark the chop position,
2515 which led to the C<FF_MORE> case crashing with a segmentation fault.
2516 This has been fixed.
2517 L<[perl #123538]|https://rt.perl.org/Ticket/Display.html?id=123538>.
2518
2519 =item *
2520
2521 A possible buffer overrun and crash when parsing a literal pattern during
2522 regular expression compilation has been fixed.
2523 L<[perl #123604]|https://rt.perl.org/Ticket/Display.html?id=123604>.
2524
2525 =item *
2526
2527 fchmod() and futimes() now set C<$!> when they fail due to being
2528 passed a closed file handle.
2529 L<[perl #122703]|https://rt.perl.org/Ticket/Display.html?id=122703>.
2530
2531 =item *
2532
2533 Perl now comes with a corrected Unicode 7.0 for the erratum issued on
2534 October 21, 2014 (see L<http://www.unicode.org/errata/#current_errata>),
2535 dealing with glyph shaping in Arabic.
2536
2537 =item *
2538
2539 op_free() no longer crashes due to a stack overflow when freeing a
2540 deeply recursive op tree.
2541 L<[perl #108276]|https://rt.perl.org/Ticket/Display.html?id=108276>.
2542
2543 =item *
2544
2545 scalarvoid() would crash due to a stack overflow when processing a
2546 deeply recursive op tree.
2547 L<[perl #108276]|https://rt.perl.org/Ticket/Display.html?id=108276>.
2548
2549 =item *
2550
2551 In Perl 5.20.0, C<$^N> accidentally had the internal UTF8 flag turned off
2552 if accessed from a code block within a regular expression, effectively
2553 UTF8-encoding the value.  This has been fixed.
2554 L<[perl #123135]|https://rt.perl.org/Ticket/Display.html?id=123135>.
2555
2556 =item *
2557
2558 A failed C<semctl> call no longer overwrites existing items on the stack,
2559 causing C<(semctl(-1,0,0,0))[0]> to give an "uninitialized" warning.
2560
2561 =item *
2562
2563 C<else{foo()}> with no space before C<foo> is now better at assigning the
2564 right line number to that statement.
2565 L<[perl #122695]|https://rt.perl.org/Ticket/Display.html?id=122695>.
2566
2567 =item *
2568
2569 Sometimes the assignment in C<@array = split> gets optimised and C<split>
2570 itself writes directly to the array.  This caused a bug, preventing this
2571 assignment from being used in lvalue context.  So
2572 C<(@a=split//,"foo")=bar()> was an error.  (This bug probably goes back to
2573 Perl 3, when the optimisation was added.)  This optimisation, and the bug,
2574 started to happen in more cases in 5.21.5.  It has now been fixed.
2575 L<[perl #123057]|https://rt.perl.org/Ticket/Display.html?id=123057>.
2576
2577 =item *
2578
2579 When argument lists that fail the checks installed by subroutine
2580 signatures, the resulting error messages now give the file and line number
2581 of the caller, not of the called subroutine.
2582 L<[perl #121374]|https://rt.perl.org/Ticket/Display.html?id=121374>.
2583
2584 =item *
2585
2586 Flip-flop operators (C<..> and C<...> in scalar context) used to maintain
2587 a separate state for each recursion level (the number of times the
2588 enclosing sub was called recursively), contrary to the documentation.  Now
2589 each closure has one internal state for each flip-flop.
2590 L<[perl #122829]|https://rt.perl.org/Ticket/Display.html?id=122829>.
2591
2592 =item *
2593
2594 C<use>, C<no>, statement labels, special blocks (C<BEGIN>) and pod are now
2595 permitted as the first thing in a C<map> or C<grep> block, the block after
2596 C<print> or C<say> (or other functions) returning a handle, and within
2597 C<${...}>, C<@{...}>, etc.
2598 L<[perl #122782]|https://rt.perl.org/Ticket/Display.html?id=122782>.
2599
2600 =item *
2601
2602 The repetition operator C<x> now propagates lvalue context to its left-hand
2603 argument when used in contexts like C<foreach>.  That allows
2604 C<for(($#that_array)x2) { ... }> to work as expected if the loop modifies
2605 $_.
2606
2607 =item *
2608
2609 C<(...) x ...> in scalar context used to corrupt the stack if one operand
2610 were an object with "x" overloading, causing erratic behaviour.
2611 L<[perl #121827]|https://rt.perl.org/Ticket/Display.html?id=121827>.
2612
2613 =item *
2614
2615 Assignment to a lexical scalar is often optimised away (as mentioned under
2616 L</Performance Enhancements>).  Various bugs related to this optimisation
2617 have been fixed.  Certain operators on the right-hand side would sometimes
2618 fail to assign the value at all or assign the wrong value, or would call
2619 STORE twice or not at all on tied variables.  The operators affected were
2620 C<$foo++>, C<$foo-->, and C<-$foo> under C<use integer>, C<chomp>, C<chr>
2621 and C<setpgrp>.
2622
2623 =item *
2624
2625 List assignments were sometimes buggy if the same scalar ended up on both
2626 sides of the assignment due to used of C<tied>, C<values> or C<each>.  The
2627 result would be the wrong value getting assigned.
2628
2629 =item *
2630
2631 C<setpgrp($nonzero)> (with one argument) was accidentally changed in 5.16
2632 to mean C<setpgrp(0)>.  This has been fixed.
2633
2634 =item *
2635
2636 C<__SUB__> could return the wrong value or even corrupt memory under the
2637 debugger (the B<-d> switch) and in subs containing C<eval $string>.
2638
2639 =item *
2640
2641 When C<sub () { $var }> becomes inlinable, it now returns a different
2642 scalar each time, just as a non-inlinable sub would, though Perl still
2643 optimises the copy away in cases where it would make no observable
2644 difference.
2645
2646 =item *
2647
2648 C<my sub f () { $var }> and C<sub () : attr { $var }> are no longer
2649 eligible for inlining.  The former would crash; the latter would just
2650 throw the attributes away.  An exception is made for the little-known
2651 ":method" attribute, which does nothing much.
2652
2653 =item *
2654
2655 Inlining of subs with an empty prototype is now more consistent than
2656 before.  Previously, a sub with multiple statements, all but the last
2657 optimised away, would be inlinable only if it were an anonymous sub
2658 containing a string C<eval> or C<state> declaration or closing over an
2659 outer lexical variable (or any anonymous sub under the debugger).  Now any
2660 sub that gets folded to a single constant after statements have been
2661 optimised away is eligible for inlining.  This applies to things like C<sub
2662 () { jabber() if DEBUG; 42 }>.
2663
2664 Some subroutines with an explicit C<return> were being made inlinable,
2665 contrary to the documentation,  Now C<return> always prevents inlining.
2666
2667 =item *
2668
2669 On some systems, such as VMS, C<crypt> can return a non-ASCII string.  If a
2670 scalar assigned to had contained a UTF8 string previously, then C<crypt>
2671 would not turn off the UTF8 flag, thus corrupting the return value.  This
2672 would happen with C<$lexical = crypt ...>.
2673
2674 =item *
2675
2676 C<crypt> no longer calls C<FETCH> twice on a tied first argument.
2677
2678 =item *
2679
2680 An unterminated here-doc on the last line of a quote-like operator
2681 (C<qq[${ <<END }]>, C</(?{ <<END })/>) no longer causes a double free.  It
2682 started doing so in 5.18.
2683
2684 =item *
2685
2686 Fixed two assertion failures introduced into C<-DPERL_OP_PARENT>
2687 builds.
2688 L<[perl #108276]|https://rt.perl.org/Ticket/Display.html?id=108276>.
2689
2690 =item *
2691
2692 index() and rindex() no longer crash when used on strings over 2GB in
2693 size.
2694 L<[perl #121562]|https://rt.perl.org/Ticket/Display.html?id=121562>.
2695
2696 =item *
2697
2698 A small previously intentional memory leak in PERL_SYS_INIT/PERL_SYS_INIT3 on
2699 Win32 builds was fixed. This might affect embedders who repeatedly create and
2700 destroy perl engines within the same process.
2701
2702 =item *
2703
2704 C<POSIX::localeconv()> now returns the data for the program's underlying
2705 locale even when called from outside the scope of S<C<use locale>>.
2706
2707 =item *
2708
2709 C<POSIX::localeconv()> now works properly on platforms which don't have
2710 C<LC_NUMERIC> and/or C<LC_MONETARY>, or for which Perl has been compiled
2711 to disregard either or both of these locale categories.  In such
2712 circumstances, there are now no entries for the corresponding values in
2713 the hash returned by C<localeconv()>.
2714
2715 =item *
2716
2717 C<POSIX::localeconv()> now marks appropriately the values it returns as
2718 UTF-8 or not.  Previously they were always returned as bytes, even if
2719 they were supposed to be encoded as UTF-8.
2720
2721 =item *
2722
2723 On Microsoft Windows, within the scope of C<S<use locale>>, the following
2724 POSIX character classes gave results for many locales that did not
2725 conform to the POSIX standard:
2726 C<[[:alnum:]]>,
2727 C<[[:alpha:]]>,
2728 C<[[:blank:]]>,
2729 C<[[:digit:]]>,
2730 C<[[:graph:]]>,
2731 C<[[:lower:]]>,
2732 C<[[:print:]]>,
2733 C<[[:punct:]]>,
2734 C<[[:upper:]]>,
2735 C<[[:word:]]>,
2736 and
2737 C<[[:xdigit:]]>.
2738 These are because the underlying Microsoft implementation does not
2739 follow the standard.  Perl now takes special precautions to correct for
2740 this.
2741
2742 =item *
2743
2744 Many issues have been detected by L<Coverity|http://www.coverity.com/> and
2745 fixed.
2746
2747 =item *
2748
2749 system() and friends should now work properly on more Android builds.
2750
2751 Due to an oversight, the value specified through -Dtargetsh to Configure
2752 would end up being ignored by some of the build process.  This caused perls
2753 cross-compiled for Android to end up with defective versions of system(),
2754 exec() and backticks: the commands would end up looking for C</bin/sh>
2755 instead of C</system/bin/sh>, and so would fail for the vast majority
2756 of devices, leaving C<$!> as C<ENOENT>.
2757
2758 =item *
2759
2760 C<qr(...\(...\)...)>,
2761 C<qr[...\[...\]...]>,
2762 and
2763 C<qr{...\{...\}...}>
2764 now work.  Previously it was impossible to escape these three
2765 left-characters with a backslash within a regular expression pattern
2766 where otherwise they would be considered metacharacters, and the pattern
2767 opening delimiter was the character, and the closing delimiter was its
2768 mirror character.
2769
2770 =item *
2771
2772 C<< s///e >> on tainted utf8 strings got C<< pos() >> messed up. This bug,
2773 introduced in 5.20, is now fixed.
2774 L<[perl #122148]|https://rt.perl.org/Ticket/Display.html?id=122148>.
2775
2776 =item *
2777
2778 A non-word boundary in a regular expression (C<< \B >>) did not always
2779 match the end of the string; in particular C<< q{} =~ /\B/ >> did not
2780 match. This bug, introduced in perl 5.14, is now fixed.
2781 L<[perl #122090]|https://rt.perl.org/Ticket/Display.html?id=122090>.
2782
2783 =item *
2784
2785 C<< " P" =~ /(?=.*P)P/ >> should match, but did not. This is now fixed.
2786 L<[perl #122171]|https://rt.perl.org/Ticket/Display.html?id=122171>.
2787
2788 =item *
2789
2790 Failing to compile C<use Foo> in an eval could leave a spurious
2791 C<BEGIN> subroutine definition, which would produce a "Subroutine
2792 BEGIN redefined" warning on the next use of C<use>, or other C<BEGIN>
2793 block.
2794 L<[perl #122107]|https://rt.perl.org/Ticket/Display.html?id=122107>.
2795
2796 =item *
2797
2798 C<method { BLOCK } ARGS> syntax now correctly parses the arguments if they
2799 begin with an opening brace.
2800 L<[perl #46947]|https://rt.perl.org/Ticket/Display.html?id=46947>.
2801
2802 =item *
2803
2804 External libraries and Perl may have different ideas of what the locale is.
2805 This is problematic when parsing version strings if the locale's numeric
2806 separator has been changed.  Version parsing has been patched to ensure
2807 it handles the locales correctly.
2808 L<[perl #121930]|https://rt.perl.org/Ticket/Display.html?id=121930>.
2809
2810 =item *
2811
2812 A bug has been fixed where zero-length assertions and code blocks inside of a
2813 regex could cause C<pos> to see an incorrect value.
2814 L<[perl #122460]|https://rt.perl.org/Ticket/Display.html?id=122460>.
2815
2816 =item *
2817
2818 Constant dereferencing now works correctly for typeglob constants.  Previously
2819 the glob was stringified and its name looked up.  Now the glob itself is used.
2820 L<[perl #69456]|https://rt.perl.org/Ticket/Display.html?id=69456>
2821
2822 =item *
2823
2824 When parsing a funny character ($ @ % &) followed by braces, the parser no
2825 longer tries to guess whether it is a block or a hash constructor (causing a
2826 syntax error when it guesses the latter), since it can only be a block.
2827
2828 =item *
2829
2830 C<undef $reference> now frees the referent immediately, instead of hanging on
2831 to it until the next statement.
2832 L<[perl #122556]|https://rt.perl.org/Ticket/Display.html?id=122556>
2833
2834 =item *
2835
2836 Various cases where the name of a sub is used (autoload, overloading, error
2837 messages) used to crash for lexical subs, but have been fixed.
2838
2839 =item *
2840
2841 Bareword lookup now tries to avoid vivifying packages if it turns out the
2842 bareword is not going to be a subroutine name.
2843
2844 =item *
2845
2846 Compilation of anonymous constants (e.g., C<sub () { 3 }>) no longer deletes
2847 any subroutine named C<__ANON__> in the current package.  Not only was
2848 C<*__ANON__{CODE}> cleared, but there was a memory leak, too.  This bug goes
2849 back to Perl 5.8.0.
2850
2851 =item *
2852
2853 Stub declarations like C<sub f;> and C<sub f ();> no longer wipe out constants
2854 of the same name declared by C<use constant>.  This bug was introduced in Perl
2855 5.10.0.
2856
2857 =item *
2858
2859 Under some conditions a warning raised in compilation of regular expression
2860 patterns could be displayed multiple times.  This is now fixed.
2861
2862 =item *
2863
2864 C<qr/[\N{named sequence}]/> now works properly in many instances.  Some names
2865 known to C<\N{...}> refer to a sequence of multiple characters, instead of the
2866 usual single character.  Bracketed character classes generally only match
2867 single characters, but now special handling has been added so that they can
2868 match named sequences, but not if the class is inverted or the sequence is
2869 specified as the beginning or end of a range.  In these cases, the only
2870 behavior change from before is a slight rewording of the fatal error message
2871 given when this class is part of a C<?[...])> construct.  When the C<[...]>
2872 stands alone, the same non-fatal warning as before is raised, and only the
2873 first character in the sequence is used, again just as before.
2874
2875 =item *
2876
2877 Tainted constants evaluated at compile time no longer cause unrelated
2878 statements to become tainted.
2879 L<[perl #122669]|https://rt.perl.org/Ticket/Display.html?id=122669>
2880
2881 =item *
2882
2883 C<open $$fh, ...>, which vivifies a handle with a name like "main::_GEN_0", was
2884 not giving the handle the right reference count, so a double free could happen.
2885
2886 =item *
2887
2888 When deciding that a bareword was a method name, the parser would get confused
2889 if an "our" sub with the same name existed, and look up the method in the
2890 package of the "our" sub, instead of the package of the invocant.
2891
2892 =item *
2893
2894 The parser no longer gets confused by C<\U=> within a double-quoted string.  It
2895 used to produce a syntax error, but now compiles it correctly.
2896 L<[perl #80368]|https://rt.perl.org/Ticket/Display.html?id=80368>
2897
2898 =item *
2899
2900 It has always been the intention for the C<-B> and C<-T> file test operators to
2901 treat UTF-8 encoded files as text.  (L<perlfunc|perlfunc/-X FILEHANDLE> has
2902 been updated to say this.)  Previously, it was possible for some files to be
2903 considered UTF-8 that actually weren't valid UTF-8.  This is now fixed.  The
2904 operators now work on EBCDIC platforms as well.
2905
2906 =item *
2907
2908 Under some conditions warning messages raised during regular expression pattern
2909 compilation were being output more than once.  This has now been fixed.
2910
2911 =item *
2912
2913 A regression has been fixed that was introduced in Perl 5.20.0 (fixed in Perl
2914 5.20.1 as well as here) in which a UTF-8 encoded regular expression pattern
2915 that contains a single ASCII lowercase letter does not match its uppercase
2916 counterpart.
2917 L<[perl #122655]|https://rt.perl.org/Ticket/Display.html?id=122655>
2918
2919 =item *
2920
2921 Constant folding could incorrectly suppress warnings if lexical warnings (C<use
2922 warnings> or C<no warnings>) were not in effect and C<$^W> were false at
2923 compile time and true at run time.
2924
2925 =item *
2926
2927 Loading UTF8 tables during a regular expression match could cause assertion
2928 failures under debugging builds if the previous match used the very same
2929 regular expression.
2930 L<[perl #122747]|https://rt.perl.org/Ticket/Display.html?id=122747>
2931
2932 =item *
2933
2934 Thread cloning used to work incorrectly for lexical subs, possibly causing
2935 crashes or double frees on exit.
2936
2937 =item *
2938
2939 Since Perl 5.14.0, deleting C<$SomePackage::{__ANON__}> and then undefining an
2940 anonymous subroutine could corrupt things internally, resulting in
2941 L<Devel::Peek> crashing or L<B.pm|B> giving nonsensical data.  This has been
2942 fixed.
2943
2944 =item *
2945
2946 C<(caller $n)[3]> now reports names of lexical subs, instead of treating them
2947 as "(unknown)".
2948
2949 =item *
2950
2951 C<sort subname LIST> now supports lexical subs for the comparison routine.
2952
2953 =item *
2954
2955 Aliasing (e.g., via C<*x = *y>) could confuse list assignments that mention the
2956 two names for the same variable on either side, causing wrong values to be
2957 assigned.
2958 L<[perl #15667]|https://rt.perl.org/Ticket/Display.html?id=15667>
2959
2960 =item *
2961
2962 Long here-doc terminators could cause a bad read on short lines of input.  This
2963 has been fixed.  It is doubtful that any crash could have occurred.  This bug
2964 goes back to when here-docs were introduced in Perl 3.000 twenty-five years
2965 ago.
2966
2967 =item *
2968
2969 An optimization in C<split> to treat C<split/^/> like C<split/^/m> had the
2970 unfortunate side-effect of also treating C<split/\A/> like C<split/^/m>, which
2971 it should not.  This has been fixed.  (Note, however, that C<split/^x/> does
2972 not behave like C<split/^x/m>, which is also considered to be a bug and will be
2973 fixed in a future version.)
2974 L<[perl #122761]|https://rt.perl.org/Ticket/Display.html?id=122761>
2975
2976 =item *
2977
2978 The little-known C<my Class $var> syntax (see L<fields> and L<attributes>)
2979 could get confused in the scope of C<use utf8> if C<Class> were a constant
2980 whose value contained Latin-1 characters.
2981
2982 =item *
2983
2984 Locking and unlocking values via L<Hash::Util> or C<Internals::SvREADONLY>
2985 no longer has any effect on values that are read-only to begin.
2986 Previously, unlocking such values could result in crashes, hangs or
2987 other erratic behaviour.
2988
2989 =item *
2990
2991 The internal C<looks_like_number> function (which L<Scalar::Util> provides
2992 access to) began erroneously to return true for "-e1" in 5.21.4, affecting
2993 also C<-'-e1'>.  This has been fixed.
2994
2995 =item *
2996
2997 The flip-flop operator (C<..> in scalar context) would return the same
2998 scalar each time, unless the containing subroutine was called recursively.
2999 Now it always returns a new scalar.
3000 L<[perl #122829]|https://rt.perl.org/Ticket/Display.html?id=122829>.
3001
3002 =item *
3003
3004 Some unterminated C<(?(...)...)> constructs in regular expressions would
3005 either crash or give erroneous error messages.  C</(?(1)/> is one such
3006 example.
3007
3008 =item *
3009
3010 C<pack "w", $tied> no longer calls FETCH twice.
3011
3012 =item *
3013
3014 List assignments like C<($x, $z) = (1, $y)> now work correctly if $x and $y
3015 have been aliased by C<foreach>.
3016
3017 =item *
3018
3019 Some patterns including code blocks with syntax errors, such as
3020 C</ (?{(^{})/>, would hang or fail assertions on debugging builds.  Now
3021 they produce errors.
3022
3023 =item *
3024
3025 An assertion failure when parsing C<sort> with debugging enabled has been
3026 fixed.
3027 L<[perl #122771]|https://rt.perl.org/Ticket/Display.html?id=122771>.
3028
3029 =item *
3030
3031 C<*a = *b; @a = split //, $b[1]> could do a bad read and produce junk
3032 results.
3033
3034 =item *
3035
3036 In C<() = @array = split>, the C<() => at the beginning no longer confuses
3037 the optimizer, making it assume a limit of 1.
3038
3039 =item *
3040
3041 Fatal warnings no longer prevent the output of syntax errors.
3042 L<[perl #122966]|https://rt.perl.org/Ticket/Display.html?id=122966>.
3043
3044 =item *
3045
3046 Fixed a NaN double to long double conversion error on VMS. For quiet NaNs
3047 (and only on Itanium, not Alpha) negative infinity instead of NaN was
3048 produced.
3049
3050 =item *
3051
3052 Fixed the issue that caused C<< make distclean >> to leave files behind
3053 that shouldn't.
3054 L<[perl #122820]|https://rt.perl.org/Ticket/Display.html?id=122820>.
3055
3056 =item *
3057
3058 AIX now sets the length in C<< getsockopt >> correctly.
3059 L<[perl #120835]|https://rt.perl.org/Ticket/Display.html?id=120835>.
3060 L<[cpan #91183]|https://rt.cpan.org/Ticket/Display.html?id=91183>.
3061 L<[cpan #85570]|https://rt.cpan.org/Ticket/Display.html?id=85570>.
3062
3063 =item *
3064
3065 During the pattern optimization phase, we no longer recurse into
3066 GOSUB/GOSTART when not SCF_DO_SUBSTR. This prevents the optimizer
3067 to run "forever" and exhaust all memory.
3068 L<[perl #122283]|https://rt.perl.org/Ticket/Display.html?id=122283>.
3069
3070 =item *
3071
3072 F<< t/op/crypt.t >> now performs SHA-256 algorithm if the default one
3073 is disabled.
3074 L<[perl #121591]|https://rt.perl.org/Ticket/Display.html?id=121591>.
3075
3076 =item *
3077
3078 Fixed an off-by-one error when setting the size of shared array.
3079 L<[perl #122950]|https://rt.perl.org/Ticket/Display.html?id=122950>.
3080
3081 =item *
3082
3083 Fixed a bug that could cause perl to execute an infinite loop during
3084 compilation.
3085 L<[perl #122995]|https://rt.perl.org/Ticket/Display.html?id=122995>.
3086
3087 =item *
3088
3089 On Win32, restoring in a child pseudo-process a variable that was
3090 C<local()>ed in a parent pseudo-process before the C<fork> happened caused
3091 memory corruption and a crash in the child pseudo-process (and therefore OS
3092 process).
3093 L<[perl #40565]|https://rt.perl.org/Ticket/Display.html?id=40565>.
3094
3095 =item *
3096
3097 Calling C<write> on a format with a C<^**> field could produce a panic
3098 in sv_chop() if there were insufficient arguments or if the variable
3099 used to fill the field was empty.
3100 L<[perl #123245]|https://rt.perl.org/Ticket/Display.html?id=123245>.
3101
3102 =item *
3103
3104 Non-ASCII lexical sub names (use in error messages) on longer have extra
3105 junk on the end.
3106
3107 =item *
3108
3109 The C<\@> subroutine prototype no longer flattens parenthesized arrays
3110 (taking a reference to each element), but takes a reference to the array
3111 itself.
3112 L<[perl #47363]|https://rt.perl.org/Ticket/Display.html?id=47363>.
3113
3114 =item *
3115
3116 A block containing nothing except a C-style C<for> loop could corrupt the
3117 stack, causing lists outside the block to lose elements or have elements
3118 overwritten.  This could happen with C<map { for(...){...} } ...> and with
3119 lists containing C<do { for(...){...} }>.
3120 L<[perl #123286]|https://rt.perl.org/Ticket/Display.html?id=123286>.
3121
3122 =item *
3123
3124 C<scalar()> now propagates lvalue context, so that
3125 C<for(scalar($#foo)) { ... }> can modify C<$#foo> through C<$_>.
3126
3127 =item *
3128
3129 C<qr/@array(?{block})/> no longer dies with "Bizarre copy of ARRAY".
3130 L<[perl #123344]|https://rt.perl.org/Ticket/Display.html?id=123344>.
3131
3132 =item *
3133
3134 C<eval '$variable'> in nested named subroutines would sometimes look up a
3135 global variable even with a lexical variable in scope.
3136
3137 =item *
3138
3139 In perl 5.20.0, C<sort CORE::fake> where 'fake' is anything other than a
3140 keyword started chopping of the last 6 characters and treating the result
3141 as a sort sub name.  The previous behaviour of treating "CORE::fake" as a
3142 sort sub name has been restored.
3143 L<[perl #123410]|https://rt.perl.org/Ticket/Display.html?id=123410>.
3144
3145 =item *
3146
3147 Outside of C<use utf8>, a single-character Latin-1 lexical variable is
3148 disallowed.  The error message for it, "Can't use global $foo...", was
3149 giving garbage instead of the variable name.
3150
3151 =item *
3152
3153 C<readline> on a nonexistent handle was causing C<${^LAST_FH}> to produce a
3154 reference to an undefined scalar (or fail an assertion).  Now
3155 C<${^LAST_FH}> ends up undefined.
3156
3157 =item *
3158
3159 C<(...)x...> in void context now applies scalar context to the left-hand
3160 argument, instead of the context the current sub was called in.
3161 L<[perl #123020]|https://rt.perl.org/Ticket/Display.html?id=123020>.
3162
3163 =back
3164
3165 =head1 Known Problems
3166
3167 =over 4
3168
3169 =item *
3170
3171 A goal is for Perl to be able to be recompiled to work reasonably well on any
3172 Unicode version.  In Perl 5.22, though, the earliest such version is Unicode
3173 5.1 (current is 7.0).
3174
3175 =item *
3176
3177 EBCDIC platforms
3178
3179 =over 4
3180
3181 =item *
3182
3183 Encode and encoding are mostly broken.
3184
3185 =item *
3186
3187 Many CPAN modules that are shipped with core show failing tests.
3188
3189 =item *
3190
3191 C<pack>/C<unpack> with C<"U0"> format may not work properly.
3192
3193 =back
3194
3195 =item *
3196
3197 The following modules are known to have test failures with this version of
3198 Perl.  Patches have been submitted, so there will hopefully be new releases
3199 soon:
3200
3201 =over
3202
3203 =item *
3204
3205 L<B::Generate> version 1.50
3206
3207 =item *
3208
3209 L<B::Utils> version 0.25
3210
3211 =item *
3212
3213 L<Dancer> version 1.3130
3214
3215 =item *
3216
3217 L<Data::Alias> version 1.18
3218
3219 =item *
3220
3221 L<Data::Util> version 0.63
3222
3223 =item *
3224
3225 L<Devel::Spy> version 0.07
3226
3227 =item *
3228
3229 L<Lexical::Var> version 0.009
3230
3231 =item *
3232
3233 L<Mason> version 2.22
3234
3235 =item *
3236
3237 L<Padre> version 1.00
3238
3239 =item *
3240
3241 L<Parse::Keyword> 0.08
3242
3243 =back
3244
3245 =back
3246
3247 =head1 Acknowledgements
3248
3249 XXX Generate this with:
3250
3251   perl Porting/acknowledgements.pl v5.20.0..HEAD
3252
3253 =head1 Reporting Bugs
3254
3255 If you find what you think is a bug, you might check the articles recently
3256 posted to the comp.lang.perl.misc newsgroup and the perl bug database at
3257 https://rt.perl.org/ .  There may also be information at
3258 http://www.perl.org/ , the Perl Home Page.
3259
3260 If you believe you have an unreported bug, please run the L<perlbug> program
3261 included with your release.  Be sure to trim your bug down to a tiny but
3262 sufficient test case.  Your bug report, along with the output of C<perl -V>,
3263 will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
3264
3265 If the bug you are reporting has security implications, which make it
3266 inappropriate to send to a publicly archived mailing list, then please send it
3267 to perl5-security-report@perl.org.  This points to a closed subscription
3268 unarchived mailing list, which includes all the core committers, who will be
3269 able to help assess the impact of issues, figure out a resolution, and help
3270 co-ordinate the release of patches to mitigate or fix the problem across all
3271 platforms on which Perl is supported.  Please only use this address for
3272 security issues in the Perl core, not for modules independently distributed on
3273 CPAN.
3274
3275 =head1 SEE ALSO
3276
3277 The F<Changes> file for an explanation of how to view exhaustive details on
3278 what changed.
3279
3280 The F<INSTALL> file for how to build Perl.
3281
3282 The F<README> file for general stuff.
3283
3284 The F<Artistic> and F<Copying> files for copyright information.
3285
3286 =cut