Commit | Line | Data |
---|---|---|
44691e6f AB |
1 | =encoding utf8 |
2 | ||
3 | =head1 NAME | |
4 | ||
4dc623f0 CBW |
5 | [ this is a template for a new perldelta file. Any text flagged as XXX needs |
6 | to be processed before release. ] | |
7 | ||
8 | perldelta - what is new for perl v5.21.7 | |
c68523cb | 9 | |
238894db | 10 | =head1 DESCRIPTION |
c68523cb | 11 | |
4dc623f0 | 12 | This document describes differences between the 5.21.6 release and the 5.21.7 |
238894db | 13 | release. |
c68523cb | 14 | |
4dc623f0 CBW |
15 | If you are upgrading from an earlier release such as 5.21.5, first read |
16 | L<perl5216delta>, which describes differences between 5.21.5 and 5.21.6. | |
8435afd1 | 17 | |
4dc623f0 | 18 | =head1 Notice |
4cad5dc8 | 19 | |
4dc623f0 | 20 | XXX Any important notices here |
518159a1 | 21 | |
4dc623f0 | 22 | =head1 Core Enhancements |
518159a1 | 23 | |
4dc623f0 CBW |
24 | XXX New core language features go here. Summarize user-visible core language |
25 | enhancements. Particularly prominent performance optimisations could go | |
26 | here, but most should go in the L</Performance Enhancements> section. | |
518159a1 | 27 | |
4dc623f0 | 28 | [ List each enhancement as a =head2 entry ] |
518159a1 | 29 | |
67f2cc75 AC |
30 | =head2 C<fileno> now works on directory handles |
31 | ||
32 | When the relevant support is available in the operating system, the | |
33 | C<fileno> builtin now works on directory handles, yielding the | |
34 | underlying file descriptor in the same way as for filehandles. On | |
35 | operating systems without such support, C<fileno> on a directory handle | |
36 | continues to return the undefined value, as before, but also sets C<$!> to | |
37 | indicate that the operation is not supported. | |
38 | ||
39 | Currently, this uses either a C<dd_fd> member in the OS C<DIR> | |
40 | structure, or a dirfd(3) function as specified by POSIX.1-2008. | |
41 | ||
4dc623f0 | 42 | =head1 Security |
fe609065 | 43 | |
4dc623f0 CBW |
44 | XXX Any security-related notices go here. In particular, any security |
45 | vulnerabilities closed should be noted here rather than in the | |
46 | L</Selected Bug Fixes> section. | |
fe609065 | 47 | |
4dc623f0 | 48 | [ List each security issue as a =head2 entry ] |
295f7815 | 49 | |
4dc623f0 | 50 | =head1 Incompatible Changes |
295f7815 | 51 | |
4dc623f0 | 52 | XXX For a release on a stable branch, this section aspires to be: |
bb8c7e27 | 53 | |
4dc623f0 CBW |
54 | There are no changes intentionally incompatible with 5.XXX.XXX |
55 | If any exist, they are bugs, and we request that you submit a | |
56 | report. See L</Reporting Bugs> below. | |
9f122eef | 57 | |
4dc623f0 | 58 | [ List each incompatible change as a =head2 entry ] |
5cfa0642 | 59 | |
aafa61ee | 60 | =head2 C<&> and C<\&> prototypes accepts only subs |
3f22ed99 FC |
61 | |
62 | The C<&> prototype character now accepts only anonymous subs (C<sub {...}>) | |
63 | and things beginning with C<\&>. Formerly it erroneously also allowed | |
64 | C<undef> and references to array, hashes, and lists. [perl #4539] | |
65 | [perl #123062] | |
66 | ||
aafa61ee FC |
67 | The C<\&> prototype was allowing subroutine calls, whereas now it only |
68 | allows subroutines. C<&foo> is permitted. C<&foo()> and C<foo()> are not. | |
69 | [perl #77860] | |
70 | ||
ef8784b7 FC |
71 | =head2 C<use encoding> is now lexical |
72 | ||
73 | The L<encoding> pragma's effect is now limited to lexical scope. This | |
74 | pragma is deprecated, but in the meantime, it could adversely affect | |
75 | unrelated modules that are included in the same program. | |
76 | ||
4dc623f0 | 77 | =head1 Deprecations |
5b306eef | 78 | |
4dc623f0 | 79 | XXX Any deprecated features, syntax, modules etc. should be listed here. |
5b306eef | 80 | |
4dc623f0 | 81 | =head2 Module removals |
ef7051ba | 82 | |
4dc623f0 | 83 | XXX Remove this section if inapplicable. |
ef7051ba | 84 | |
4dc623f0 CBW |
85 | The following modules will be removed from the core distribution in a |
86 | future release, and will at that time need to be installed from CPAN. | |
87 | Distributions on CPAN which require these modules will need to list them as | |
88 | prerequisites. | |
b450ee68 | 89 | |
4dc623f0 CBW |
90 | The core versions of these modules will now issue C<"deprecated">-category |
91 | warnings to alert you to this fact. To silence these deprecation warnings, | |
92 | install the modules in question from CPAN. | |
b450ee68 | 93 | |
4dc623f0 CBW |
94 | Note that these are (with rare exceptions) fine modules that you are encouraged |
95 | to continue to use. Their disinclusion from core primarily hinges on their | |
96 | necessity to bootstrapping a fully functional, CPAN-capable Perl installation, | |
97 | not usually on concerns over their design. | |
1e461e16 | 98 | |
4dc623f0 | 99 | =over |
1e461e16 | 100 | |
4dc623f0 | 101 | =item XXX |
aa95859b | 102 | |
4dc623f0 CBW |
103 | XXX Note that deprecated modules should be listed here even if they are listed |
104 | as an updated module in the L</Modules and Pragmata> section. | |
aa95859b | 105 | |
86372193 | 106 | =back |
357205d5 | 107 | |
4dc623f0 | 108 | [ List each other deprecation as a =head2 entry ] |
6ed80d55 | 109 | |
c0659f73 KW |
110 | =head2 Setting C<${^ENCODING}> to anything but C<undef> |
111 | ||
112 | This variable allows Perl scripts to be written in a non-ASCII, | |
113 | non-UTF-8 encoding. However, it affects all modules globally, leading | |
114 | to wrong answers and segmentation faults. New scripts should be written | |
115 | in UTF-8; old scripts should be converted to UTF-8, which is easily done | |
116 | with the L<encoding> pragma. | |
117 | ||
4dc623f0 | 118 | =head1 Performance Enhancements |
6ed80d55 | 119 | |
4dc623f0 CBW |
120 | XXX Changes which enhance performance without changing behaviour go here. |
121 | There may well be none in a stable release. | |
6ed80d55 | 122 | |
4dc623f0 | 123 | [ List each enhancement as a =item entry ] |
6ed80d55 | 124 | |
4dc623f0 | 125 | =over 4 |
6ed80d55 CBW |
126 | |
127 | =item * | |
128 | ||
2adef77e DD |
129 | Win32 Perl uses 8 KB less of per-process memory than before for every perl |
130 | process of this version. This data is now memory mapped from disk and shared | |
131 | between perl processes from the same perl binary. | |
6ed80d55 | 132 | |
4dc623f0 | 133 | =back |
f4e81f96 | 134 | |
4dc623f0 | 135 | =head1 Modules and Pragmata |
bb6a367a | 136 | |
4dc623f0 CBW |
137 | XXX All changes to installed files in F<cpan/>, F<dist/>, F<ext/> and F<lib/> |
138 | go here. If Module::CoreList is updated, generate an initial draft of the | |
139 | following sections using F<Porting/corelist-perldelta.pl>. A paragraph summary | |
140 | for important changes should then be added by hand. In an ideal world, | |
141 | dual-life modules would have a F<Changes> file that could be cribbed. | |
f348c3d8 | 142 | |
4dc623f0 | 143 | [ Within each section, list entries as a =item entry ] |
f348c3d8 | 144 | |
4dc623f0 | 145 | =head2 New Modules and Pragmata |
6ed80d55 | 146 | |
4dc623f0 | 147 | =over 4 |
f348c3d8 A |
148 | |
149 | =item * | |
150 | ||
4dc623f0 | 151 | XXX |
7635ad4d | 152 | |
4dc623f0 | 153 | =back |
7635ad4d | 154 | |
4dc623f0 | 155 | =head2 Updated Modules and Pragmata |
7635ad4d | 156 | |
4dc623f0 | 157 | =over 4 |
f348c3d8 | 158 | |
6ed80d55 | 159 | =item * |
f348c3d8 | 160 | |
cd3802ac FC |
161 | L<B> has been upgraded from version 1.53 to 1.54. |
162 | ||
163 | Nulled COPs are now of class C<B::COP>, rather than C<B::OP>. | |
164 | ||
165 | =item * | |
166 | ||
7cf50cd1 FC |
167 | L<B::Deparse> has been upgraded from version 1.30 to 1.31. |
168 | ||
169 | BEGIN blocks at the end of the enclosing scope are now deparsed in the | |
170 | right place. [perl #77452] | |
171 | ||
73fc9720 FC |
172 | Lexical subroutines are now fully deparsed. [perl #116553] |
173 | ||
7cf50cd1 FC |
174 | =item * |
175 | ||
7de6b801 TC |
176 | L<ExtUtils::ParseXS> has been upgraded from version 3.26 to 3.27. |
177 | ||
178 | Only declare C<file> unused if we actually define it. | |
179 | ||
180 | Improve generated C<RETVAL> code generation to avoid repeated | |
181 | references to C<ST(0)>. [perl #123278] | |
f4eedc6b | 182 | |
190f5bb6 TC |
183 | =item * |
184 | ||
185 | The PathTools module collection has been upgraded from 3.52 to 3.53. | |
186 | ||
187 | Don't turn leading C<//> into C</> on Cygwin. [perl #122635] | |
188 | ||
ba31029d TR |
189 | =item * |
190 | ||
191 | L<Locale::Maketext> has been upgraded from version 1.25 to 1.26. | |
192 | ||
4c7a0d98 DD |
193 | =item * |
194 | ||
195 | L<XSLoader> has been upgraded from version 0.19 to 0.20 | |
196 | ||
197 | Don't test twice for bootstrap file. | |
198 | ||
4dc623f0 | 199 | =back |
f4eedc6b | 200 | |
4dc623f0 | 201 | =head2 Removed Modules and Pragmata |
f4eedc6b | 202 | |
4dc623f0 | 203 | =over 4 |
f348c3d8 | 204 | |
6ed80d55 CBW |
205 | =item * |
206 | ||
4dc623f0 | 207 | XXX |
f348c3d8 | 208 | |
4dc623f0 | 209 | =back |
f348c3d8 | 210 | |
4dc623f0 | 211 | =head1 Documentation |
f348c3d8 | 212 | |
4dc623f0 CBW |
213 | XXX Changes to files in F<pod/> go here. Consider grouping entries by |
214 | file and be sure to link to the appropriate page, e.g. L<perlfunc>. | |
f348c3d8 | 215 | |
4dc623f0 | 216 | =head2 New Documentation |
f348c3d8 | 217 | |
4dc623f0 | 218 | XXX Changes which create B<new> files in F<pod/> go here. |
f348c3d8 | 219 | |
4dc623f0 | 220 | =head3 L<XXX> |
6ed80d55 | 221 | |
4dc623f0 | 222 | XXX Description of the purpose of the new file here |
f348c3d8 | 223 | |
6ed80d55 | 224 | =head2 Changes to Existing Documentation |
f348c3d8 | 225 | |
4dc623f0 CBW |
226 | XXX Changes which significantly change existing files in F<pod/> go here. |
227 | However, any changes to F<pod/perldiag.pod> should go in the L</Diagnostics> | |
228 | section. | |
229 | ||
230 | =head3 L<XXX> | |
84d03adf | 231 | |
86372193 | 232 | =over 4 |
ff433f2d | 233 | |
4cd408ba TC |
234 | =item * |
235 | ||
4dc623f0 | 236 | XXX Description of the change here |
f348c3d8 | 237 | |
86372193 | 238 | =back |
f348c3d8 | 239 | |
6ed80d55 CBW |
240 | =head1 Diagnostics |
241 | ||
242 | The following additions or changes have been made to diagnostic output, | |
243 | including warnings and fatal error messages. For the complete list of | |
244 | diagnostic messages, see L<perldiag>. | |
245 | ||
4dc623f0 CBW |
246 | XXX New or changed warnings emitted by the core's C<C> code go here. Also |
247 | include any changes in L<perldiag> that reconcile it to the C<C> code. | |
6ed80d55 | 248 | |
4dc623f0 | 249 | =head2 New Diagnostics |
f348c3d8 | 250 | |
4dc623f0 CBW |
251 | XXX Newly added diagnostic messages go under here, separated into New Errors |
252 | and New Warnings | |
ab0b796c | 253 | |
4dc623f0 | 254 | =head3 New Errors |
8c6180a9 KW |
255 | |
256 | =over 4 | |
257 | ||
258 | =item * | |
259 | ||
4dc623f0 | 260 | XXX L<message|perldiag/"message"> |
ab0b796c | 261 | |
86372193 | 262 | =back |
0561e60b | 263 | |
4dc623f0 | 264 | =head3 New Warnings |
dd200dff | 265 | |
4dc623f0 | 266 | =over 4 |
dd200dff | 267 | |
73e793fc FC |
268 | =item * |
269 | ||
4dc623f0 | 270 | XXX L<message|perldiag/"message"> |
73e793fc | 271 | |
8c6180a9 KW |
272 | =back |
273 | ||
86372193 | 274 | =head2 Changes to Existing Diagnostics |
0561e60b | 275 | |
4dc623f0 | 276 | XXX Changes (i.e. rewording) of diagnostic messages go here |
4a328228 | 277 | |
4dc623f0 | 278 | =over 4 |
4cd408ba | 279 | |
1861205d FC |
280 | =item * |
281 | ||
4dc623f0 | 282 | XXX Describe change here |
1861205d | 283 | |
86372193 | 284 | =back |
40a81b59 | 285 | |
4dc623f0 | 286 | =head1 Utility Changes |
2a395b86 | 287 | |
4dc623f0 CBW |
288 | XXX Changes to installed programs such as F<perlbug> and F<xsubpp> go here. |
289 | Most of these are built within the directory F<utils>. | |
2a395b86 | 290 | |
4dc623f0 CBW |
291 | [ List utility changes as a =head2 entry for each utility and =item |
292 | entries for each change | |
293 | Use L<XXX> with program names to get proper documentation linking. ] | |
12d22d1f | 294 | |
4dc623f0 | 295 | =head2 L<XXX> |
2a395b86 | 296 | |
8c8d6154 | 297 | =over 4 |
2a395b86 PM |
298 | |
299 | =item * | |
300 | ||
4dc623f0 | 301 | XXX |
bb8c7e27 | 302 | |
86372193 | 303 | =back |
bb8c7e27 | 304 | |
4dc623f0 | 305 | =head1 Configuration and Compilation |
bb8c7e27 | 306 | |
4dc623f0 CBW |
307 | XXX Changes to F<Configure>, F<installperl>, F<installman>, and analogous tools |
308 | go here. Any other changes to the Perl build process should be listed here. | |
309 | However, any platform-specific changes should be listed in the | |
310 | L</Platform Support> section, instead. | |
aa292ef2 | 311 | |
4dc623f0 | 312 | [ List changes as a =item entry ]. |
83b69bfd DD |
313 | |
314 | =over 4 | |
315 | ||
316 | =item * | |
317 | ||
4dc623f0 | 318 | XXX |
13adb056 | 319 | |
83b69bfd DD |
320 | =back |
321 | ||
4dc623f0 | 322 | =head1 Testing |
391823f2 | 323 | |
4dc623f0 CBW |
324 | XXX Any significant changes to the testing of a freshly built perl should be |
325 | listed here. Changes which create B<new> files in F<t/> go here as do any | |
326 | large changes to the testing harness (e.g. when parallel testing was added). | |
327 | Changes to existing files in F<t/> aren't worth summarizing, although the bugs | |
328 | that they represent may be covered elsewhere. | |
6ff8f256 | 329 | |
4dc623f0 | 330 | [ List each test improvement as a =item entry ] |
80cc3290 | 331 | |
86372193 | 332 | =over 4 |
db98db4e | 333 | |
8818afe8 TC |
334 | =item * |
335 | ||
4dc623f0 | 336 | XXX |
9d22ccf6 | 337 | |
4dc623f0 | 338 | =back |
480961b6 | 339 | |
4dc623f0 | 340 | =head1 Platform Support |
480961b6 | 341 | |
4dc623f0 | 342 | XXX Any changes to platform support should be listed in the sections below. |
94c9bf90 | 343 | |
4dc623f0 CBW |
344 | [ Within the sections, list each platform as a =item entry with specific |
345 | changes as paragraphs below it. ] | |
94c9bf90 | 346 | |
4dc623f0 | 347 | =head2 New Platforms |
8af808bf | 348 | |
4dc623f0 CBW |
349 | XXX List any platforms that this version of perl compiles on, that previous |
350 | versions did not. These will either be enabled by new files in the F<hints/> | |
351 | directories, or new subdirectories and F<README> files at the top level of the | |
352 | source tree. | |
8af808bf | 353 | |
4dc623f0 | 354 | =over 4 |
fdcaecb7 | 355 | |
4dc623f0 | 356 | =item XXX-some-platform |
fdcaecb7 | 357 | |
4dc623f0 | 358 | XXX |
2af7c6b6 | 359 | |
4dc623f0 | 360 | =back |
2af7c6b6 | 361 | |
4dc623f0 | 362 | =head2 Discontinued Platforms |
c0b32823 | 363 | |
4dc623f0 | 364 | XXX List any platforms that this version of perl no longer compiles on. |
c0b32823 | 365 | |
4dc623f0 | 366 | =over 4 |
b1a4e8b3 | 367 | |
4dc623f0 | 368 | =item XXX-some-platform |
b1a4e8b3 | 369 | |
4dc623f0 | 370 | XXX |
9e26817d | 371 | |
4dc623f0 | 372 | =back |
9e26817d | 373 | |
4dc623f0 | 374 | =head2 Platform-Specific Notes |
70cee83f | 375 | |
312159d9 | 376 | =head3 Win32 |
70cee83f | 377 | |
312159d9 | 378 | =over |
e5fbfbc1 | 379 | |
312159d9 | 380 | =item * |
e5fbfbc1 | 381 | |
312159d9 | 382 | Intel C builds are now always built with C99 mode on. |
353075a0 | 383 | |
4dc623f0 | 384 | =back |
353075a0 | 385 | |
4dc623f0 | 386 | =head1 Internal Changes |
9f122eef | 387 | |
4dc623f0 CBW |
388 | XXX Changes which affect the interface available to C<XS> code go here. Other |
389 | significant internal changes for future core maintainers should be noted as | |
390 | well. | |
9f122eef | 391 | |
4dc623f0 | 392 | [ List each change as a =item entry ] |
9f122eef | 393 | |
4dc623f0 | 394 | =over 4 |
9f122eef FC |
395 | |
396 | =item * | |
397 | ||
4dc623f0 | 398 | XXX |
c7f058f0 | 399 | |
4dc623f0 | 400 | =back |
c7f058f0 | 401 | |
4dc623f0 | 402 | =head1 Selected Bug Fixes |
0ef4323a | 403 | |
4dc623f0 CBW |
404 | XXX Important bug fixes in the core language are summarized here. Bug fixes in |
405 | files in F<ext/> and F<lib/> are best summarized in L</Modules and Pragmata>. | |
0ef4323a | 406 | |
4dc623f0 | 407 | [ List each fix as a =item entry ] |
c263379c | 408 | |
4dc623f0 | 409 | =over 4 |
c263379c | 410 | |
ff90be78 TC |
411 | =item * |
412 | ||
452466a5 FC |
413 | On Win32, restoring in a child pseudo-process a variable that was |
414 | C<local()>ed in a parent pseudo-process before the C<fork> happened caused | |
415 | memory corruption and a crash in the child pseudo-process (and therefore OS | |
416 | process). | |
ff90be78 | 417 | |
3e669301 KW |
418 | =item * |
419 | ||
279aef25 TC |
420 | Calling C<write> on a format with a C<^**> field could produce a panic |
421 | in sv_chop() if there were insufficient arguments or if the variable | |
422 | used to fill the field was empty. [perl #123245] | |
423 | ||
00ba25b8 FC |
424 | =item * |
425 | ||
426 | Non-ASCII lexical sub names (use in error messages) on longer have extra | |
427 | junk on the end. | |
428 | ||
567291b6 FC |
429 | =item * |
430 | ||
431 | The C<\@> subroutine prototype no longer flattens parenthesized arrays | |
432 | (taking a reference to each element), but takes a reference to the array | |
433 | itself. [perl #47363] | |
434 | ||
fcfb7b86 FC |
435 | =item * |
436 | ||
437 | A block containing nothing except a C-style C<for> loop could corrupt the | |
438 | stack, causing lists outside the block to lose elements or have elements | |
439 | overwritten. This could happen with C<map { for(...){...} } ...> and with | |
440 | lists containing C<do { for(...){...} }>. [perl #123286] | |
441 | ||
8bb83ec2 FC |
442 | =item * |
443 | ||
444 | C<scalar()> now propagates lvalue context, so that | |
445 | C<for(scalar($#foo)) { ... }> can modify C<$#foo> through C<$_>. | |
446 | ||
86372193 | 447 | =back |
bb8c7e27 | 448 | |
86372193 | 449 | =head1 Known Problems |
bb8c7e27 | 450 | |
4dc623f0 CBW |
451 | XXX Descriptions of platform agnostic bugs we know we can't fix go here. Any |
452 | tests that had to be C<TODO>ed for the release would be noted here. Unfixed | |
453 | platform specific bugs also go here. | |
28a42920 | 454 | |
4dc623f0 | 455 | [ List each fix as a =item entry ] |
28a42920 | 456 | |
6ed80d55 CBW |
457 | =over 4 |
458 | ||
459 | =item * | |
460 | ||
4dc623f0 | 461 | XXX |
6ed80d55 CBW |
462 | |
463 | =back | |
464 | ||
86372193 | 465 | =head1 Errata From Previous Releases |
28a42920 | 466 | |
86372193 | 467 | =over 4 |
28a42920 A |
468 | |
469 | =item * | |
470 | ||
4dc623f0 CBW |
471 | XXX Add anything here that we forgot to add, or were mistaken about, in |
472 | the perldelta of a previous release. | |
f5630681 | 473 | |
8c8d6154 | 474 | =back |
3a085d00 | 475 | |
4dc623f0 | 476 | =head1 Obituary |
01d42a22 | 477 | |
4dc623f0 CBW |
478 | XXX If any significant core contributor has died, we've added a short obituary |
479 | here. | |
6ed80d55 | 480 | |
4dc623f0 | 481 | =head1 Acknowledgements |
01d42a22 | 482 | |
4dc623f0 | 483 | XXX Generate this with: |
01d42a22 | 484 | |
4dc623f0 | 485 | perl Porting/acknowledgements.pl v5.21.6..HEAD |
f5b73711 | 486 | |
44691e6f AB |
487 | =head1 Reporting Bugs |
488 | ||
e08634c5 SH |
489 | If you find what you think is a bug, you might check the articles recently |
490 | posted to the comp.lang.perl.misc newsgroup and the perl bug database at | |
238894db | 491 | https://rt.perl.org/ . There may also be information at |
7ef8b31d | 492 | http://www.perl.org/ , the Perl Home Page. |
44691e6f | 493 | |
e08634c5 SH |
494 | If you believe you have an unreported bug, please run the L<perlbug> program |
495 | included with your release. Be sure to trim your bug down to a tiny but | |
496 | sufficient test case. Your bug report, along with the output of C<perl -V>, | |
497 | will be sent off to perlbug@perl.org to be analysed by the Perl porting team. | |
44691e6f AB |
498 | |
499 | If the bug you are reporting has security implications, which make it | |
e08634c5 SH |
500 | inappropriate to send to a publicly archived mailing list, then please send it |
501 | to perl5-security-report@perl.org. This points to a closed subscription | |
502 | unarchived mailing list, which includes all the core committers, who will be | |
503 | able to help assess the impact of issues, figure out a resolution, and help | |
f9001595 | 504 | co-ordinate the release of patches to mitigate or fix the problem across all |
e08634c5 SH |
505 | platforms on which Perl is supported. Please only use this address for |
506 | security issues in the Perl core, not for modules independently distributed on | |
507 | CPAN. | |
44691e6f AB |
508 | |
509 | =head1 SEE ALSO | |
510 | ||
e08634c5 SH |
511 | The F<Changes> file for an explanation of how to view exhaustive details on |
512 | what changed. | |
44691e6f AB |
513 | |
514 | The F<INSTALL> file for how to build Perl. | |
515 | ||
516 | The F<README> file for general stuff. | |
517 | ||
518 | The F<Artistic> and F<Copying> files for copyright information. | |
519 | ||
520 | =cut |