From: Jesse Vincent Date: Sun, 14 Mar 2010 20:30:30 +0000 (+0000) Subject: feature.pm needed to be taught about "use feature ':5.12'" X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b7569deb825abe0814411c06d6990b49bb917a6d;p=p5sagit%2Fp5-mst-13.2.git feature.pm needed to be taught about "use feature ':5.12'" --- diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 676ef66..e1418e4 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -14003,7 +14003,7 @@ for my $version ( sort { $a <=> $b } keys %released ) { 'diagnostics' => '1.19', 'encoding' => '2.6_01', 'encoding::warnings' => '0.11', - 'feature' => '1.15', + 'feature' => '1.16', 'fields' => '2.15', 'filetest' => '1.02', 'if' => '0.05', diff --git a/lib/feature.pm b/lib/feature.pm index 103e3bb..1517c1f 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -1,6 +1,6 @@ package feature; -our $VERSION = '1.15'; +our $VERSION = '1.16'; # (feature name) => (internal name, used in %^H) my %feature = ( @@ -20,6 +20,7 @@ our $hint_uni8bit = 0x00000800; my %feature_bundle = ( "5.10" => [qw(switch say state)], "5.11" => [qw(switch say state unicode_strings)], + "5.12" => [qw(switch say state unicode_strings)], ); # special case diff --git a/pod/perl5120delta.pod b/pod/perl5120delta.pod index 1d2e2ee..2088d72 100644 --- a/pod/perl5120delta.pod +++ b/pod/perl5120delta.pod @@ -862,7 +862,7 @@ This pragma turns on Unicode semantics for the case-changing operations internal UTF-8 flag set, but that contain single-byte characters between 128 and 255. -Upgraded from version 1.11 to 1.15. +Upgraded from version 1.11 to 1.16. =item C