deprecated
exiting
experimental
+ experimental::autoderef
+ experimental::const_attr
experimental::lexical_subs
experimental::lexical_topic
+ experimental::postderef
+ experimental::re_strict
+ experimental::refaliasing
experimental::regex_sets
+ experimental::signatures
experimental::smartmatch
+ experimental::win32_perlio
glob
imprecision
io
layer
newline
pipe
+ syscalls
unopened
+ locale
misc
+ missing
numeric
once
overflow
portable
recursion
redefine
+ redundant
regexp
severe
debugging
nonchar
surrogate
void
+ void_unusual
y2k
);
}
}
-our @V2_NONFATAL = grep { exists $warnings::Offsets{$_} } qw(
- exec
- recursion
- internal
- malloc
- newline
- experimental
- deprecated
- portable
+our @V2_NONFATAL = grep { exists $warnings::Offsets{$_} } (
+ 'exec', # not safe to catch
+ 'recursion', # will be caught by other mechanisms
+ 'internal', # not safe to catch
+ 'malloc', # not safe to catch
+ 'newline', # stat on nonexistent file with a newline in it
+ 'experimental', # no reason for these to be fatal
+ 'deprecated', # unfortunately can't make these fatal
+ 'portable', # everything worked fine here, just may not elsewhere
);
-our @V2_DISABLE = grep { exists $warnings::Offsets{$_} } qw(
- once
+our @V2_DISABLE = grep { exists $warnings::Offsets{$_} } (
+ 'once' # triggers inconsistently, can't be fatalized
);
sub _enable_2 {
strict->import;
warnings->import;
warnings->import(FATAL => @WARNING_CATEGORIES);
- warnings->import(NONFATAL => @V2_NONFATAL);
+ warnings->unimport(FATAL => @V2_NONFATAL);
+ warnings->import(@V2_NONFATAL);
warnings->unimport(@V2_DISABLE);
if (_want_extra($opts->{file})) {
C<.git>, C<.svn>, or C<.hg> is present two directories up along with
C<dist.ini> (which would indicate we are in a C<dzil test> operation, via
L<Dist::Zilla>) -- or when the C<PERL_STRICTURES_EXTRA> environment variable is
-set, in which case
+set, in which case it also does the equivalent of
- use strictures 2;
-
-is equivalent to
-
- use strict;
- use warnings FATAL => 'all';
- use warnings NONFATAL => qw(
- exec
- recursion
- internal
- malloc
- newline
- experimental
- deprecated
- portable
- );
- no warnings 'once';
no indirect 'fatal';
no multidimensional;
no bareword::filehandles;