X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstrictures.pm;h=ee1c425b1ce82794076bd10f025013bee6f34bbb;hb=7a0f21031d65b624e3dff236c619340d9c535775;hp=79ffcc011465b815308f40b07c3aac5a0e71063b;hpb=da50db3f44b8220b3184875b17104e565b42cd3d;p=p5sagit%2Fstrictures.git

diff --git a/lib/strictures.pm b/lib/strictures.pm
index 79ffcc0..ee1c425 100644
--- a/lib/strictures.pm
+++ b/lib/strictures.pm
@@ -4,14 +4,14 @@ 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.000001';
-$VERSION = eval $VERSION;
+our $VERSION = '2.000005';
+$VERSION =~ tr/_//d;
 
 our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
   closure
@@ -19,15 +19,18 @@ our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
   deprecated
   exiting
   experimental
+    experimental::alpha_assertions
     experimental::autoderef
     experimental::bitwise
     experimental::const_attr
+    experimental::declared_refs
     experimental::lexical_subs
     experimental::lexical_topic
     experimental::postderef
     experimental::re_strict
     experimental::refaliasing
     experimental::regex_sets
+    experimental::script_run
     experimental::signatures
     experimental::smartmatch
     experimental::win32_perlio
@@ -58,6 +61,7 @@ our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
     inplace
     internal
     malloc
+  shadow
   signal
   substr
   syntax