2 # Generates info for perlhist from this perl tree
3 # run this from the root of a perl tree
15 push @core, glob '*.h';
16 push @core, glob '*.c';
17 push @core, glob '*.y';
20 foreach my $corefile (@core) {
21 $coresize += (-s $corefile) / 1000;
24 my $corenumber = scalar @core;
25 $coresize = int $coresize;
27 say "core: $coresize $corenumber";
35 $File::Find::name =~ /[.] (?:pm|pl)\z/msx or return;
36 $libsize += (-s $_) / 1000;
40 find(\&wanted_lib, 'lib');
41 $libsize = int $libsize;
43 say "lib: $libsize $libnumber";
51 $File::Find::name =~ /[.] (?:h|c|y|t|xs|pm)\z/msx or return;
52 $extsize += (-s $_) / 1000;
57 find(\&wanted_ext, 'ext', 'dist', 'cpan');
59 find(\&wanted_ext, 'ext');
62 $extsize = int $extsize;
64 say "ext: $extsize $extnumber";
72 $File::Find::name =~ /[.] t\z/msx or return;
73 $tsize += (-s $_) / 1000;
77 find(\&wanted_t, '.');
81 say "t: $tsize $tnumber";
89 push @doc, glob 'README.*';
92 foreach my $docfile (@doc) {
93 $docsize += (-s $docfile) / 1000;
96 our $docnumber = scalar @doc;
99 $File::Find::name =~ /[.] pod\z/msx or return;
100 $docsize += (-s $_) / 1000;
104 find(\&wanted_doc, 'pod');
106 $docsize = int $docsize;
108 say "doc: $docsize $docnumber";
120 $dirsize += (-s $_) / 1000;
124 find(\&wanted_dir, $dir);
126 $dirsize = int $dirsize;
128 say "$dir: $dirsize $dirnumber";
136 foreach my $dir (qw(beos)) {
140 my $configure_size = int ((-s 'Configure') / 1000);
142 say "Configure: $configure_size 1";
144 foreach my $dir (qw(Cross djgpp emacs epoc h2pl hints mad mint mpeix NetWare os2 plan9 Porting qnx symbian utils uts vmesa vms vos win32 x2p)) {
149 say "Selected release sizes for perl tarball:";