X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstrict.pm;h=8afb9a37921c13127577a5cd8e129517b58bc46d;hb=92dffb52e8549d6a194db47a2e5b989b8338a19a;hp=d35c6c105c1be3d22701af0f463bbd8f4a0c8036;hpb=f06db76b9e41859439aeadb79feb6c603ee741ff;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/strict.pm b/lib/strict.pm index d35c6c1..8afb9a3 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -34,11 +34,22 @@ use symbolic references (see L). print $$ref; # ok $ref = "foo"; print $$ref; # runtime error; normally ok + $file = "STDOUT"; + print $file "Hi!"; # error; note: no comma after $file + +There is one exception to this rule: + + $bar = \&{'foo'}; + &$bar; + +is allowed so that C would not break under stricture. + =item C This generates a compile-time error if you access a variable that wasn't -localized via C or wasn't fully qualified. Because this is to avoid +declared via "our" or C, +localized via C, or wasn't fully qualified. Because this is to avoid variable suicide problems and subtle dynamic scoping issues, a merely local() variable isn't good enough. See L and L. @@ -48,33 +59,48 @@ L. my $foo = 10; # ok, my() var local $foo = 9; # blows up + package Cinna; + our $bar; # Declares $bar in current package + $bar = 'HgS'; # ok, global declared via pragma + The local() generated a compile-time error because you just touched a global name without fully qualifying it. +Because of their special use by sort(), the variables $a and $b are +exempted from this check. + =item C -This disables the poetry optimization, -generating a compile-time error if you -try to use a bareword identifier that's not a subroutine. +This disables the poetry optimization, generating a compile-time error if +you try to use a bareword identifier that's not a subroutine, unless it +appears in curly braces or on the left hand side of the "=E" symbol. + use strict 'subs'; $SIG{PIPE} = Plumber; # blows up - $SIG{"PIPE"} = "Plumber"; # just fine + $SIG{PIPE} = "Plumber"; # just fine: bareword in curlies always ok + $SIG{PIPE} = \&Plumber; # preferred form + + =back -See L. +See L. =cut +$strict::VERSION = "1.01"; + +my %bitmask = ( +refs => 0x00000002, +subs => 0x00000200, +vars => 0x00000400 +); + sub bits { my $bits = 0; - foreach $sememe (@_) { - $bits |= 0x00000002 if $sememe eq 'refs'; - $bits |= 0x00000200 if $sememe eq 'subs'; - $bits |= 0x00000400 if $sememe eq 'vars'; - } + foreach my $s (@_){ $bits |= $bitmask{$s} || 0; }; $bits; }