This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/inctools: Add fcn to return integer version
[perl5.git] / dist / Devel-PPPort / parts / inc / inctools
index 653886b..7ac26bd 100644 (file)
@@ -51,7 +51,12 @@ sub parse_version
   die "Invalid version number format: '$ver'$mesg\n";
 }
 
   die "Invalid version number format: '$ver'$mesg\n";
 }
 
+sub int_parse_version
+{
+    # Returns integer 7 digit human-readable version, suitable for use in file
+    # names in parts/todo parts/base.
 
 
+    return 0 + join "", map { sprintf("%03d", $_) } parse_version(shift);
 
 }
 
 
 }