diff options
Diffstat (limited to 'cpan/Devel-PPPort/devel/mktodo')
| -rw-r--r-- | cpan/Devel-PPPort/devel/mktodo | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/cpan/Devel-PPPort/devel/mktodo b/cpan/Devel-PPPort/devel/mktodo index 4a2e394cf1..d2bf8b8d8c 100644 --- a/cpan/Devel-PPPort/devel/mktodo +++ b/cpan/Devel-PPPort/devel/mktodo @@ -5,13 +5,13 @@ # ################################################################################ # -# $Revision: 18 $ +# $Revision: 16 $ # $Author: mhx $ -# $Date: 2010/03/07 13:15:43 +0100 $ +# $Date: 2009/01/18 14:10:50 +0100 $ # ################################################################################ # -# Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz. +# Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz. # Version 2.x, Copyright (C) 2001, Paul Marquess. # Version 1.x, Copyright (C) 1999, Kenneth Albanowski. # @@ -29,23 +29,20 @@ our %opt = ( base => 0, check => 1, verbose => 0, - install => '/tmp/perl/install/default', - blead => 'bleadperl', ); -GetOptions(\%opt, qw( base check! verbose install=s blead=s blead-version=s )) or die; +GetOptions(\%opt, qw( base check! verbose )) or die; identify(); my $outdir = 'parts/todo'; +my $install = '/tmp/perl/install/default'; +# my $install = '/tmp/perl/install/thread'; + my @perls = sort { $b->{version} <=> $a->{version} } map { { version => `$_ -e 'printf "%.6f", \$]'`, path => $_ } } - ($opt{blead}, glob "$opt{install}/*/bin/perl5.*"); - -if (exists $opt{'blead-version'}) { - $perls[0]{version} = $opt{'blead-version'}; -} + ('bleadperl', glob "$install/*/bin/perl5.*"); for (1 .. $#perls) { $perls[$_]{todo} = $perls[$_-1]{version}; |