X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstrict.pm;h=d14391add44341f239af567a7ca415ee53e7c861;hb=766639d92a75ec301f7ad35ba832e55266cf3ee6;hp=1a9a25904a8268f4aa97e3ac24597ba7b542fc0d;hpb=d66e832e9fab8b58efc050fa203ce5c595e586b3;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/strict.pm b/lib/strict.pm index 1a9a259..d14391a 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -115,7 +115,7 @@ on the left hand side of the C<< => >> symbol. use strict 'subs'; $SIG{PIPE} = Plumber; # blows up - $SIG{PIPE} = "Plumber"; # just fine: bareword in curlies always ok + $SIG{PIPE} = "Plumber"; # just fine: quoted string is always ok $SIG{PIPE} = \&Plumber; # preferred form =back @@ -124,8 +124,13 @@ See L. =head1 HISTORY -C, with perl 5.6.1, erroneously permitted to use an unquoted +C, with Perl 5.6.1, erroneously permitted to use an unquoted compound identifier (e.g. C) as a hash key (before C<< => >> or inside curlies), but without forcing it always to a literal string. +Starting with Perl 5.8.1 strict is strict about its restrictions: +if unknown restrictions are used, the strict pragma will abort with + + Unknown 'strict' tag(s) '...' + =cut