Tidy MetaCPAN::Util.

metacpan · Sep 24, 2014 · cfd63fc · cfd63fc
1 parent bf646f1
commit cfd63fc
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/MetaCPAN/Util.pm b/lib/MetaCPAN/Util.pm
@@ -19,10 +19,11 @@ sub numify_version {
     my $version = shift;
     $version = fix_version($version);
     $version =~ s/_//g;
-    if ($version =~ s/^v//i || $version =~ tr/.// > 1) {
+    if ( $version =~ s/^v//i || $version =~ tr/.// > 1 ) {
         my @parts = split /\./, $version;
         my $n = shift @parts;
-        $version = sprintf(join('.', '%s', ('%03s' x @parts)), $n, @parts);
+        $version
+            = sprintf( join( '.', '%s', ( '%03s' x @parts ) ), $n, @parts );
     }
     $version += 0;
     return $version;
@@ -31,14 +32,14 @@ sub numify_version {
 sub fix_version {
     my $version = shift;
     return 0 unless defined $version;
-    my $v = ($version =~ s/^v//i);
+    my $v = ( $version =~ s/^v//i );
     $version =~ s/[^\d\._].*//;
     $version =~ s/\.[._]+/./;
     $version =~ s/[._]*_[._]*/_/g;
     $version =~ s/\.{2,}/./g;
     $v ||= $version =~ tr/.// > 1;
     $version ||= 0;
-    return (($v ? 'v' : '') . $version);
+    return ( ( $v ? 'v' : '' ) . $version );
 }
 
 sub author_dir {