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.000002';
-$VERSION = eval $VERSION;
+our $VERSION = '2.000005';
+$VERSION =~ tr/_//d;
our @WARNING_CATEGORIES = grep { exists $warnings::Offsets{$_} } qw(
closure
experimental::autoderef
experimental::bitwise
experimental::const_attr
+ experimental::declared_refs
experimental::lexical_subs
experimental::lexical_topic
experimental::postderef