From e3c062a167c810b627816ab101b22a5f331524aa Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 24 Jan 2015 23:23:28 +0100 Subject: [PATCH] perl: complete v5.6 features --- perl.inc.pl | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/perl.inc.pl b/perl.inc.pl index 85ec1d8..1ca3b4d 100644 --- a/perl.inc.pl +++ b/perl.inc.pl @@ -3,13 +3,20 @@ use utf8; +{ v5.6 => { new => [ - ['use warnings'], - ['use utf8'], - ['\N{named character}'], - ['our'], - ['v1.2.3'], - ['sub :locked :method'], - ['open $fh, $mode, $expr'], + ['use warnings', 'pragma to enable warnings in lexical scope'], + ['use utf8', 'experimental unicode semantics (completed in v5.8)'], + ['use charnames', 'string escape \N{} to insert named character'], + ['our', 'declare global variables'], + ['v1.2.3', q`represent strings as vector of ordinals, useful in version numbers (printf '%vd' to display)`], + ['0b0', q`binary numbers in literals, printf '%b', and oct`], + ['sub :lvalue', 'subroutine attribute to return a modifiable value'], +# ['sub :locked :method', 'syntax to declare subroutine attributes'], # can be inferred from :lvalue support + ['open my $fh, $mode, $expr', 'file handles in scoped scalars, third argument for unambiguous file name'], + [q`pack 'q'`, '64-bit integer support (also large files >2GiB)'], + ['sort $coderef ()', 'comparison function can be a subroutine reference; prototype ($$) to pass elements as normal @_'], + ['CHECK {}', 'special block called at end of compilation'], + ['/[[:…:]]/', 'POSIX character class syntax such as [[:alpha:]]/'], + # quite a lot more, but leave it at this ], release => '2000-03-23', distro => { @@ -22,7 +29,7 @@ use utf8; v5.8 => { new => [ - [q`no utf8; $unicode`, 'unicode overhaul: additional /\p{}/ properties'], + [q`no utf8`, 'full unicode support, utf8 pragma only for script encoding'], [q`binmode $fh, ':perlio'`, 'file handle behaviour altered by PerlIO layers'], [q`open $fh, '-|', @cmd`, 'open list to fork a command without spawning a shell'], [q`open $fh, '>', \$var`, 'perl scalars as virtual files'], -- 2.30.0