Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

65 lines (63 sloc) 3.963 kb
smoke:
testlabel: 2pre5140
git_repository: /home/cpansand/work/perl
perl1:
url: http://search.cpan.org/CPAN/authors/id/R/RJ/RJBS/perl-5.12.3.tar.gz
perl2:
# commit: v5.13.11-100-g167630b
commit: 167630b6ab7e291cbd4f89943a3aec8d6a1ecbfc
# run_in: screen
modlist:
## First run:
# file: /tmp/2005-2010.mod.2
# file created with (use zsh):
# ~/work/srezic-misc/scripts/cpan_allpackages -perl /usr/perl5.12.3/bin/perl > ~/var/tested-cpan-i386-FreeBSD-5.12.3
# perl5.12.0 -S find_dangerous_cpan_distributions.pl | perl -pe 's{^./../}{}' >| /tmp/dangerousdists
# sort ~eserte/var/tested-cpan-i386-FreeBSD-5.12.3 | grep -v '^\?' | egrep -v "(FAIL|DISCARD|UNKNOWN)" | egrep '^20(10|0[56789])' | perl -nale 'BEGIN { %dangerous = do { open my $fh, "/tmp/dangerousdists" or die $!; chomp(my @x = <$fh>); map {($_,1)} @x } } if (!$dangerous{$F[1]}) { print $F[1] }' > /tmp/2005-2010
# perl5.12.0 -MParse::CPAN::Packages::Fast -nle 'BEGIN{$p=Parse::CPAN::Packages::Fast->new} $d = $_; $d =~ m{^(.)(.)}; $d = "$1/$1$2/$d"; if ($do = eval { $p->distribution($d) }) { $firstp = ($do->contains)[0]->package; if (!$seen{$firstp}++) { print $firstp } }' /tmp/2005-2010 > /tmp/2005-2010.mod
#
# removed more fails:
#
# ~/work/srezic-misc/scripts/cpan_allpackages -perl ~cpansand/var/ctps/pre5140/install/perl-5.12.3/bin/perl > ~/var/tested-cpan-i386-FreeBSD-5.12.3-pre5140
# sort ~eserte/var/tested-cpan-i386-FreeBSD-5.12.3-pre5140 | grep -v '^\?' | egrep -v "(FAIL|DISCARD|UNKNOWN)" | egrep '^20(10|0[56789])' | perl -nale 'BEGIN { %dangerous = do { open my $fh, "/tmp/dangerousdists" or die $!; chomp(my @x = <$fh>); map {($_,1)} @x } } if (!$dangerous{$F[1]}) { print $F[1] }' > /tmp/2005-2010.2
# perl5.12.0 -MParse::CPAN::Packages::Fast -nle 'BEGIN{$p=Parse::CPAN::Packages::Fast->new} $d = $_; $d =~ m{^(.)(.)}; $d = "$1/$1$2/$d"; if ($do = eval { $p->distribution($d) }) { $firstp = ($do->contains)[0]->package; if (!$seen{$firstp}++) { print $firstp } }' /tmp/2005-2010.2 > /tmp/2005-2010.mod.2
#
# On the linux machine I did:
#
# /usr/perl5.12.3/bin/perl ~/work2/srezic-misc/scripts/cpan_allpackages -perl /usr/perl5.12.3/bin/perl >| ~/var/tested-cpan-i386-linux-5.12.3
# /usr/perl5.12.3/bin/perl ~/devel-biokovo/find_dangerous_cpan_distributions.pl | perl -pe 's{^./../}{}' >| /tmp/dangerousdists
# sort ~/var/tested-cpan-i386-linux-5.12.3 | grep -v '^\?' | egrep -v "(FAIL|DISCARD|UNKNOWN)" | egrep '^20(10|0[56789])' | perl -nale 'BEGIN { %dangerous = do { open my $fh, "/tmp/dangerousdists" or die $!; chomp(my @x = <$fh>); map {($_,1)} @x } } if (!$dangerous{$F[1]}) { print $F[1] }' > /tmp/2005-2010.2
# /usr/perl5.12.3/bin/perl -MParse::CPAN::Packages::Fast -nle 'BEGIN{$p=Parse::CPAN::Packages::Fast->new} $d = $_; $d =~ m{^(.)(.)}; $d = "$1/$1$2/$d"; if ($do = eval { $p->distribution($d) }) { $firstp = ($do->contains)[0]->package; if (!$seen{$firstp}++) { print $firstp } }' /tmp/2005-2010.2 > /tmp/2005-2010.mod.2
#
#
## Second run
# file: /tmp/2005-2011.modlist
# Created using:
#
# perl5.12.3 ./utils/create_modlist_by_years.pl -years 2005..2011 -perl /usr/perl5.12.3/bin/perl > /tmp/2005-2011.modlist
#
## Third run
# file: /tmp/2005-2011.modlist.cont1
# (continuation of a aborted run)
## Forth run
# file: /tmp/2005-2011.modlist.cont2
# (continuation of a aborted run)
## 5th run
# file: /tmp/2005-2011.modlist.cont3
# (continuation of a aborted run)
## 6th run, older distros
file: /tmp/2002-2004.modlist
# Created using:
#
# perl5.12.3 ./utils/create_modlist_by_years.pl -years 2002..2004 -perl /usr/perl5.12.3/bin/perl > /tmp/2002-2004.modlist
# chmod ugo+r /tmp/2002-2004.modlist
#
## 7th run, everything with options: -skiptested
file: /tmp/2002-2011.modlist
options:
skiptested: 1
# Created using:
#
# perl5.12.3 ./utils/create_modlist_by_years.pl -years 2002..2011 -perl /usr/perl5.12.3/bin/perl >| /tmp/2002-2011.modlist
# chmod ugo+r /tmp/2002-2011.modlist
#
Jump to Line
Something went wrong with that request. Please try again.