Sync versions of Module-CoreList and Exporter in Maintainers.pl

[perl5.git] / Porting / perlhist_calculate.pl

diff --git a/Porting/perlhist_calculate.pl b/Porting/perlhist_calculate.pl
index 2bb3104..47a0d4d 100755 (executable)
--- a/Porting/perlhist_calculate.pl
+++ b/Porting/perlhist_calculate.pl
@@ -9,6 +9,12 @@ use File::Find;
 use warnings;
 use strict;
 
+sub emit {
+  my $H = '%-9s:';
+  my $D = '%6d';
+  printf "$H $D $D\n", @_;
+}
+
 sub calc_core {
 
        my @core;
@@ -24,7 +30,7 @@ sub calc_core {
        my $corenumber = scalar @core;
        $coresize = int $coresize;
 
-       say "core: $coresize $corenumber";
+  return $coresize, $corenumber;
 }
 
 sub calc_lib {
@@ -40,7 +46,7 @@ sub calc_lib {
        find(\&wanted_lib, 'lib');
        $libsize = int $libsize;
 
-       say "lib: $libsize $libnumber";
+  return $libsize, $libnumber;
 }
 
 sub calc_ext {
@@ -61,7 +67,7 @@ sub calc_ext {
 
        $extsize = int $extsize;
 
-       say "ext: $extsize $extnumber";
+  return $extsize, $extnumber;
 }
 
 sub calc_t {
@@ -78,7 +84,7 @@ sub calc_t {
 
        $tsize = int $tsize;
 
-       say "t: $tsize $tnumber";
+  return $tsize, $tnumber;
 }
 
 sub calc_doc {
@@ -105,7 +111,7 @@ sub calc_doc {
 
        $docsize = int $docsize;
 
-       say "doc: $docsize $docnumber";
+  return $docsize, $docnumber;
 }
 
 sub calc_dir {
@@ -125,13 +131,13 @@ sub calc_dir {
 
        $dirsize = int $dirsize;
 
-       say "$dir: $dirsize $dirnumber";
+  emit $dir => $dirsize, $dirnumber;
 }
 
 
 sub calc_longtable {
 
-       print "\n\nTable\n";
+       print "\n\nTable:\n";
 
        foreach my $dir (qw(beos)) {
                calc_dir($dir);
@@ -139,9 +145,9 @@ sub calc_longtable {
 
        my $configure_size = int ((-s 'Configure') / 1000);
 
-       say "Configure: $configure_size 1";
+       emit Configure => $configure_size, 1;
 
-       foreach my $dir (qw(Cross djgpp emacs epoc h2pl hints mad mint mpeix NetWare os2 plan9 Porting qnx symbian utils vmesa vms vos win32 x2p)) {
+       foreach my $dir (qw(Cross djgpp emacs epoc h2pl hints mad NetWare os2 plan9 Porting qnx symbian utils vms vos win32 x2p)) {
                calc_dir($dir);
        }
 }
@@ -149,11 +155,15 @@ sub calc_longtable {
 say "Selected release sizes for perl tarball:";
 print "\n";
 
-calc_core();
-calc_lib();
-calc_ext();
-calc_t();
-calc_doc();
+ #5.16.0         5562 109   1077  80  20504 2702   8750 2375   4815 152
+
+sub calc_line {
+  printf " %-12s %6s %3s %6s %3s %6s %4s %6s %4s %6s %3s\n",
+    '5.xx.0', calc_core(), calc_lib(), calc_ext(), calc_t(), calc_doc();
+}
+
+calc_line();
+
 calc_longtable();
 
 exit;