parts/inc/inctools: Add function to format version

This takes a version number and creates a floating point version with
exactly 7 digits with a decimal point after the 5.  This is used as the
first line in files in parts/todo,base, as well as in the data in
ppport.h.

(cherry picked from commit fad2103a9a2c28ff439b9b7c851a9e09194e91a6)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/parts/inc/inctools b/dist/Devel-PPPort/parts/inc/inctools
index c78246f..528cdda 100644 (file)
--- a/dist/Devel-PPPort/parts/inc/inctools
+++ b/dist/Devel-PPPort/parts/inc/inctools
@@ -57,7 +57,15 @@ sub int_parse_version
     # names in parts/todo parts/base.
 
     return 0 + join "", map { sprintf("%03d", $_) } parse_version(shift);
+}
+
+sub format_version_line
+{
+    # Returns a floating point representation of the input version
 
+    my $version = int_parse_version(shift);
+    $version =~ s/^5\B/5./;
+    return $version;
 }
 
 sub dictionary_order($$)    # Sort caselessly, ignoring punct