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 | # |
c1a049cb |
8 | # $Revision: 15 $ |
adfe19db |
9 | # $Author: mhx $ |
c1a049cb |
10 | # $Date: 2008/01/04 10:47:39 +0100 $ |
adfe19db |
11 | # |
12 | ################################################################################ |
13 | # |
c1a049cb |
14 | # Version 3.x, Copyright (C) 2004-2008, 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 | |
0c96388f |
26 | require 'devel/devtools.pl'; |
27 | |
28 | our %opt = ( |
29 | base => 0, |
ba120f6f |
30 | check => 1, |
0c96388f |
31 | verbose => 0, |
adfe19db |
32 | ); |
33 | |
ba120f6f |
34 | GetOptions(\%opt, qw( base check! verbose )) or die; |
adfe19db |
35 | |
0c96388f |
36 | identify(); |
37 | |
adfe19db |
38 | my $outdir = 'parts/todo'; |
39 | |
adfe19db |
40 | my $install = '/tmp/perl/install/default'; |
41 | # my $install = '/tmp/perl/install/thread'; |
42 | |
43 | my @perls = sort { $b->{version} <=> $a->{version} } |
44 | map { { version => `$_ -e 'printf "%.6f", \$]'`, path => $_ } } |
45 | ('bleadperl', glob "$install/*/bin/perl5.*"); |
46 | |
47 | for (1 .. $#perls) { |
48 | $perls[$_]{todo} = $perls[$_-1]{version}; |
49 | } |
50 | |
51 | shift @perls; |
52 | |
53 | for (@perls) { |
54 | my $todo = do { my $v = $_->{todo}; $v =~ s/\D+//g; $v }; |
55 | -e "$outdir/$todo" and next; |
56 | my @args = ('--perl', $_->{path}, '--todo', "$outdir/$todo", '--version', "$_->{todo}"); |
57 | push @args, '--base' if $opt{base}; |
0c96388f |
58 | push @args, '--verbose' if $opt{verbose}; |
ba120f6f |
59 | push @args, '--nocheck' unless $opt{check}; |
0c96388f |
60 | runperl('devel/mktodo.pl', @args) or die "error running mktodo.pl [$!] [$?]\n"; |
adfe19db |
61 | } |
0c96388f |
62 | |