This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/parse_version: Call fcn to not duplicate logic
authorKarl Williamson <khw@cpan.org>
Thu, 18 Jul 2019 20:42:22 +0000 (14:42 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:30 +0000 (16:39 -0600)
Change to avoid redundant code; add comment

(cherry picked from commit b02f52889c1a5d1d79cb91fd545ce9f6c454c963)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/inctools

index 51e368a..dd178fd 100644 (file)
@@ -3,21 +3,13 @@
 
 sub format_version
 {
-  my $ver = shift;
+  # Given an input version that is acceptable to parse_version(), return a
+  # string of the standard representation of it.
 
-  $ver =~ s/$/000000/;
-  my($r,$v,$s) = $ver =~ /(\d+)\.(\d{3})(\d{3})/;
-
-  $v = int $v;
-  $s = int $s;
+  my($r,$v,$s) = parse_version(shift);
 
   if ($r < 5 || ($r == 5 && $v < 6)) {
-    if ($s % 10) {
-      die "invalid version '$ver'\n";
-    }
-    $s /= 10;
-
-    $ver = sprintf "%d.%03d", $r, $v;
+    my $ver = sprintf "%d.%03d", $r, $v;
     $s > 0 and $ver .= sprintf "_%02d", $s;
 
     return $ver;