fix 'undefined' warning

metacpan · Jun 6, 2016 · 6d28864 · 6d28864
1 parent af7850c
commit 6d28864
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/MetaCPAN/Util.pm b/lib/MetaCPAN/Util.pm
@@ -34,6 +34,7 @@ sub numify_version {
     if ( $version =~ s/^v//i || $version =~ tr/.// > 1 ) {
         my @parts = split /\./, $version;
         my $n = shift @parts;
+        return 0 unless defined $n;
         $version
             = sprintf( join( '.', '%s', ( '%03s' x @parts ) ), $n, @parts );
     }