From: Graham Knop Date: Thu, 15 Feb 2018 09:25:48 +0000 (+0100) Subject: simpler underscore stripping on $VERSION X-Git-Tag: v1.001_001~10 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7808c8eedd9d28b768424d6143228dfa62d1b21;p=p5sagit%2FClass-C3-Componentised.git simpler underscore stripping on $VERSION --- diff --git a/lib/Class/C3/Componentised.pm b/lib/Class/C3/Componentised.pm index 3a241ed..d7b436e 100644 --- a/lib/Class/C3/Componentised.pm +++ b/lib/Class/C3/Componentised.pm @@ -47,8 +47,7 @@ use Carp (); use List::Util (); our $VERSION = '1.001000'; - -$VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases +$VERSION =~ tr/_//d; my $invalid_class = qr/(?: \b:\b | \:{3,} | \:\:$ )/x;