Commit | Line | Data |
adfe19db |
1 | #!/usr/bin/perl -w |
2 | ################################################################################ |
3 | # |
4 | # mktodo -- generate baseline and todo files by running mktodo.pl |
5 | # |
6 | ################################################################################ |
7 | # |
9132e1a3 |
8 | # $Revision: 8 $ |
adfe19db |
9 | # $Author: mhx $ |
9132e1a3 |
10 | # $Date: 2005/01/31 08:10:49 +0100 $ |
adfe19db |
11 | # |
12 | ################################################################################ |
13 | # |
9132e1a3 |
14 | # Version 3.x, Copyright (C) 2004-2005, Marcus Holland-Moritz. |
adfe19db |
15 | # Version 2.x, Copyright (C) 2001, Paul Marquess. |
16 | # Version 1.x, Copyright (C) 1999, Kenneth Albanowski. |
17 | # |
18 | # This program is free software; you can redistribute it and/or |
19 | # modify it under the same terms as Perl itself. |
20 | # |
21 | ################################################################################ |
22 | |
23 | use strict; |
24 | use Getopt::Long; |
25 | |
26 | my %opt = ( |
27 | base => 0, |
28 | ); |
29 | |
30 | GetOptions(\%opt, qw( |
31 | base |
32 | )) or die; |
33 | |
34 | # my $outdir = $opt{base} ? 'parts/base' : 'parts/todo'; |
35 | my $outdir = 'parts/todo'; |
36 | |
37 | # for (glob "$outdir/*") { |
38 | # unlink or die "$_: $!\n"; |
39 | # } |
40 | |
41 | my $install = '/tmp/perl/install/default'; |
42 | # my $install = '/tmp/perl/install/thread'; |
43 | |
44 | my @perls = sort { $b->{version} <=> $a->{version} } |
45 | map { { version => `$_ -e 'printf "%.6f", \$]'`, path => $_ } } |
46 | ('bleadperl', glob "$install/*/bin/perl5.*"); |
47 | |
48 | for (1 .. $#perls) { |
49 | $perls[$_]{todo} = $perls[$_-1]{version}; |
50 | } |
51 | |
52 | shift @perls; |
53 | |
54 | for (@perls) { |
55 | my $todo = do { my $v = $_->{todo}; $v =~ s/\D+//g; $v }; |
56 | -e "$outdir/$todo" and next; |
57 | my @args = ('--perl', $_->{path}, '--todo', "$outdir/$todo", '--version', "$_->{todo}"); |
58 | push @args, '--base' if $opt{base}; |
59 | system 'devel/mktodo.pl', @args and die "system(@args): [$!] [$?]\n"; |
60 | } |