$ perl my $gotit = eval q{ $do_i_got_strict_r975539 = 1; } ; my $err = $@; $gotit and warn q{I dont got strict vars}; not($gotit) and $err and warn q{I do got strict vars}; __END__ I dont got strict vars at - line 3. $ perl use strict; my $gotit = eval q{ $do_i_got_strict_r975539 = 1; } ; my $err = $@; $gotit and warn q{I dont got strict vars}; not($gotit) and $err and warn q{I do got strict vars}; __END__ I do got strict vars at - line 5.
In reply to Re: Is there a way to determine if use strict; is in effect?
by Anonymous Monk
in thread Is there a way to determine if use strict; is in effect?
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |