X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstrictures.pm;h=1b68b9ee63c2cc4df4afe1b0b8c0c1c15593b4ff;hb=HEAD;hp=699a1e9084da030de9c148a67fe11e758926fbaa;hpb=cc71ab2adc9ce111ca10a92f79c7252ee28dc7a6;p=p5sagit%2Fstrictures.git

diff --git a/lib/strictures.pm b/lib/strictures.pm
index 699a1e9..1b68b9e 100644
--- a/lib/strictures.pm
+++ b/lib/strictures.pm
@@ -4,32 +4,55 @@ use strict;
 use warnings FATAL => 'all';
 
 BEGIN {
-  *_PERL_LT_5_8_4 = ($] < 5.008004) ? sub(){1} : sub(){0};
+  *_PERL_LT_5_8_4 = ("$]" < 5.008004) ? sub(){1} : sub(){0};
   # goto &UNIVERSAL::VERSION usually works on 5.8, but fails on some ARM
   # machines.  Seems to always work on 5.10 though.
-  *_CAN_GOTO_VERSION = ($] >= 5.010000) ? sub(){1} : sub(){0};
+  *_CAN_GOTO_VERSION = ("$]" >= 5.010000) ? sub(){1} : sub(){0};
 }
 
-our $VERSION = '2.000003';
-$VERSION = eval $VERSION;
+our $VERSION = '2.000006';
+$VERSION =~ tr/_//d;
 
 our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
   closure
   chmod
   deprecated
+    deprecated::apostrophe_as_package_separator
+    deprecated::delimiter_will_be_paired
+    deprecated::dot_in_inc
+    deprecated::goto_construct
+    deprecated::missing_import_called_with_args
+    deprecated::smartmatch
+    deprecated::subsequent_use_version
+    deprecated::unicode_property_name
+    deprecated::version_downgrade
   exiting
   experimental
+    experimental::alpha_assertions
+    experimental::args_array_with_signatures
     experimental::autoderef
     experimental::bitwise
+    experimental::builtin
+    experimental::class
     experimental::const_attr
+    experimental::declared_refs
+    experimental::defer
+    experimental::extra_paired_delimiters
+    experimental::for_list
+    experimental::isa
     experimental::lexical_subs
     experimental::lexical_topic
     experimental::postderef
+    experimental::private_use
     experimental::re_strict
     experimental::refaliasing
     experimental::regex_sets
+    experimental::script_run
     experimental::signatures
     experimental::smartmatch
+    experimental::try
+    experimental::uniprop_wildcards
+    experimental::vlb
     experimental::win32_perlio
   glob
   imprecision
@@ -53,11 +76,13 @@ our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
   redefine
   redundant
   regexp
+  scalar
   severe
     debugging
     inplace
     internal
     malloc
+  shadow
   signal
   substr
   syntax
@@ -246,7 +271,7 @@ EOE
 __END__
 =head1 NAME
 
-strictures - turn on strict and make most warnings fatal
+strictures - Turn on strict and make most warnings fatal
 
 =head1 SYNOPSIS