Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
GitUtils.pm	2.38 KB	-r--r--r--	2014-12-27 11:48
Glossary	205.51 KB	-r--r--r--	2014-12-27 11:49
Maintainers	194 B	-r--r--r--	2014-12-27 11:48
Maintainers.pl	45.95 KB	-r-xr-xr-x	2015-01-31 21:59
Maintainers.pm	8.68 KB	-r--r--r--	2014-12-27 11:48
README.pod	10.3 KB	-r--r--r--	2014-12-27 11:49
README.y2038	3.46 KB	-r--r--r--	2014-12-27 11:48
acknowledgements.pl	5.05 KB	-r--r--r--	2014-12-27 11:48
add-package.pl	17.12 KB	-r-xr-xr-x	2014-12-27 11:49
bisect-example.sh	1.25 KB	-r-xr-xr-x	2014-12-27 11:48
bisect-runner.pl	116.34 KB	-r-xr-xr-x	2014-12-27 11:49
bisect.pl	7.44 KB	-r-xr-xr-x	2014-12-27 11:49
bump-perl-version	9.93 KB	-r--r--r--	2014-12-27 11:49
check-cpan-pollution	6.24 KB	-r--r--r--	2014-12-27 11:48
check83.pl	2.22 KB	-r-xr-xr-x	2014-12-27 11:48
checkAUTHORS.pl	44.08 KB	-r-xr-xr-x	2014-12-27 11:49
checkURL.pl	15.01 KB	-r-xr-xr-x	2014-12-27 11:48
checkVERSION.pl	975 B	-r-xr-xr-x	2014-12-27 11:48
checkansi.pl	2 KB	-r-xr-xr-x	2014-12-27 11:48
checkcfgvar.pl	4.21 KB	-r-xr-xr-x	2014-12-27 11:49
checkpodencoding.pl	1.41 KB	-r-xr-xr-x	2014-12-27 11:48
cherrymaint	2.46 KB	-r--r--r--	2014-12-27 11:48
cmpVERSION.pl	6.84 KB	-r-xr-xr-x	2015-01-31 22:11
config.sh	36.38 KB	-r--r--r--	2015-01-28 21:08
config_H	142.35 KB	-r--r--r--	2015-01-28 21:08
config_h.pl	1.85 KB	-r-xr-xr-x	2014-12-27 11:48
core-cpan-diff	23.37 KB	-r--r--r--	2014-12-27 11:48
corecpan.pl	4.52 KB	-r-xr-xr-x	2014-12-27 11:48
corelist-diff	644 B	-r--r--r--	2014-12-27 11:48
corelist-perldelta.pl	30.44 KB	-r-xr-xr-x	2014-12-27 11:49
corelist.pl	15.51 KB	-r-xr-xr-x	2015-01-31 13:38
epigraphs.pod	128.86 KB	-r--r--r--	2015-02-01 03:54
exec-bit.txt	1.28 KB	-r--r--r--	2014-12-27 11:49
exercise_makedef.pl	2.27 KB	-r--r--r--	2014-12-27 11:48
expand-macro.pl	3.68 KB	-r-xr-xr-x	2014-12-27 11:48
findrfuncs	3.07 KB	-r-xr-xr-x	2014-12-27 11:48
git-deltatool	21.11 KB	-r--r--r--	2014-12-27 11:48
git-find-p4-change	905 B	-r--r--r--	2014-12-27 11:48
git-make-p4-refs	405 B	-r--r--r--	2014-12-27 11:48
how_to_write_a_perldelta.pod	7.83 KB	-r--r--r--	2014-12-27 11:48
leakfinder.pl	6.06 KB	-r--r--r--	2014-12-27 11:48
make-rmg-checklist	2.82 KB	-r--r--r--	2014-12-27 11:48
make_dot_patch.pl	1022 B	-r-xr-xr-x	2014-12-27 11:48
make_modlib_cpan.pl	1.93 KB	-r--r--r--	2014-12-27 11:48
make_snapshot.pl	2.33 KB	-r-xr-xr-x	2014-12-27 11:48
makemeta	3.29 KB	-r--r--r--	2014-12-27 11:49
makerel	6.88 KB	-r-xr-xr-x	2014-12-27 11:49
manicheck	644 B	-r--r--r--	2014-12-27 11:48
manisort	1.71 KB	-r--r--r--	2014-12-27 11:48
new-perldelta.pl	3.23 KB	-r--r--r--	2014-12-27 11:48
newtests-perldelta.pl	1.78 KB	-r-xr-xr-x	2014-12-27 11:48
perldelta_template.pod	9.35 KB	-r--r--r--	2015-01-28 21:08
perlhist_calculate.pl	2.65 KB	-r-xr-xr-x	2014-12-27 11:49
pod_lib.pl	17.62 KB	-r--r--r--	2014-12-27 11:49
pod_rules.pl	7.27 KB	-r--r--r--	2014-12-27 11:48
podtidy	303 B	-r--r--r--	2014-12-27 11:48
pumpkin.pod	51.48 KB	-r--r--r--	2014-12-27 11:49
release_announcement_template.txt	845 B	-r--r--r--	2015-01-15 22:12
release_managers_guide.pod	47.51 KB	-r--r--r--	2015-02-01 00:05
release_schedule.pod	3.39 KB	-r--r--r--	2015-01-31 17:19
rt_list_patches	678 B	-r--r--r--	2014-12-27 11:48
sort_perldiag.pl	1.38 KB	-r-xr-xr-x	2014-12-27 11:48
sync-with-cpan	11.7 KB	-r-xr-xr-x	2014-12-27 11:49
timecheck.c	3.52 KB	-r--r--r--	2014-12-27 11:48
timecheck2.c	2.69 KB	-r--r--r--	2014-12-27 11:48
todo.pod	47.26 KB	-r--r--r--	2015-01-28 21:08
valgrindpp.pl	9.44 KB	-r-xr-xr-x	2014-12-27 11:48

Rename

#!perl
# Generates info for perlhist from this perl tree
# run this from the root of a perl tree
#
# Data is on STDOUT.

use 5.010000;
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;
	push @core, glob '*.h';
	push @core, glob '*.c';
	push @core, glob '*.y';
	my $coresize = 0;

foreach my $corefile (@core) {
		$coresize += (-s $corefile) / 1000;
	}

my $corenumber = scalar @core;
	$coresize = int $coresize;

return $coresize, $corenumber;
}

sub calc_lib {

our $libsize = 0;
	our $libnumber = 0;
	sub wanted_lib {
		$File::Find::name =~ /[.] (?:pm|pl)\z/msx or return;
		$libsize += (-s $_) / 1000;
		$libnumber++;
	}

find(\&wanted_lib, 'lib');
	$libsize = int $libsize;

return $libsize, $libnumber;
}

sub calc_ext {

our $extsize = 0;
	our $extnumber = 0;
	sub wanted_ext {
		$File::Find::name =~ /[.] (?:h|c|y|t|xs|pm)\z/msx or return;
		$extsize += (-s $_) / 1000;
		$extnumber++;
	}

if (-d 'dist') {
		find(\&wanted_ext, 'ext', 'dist', 'cpan');
	} else {
		find(\&wanted_ext, 'ext');
	}

$extsize = int $extsize;

return $extsize, $extnumber;
}

sub calc_t {

our $tsize = 0;
	our $tnumber = 0;
	sub wanted_t {
		$File::Find::name =~ /[.] t\z/msx or return;
		$tsize += (-s $_) / 1000;
		$tnumber++;
	}

find(\&wanted_t, '.');

$tsize = int $tsize;

return $tsize, $tnumber;
}

sub calc_doc {

my @doc;
	push @doc, 'INSTALL';
	push @doc, 'README';
	push @doc, glob 'README.*';
	our $docsize = 0;

foreach my $docfile (@doc) {
		$docsize += (-s $docfile) / 1000;
	}

our $docnumber = scalar @doc;

sub wanted_doc {
		$File::Find::name =~ /[.] pod\z/msx or return;
		$docsize += (-s $_) / 1000;
		$docnumber++;
	}

find(\&wanted_doc, 'pod');

$docsize = int $docsize;

return $docsize, $docnumber;
}

sub calc_dir {
	my $dir = shift;

return if ! -d $dir;

our $dirnumber = 0;
	our $dirsize = 0;

sub wanted_dir {
		$dirsize += (-s $_) / 1000;
		$dirnumber++;
	}

find(\&wanted_dir, $dir);

$dirsize = int $dirsize;

emit $dir => $dirsize, $dirnumber;
}

sub calc_longtable {

print "\n\nTable:\n";

my $configure_size = int ((-s 'Configure') / 1000);

emit Configure => $configure_size, 1;

foreach my $dir (qw(Cross djgpp emacs h2pl hints mad NetWare os2 plan9 Porting qnx symbian utils vms vos win32 x2p)) {
		calc_dir($dir);
	}
}

say "Selected release sizes for perl tarball:";
print "\n";

#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;