print "\n\nTable:\n";
- foreach my $dir (qw(beos)) {
- calc_dir($dir);
- }
-
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)) {
+ foreach my $dir (qw(Cross djgpp emacs h2pl hints NetWare os2 plan9 Porting qnx symbian utils vms vos win32)) {
calc_dir($dir);
}
}