use tr instead of eval on $VERSION

[p5sagit/strictures.git] / lib / strictures.pm

diff --git a/lib/strictures.pm b/lib/strictures.pm
index 5e12c82..2318aae 100644 (file)
--- 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