X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstrictures.pm;h=64b927d02b3f0d7b73e87adceba308afc66a6166;hb=be9a89ec6388e7de9747ef2118a989156587f79b;hp=5e12c82531affeb906a65d10f9a023a66e5b8a53;hpb=e12af862ff034c1757248c0faf517ad2a917e5c9;p=p5sagit%2Fstrictures.git

diff --git a/lib/strictures.pm b/lib/strictures.pm
index 5e12c82..64b927d 100644
--- a/lib/strictures.pm
+++ b/lib/strictures.pm
@@ -11,7 +11,7 @@ BEGIN {
 }
 
 our $VERSION = '2.000005';
-$VERSION = eval $VERSION;
+$VERSION =~ tr/_//d;
 
 our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
   closure
@@ -19,6 +19,7 @@ our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
   deprecated
   exiting
   experimental
+    experimental::alpha_assertions
     experimental::autoderef
     experimental::bitwise
     experimental::const_attr
@@ -26,9 +27,11 @@ our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
     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::win32_perlio
@@ -59,6 +62,7 @@ our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
     inplace
     internal
     malloc
+  shadow
   signal
   substr
   syntax
@@ -247,7 +251,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