eg/who-wrote-broken-sig.pl

   1
   2
   3
   4 =pod
   5
   6 This script investigates a list of broken CPAN distros
   7
   8 =cut
   9
  10 use lib 'lib';
  11 use CPAN 1.8058; # 1.80 broken for *.tgz
  12 use Cwd qw(cwd);
  13 use File::Path qw(rmtree);
  14 my $cwd = cwd;
  15 my @brokensig = qw(
  16 B/BM/BMORROW/PerlIO-nline-0.03.tar.gz                                   # 16844
  17 B/BO/BOBMATH/Crypt-CAST5_PP-1.03.tar.gz                                 # 16845; got reply
  18 B/BU/BURAK/CGI-Auth-Basic-1.02.tar.gz                                   # bugreport Module::Signature sent to Aurey
  19 B/BU/BURAK/GD-SecurityImage-1.583.tar.gz                                # ditto
  20 B/BU/BURAK/MP3-M3U-Parser-2.1.tar.gz                                    # ditto
  21 C/CR/CRAIHA/Geo-Coordinates-Parser-0.01.tar.gz                          # 16846
  22 D/DA/DARREN/Text-TabularDisplay-1.21.tar.gz                             # 16847
  23 D/DM/DMAKI/Class-Validating-0.02.tar.gz                                 # 16848
  24 D/DM/DMAKI/DateTime-Event-Lunar-0.04.tar.gz                             # dto
  25 D/DM/DMAKI/DateTime-Util-Astro-0.06.tar.gz                              # dto
  26 D/DM/DMAKI/POE-Component-StackedProcessor-0.05.tar.gz                   # dto
  27 D/DR/DROLSKY/DateTime-Format-HTTP-0.36.tar.gz                           # dto
  28 G/GO/GOZER/Scalar-Readonly-0.01.tar.gz                                  # 16849
  29 J/JJ/JJORE/B-Lisp-0.01.tar.gz                                           # 16850
  30 J/JJ/JJORE/Geo-TigerLine-Abbreviations-0.02.tar.gz                      # dto
  31 J/JM/JMEHNLE/apache-auth-userdb/Apache-Auth-UserDB-0.11.tar.gz          # 16851
  32 J/JM/JMEHNLE/clamav-client/ClamAV-Client-0.11.tar.gz                    # dto
  33 J/JM/JMEHNLE/courier-filter/Courier-Filter-0.17.tar.gz                  # dto
  34 J/JM/JMEHNLE/net-address-ipv4-local/Net-Address-IPv4-Local-0.12.tar.gz  # dto
  35 J/JM/JMEHNLE/www-restaurant-menu/WWW-Restaurant-Menu-0.11.tar.gz        # dto
  36 K/KC/KCLARK/SQL-Translator-0.07.tar.gz                                  # 16852
  37 K/KM/KMELTZ/SSN-Validate-0.13.tar.gz                                    # 16853
  38 K/KU/KUDARASP/PHP-Strings-0.28.tar.gz                                   # 16854
  39 L/LO/LORENSEN/Net-BGP-0.08.tar.gz                                       # 16855
  40 N/NI/NIKC/SVN-Web-0.42.tar.gz                                           # 16856
  41 P/PT/PTANDLER/PBib/Bundle-PBib-2.08.01.tar.gz                           # 16857
  42 P/PT/PTANDLER/PBib/Bundle-PBib-2.08.tar.gz                              # dto
  43 R/RE/REEDFISH/Term-Menus-1.11.tar.gz                                    # 16858
  44 R/RR/RRWO/Acme-AutoColor-0.01.tar.gz                                    #
  45 R/RR/RRWO/Acme-Mobile-Therbligs-0.04.tar.gz                             #
  46 R/RR/RRWO/Algorithm-ScheduledPath-0.41.tar.gz                           #
  47 R/RR/RRWO/Algorithm-SkipList-1.02.tar.gz                                #
  48 R/RR/RRWO/CPAN-Mini-Tested-0.22.tar.gz                                  #
  49 R/RR/RRWO/CPAN-YACSmoke-0.03.tar.gz                                     #
  50 R/RR/RRWO/CPAN-YACSmoke-Plugin-Phalanx100-0.02.tar.gz                   #
  51 R/RR/RRWO/File-HomeDir-Win32-0.03.tar.gz                                #
  52 R/RR/RRWO/Graphics-ColorNames-1.06.tar.gz                               #
  53 R/RR/RRWO/Log-Dispatch-Win32EventLog-0.13.tar.gz                        #
  54 R/RR/RRWO/Logic-Kleene-0.05.tar.gz                                      #
  55 R/RR/RRWO/Module-Phalanx100-0.05.tar.gz                                 #
  56 R/RR/RRWO/Mozilla-Backup-0.06.tar.gz                                    #
  57 R/RR/RRWO/Params-Smart-0.06.tar.gz                                      #
  58 R/RR/RRWO/Pod-Readme-0.05.tar.gz                                        #
  59 R/RR/RRWO/Text-Truncate-1.03.tar.gz                                     #
  60 R/RR/RRWO/Tie-RangeHash-1.03.tar.gz                                     #
  61 R/RR/RRWO/Tie-RegexpHash-0.13.tar.gz                                    #
  62 R/RR/RRWO/Tree-Node-0.06.tar.gz                                         #
  63 R/RR/RRWO/Win32-EventLog-Carp-1.39.tar.gz                               #
  64 S/SC/SCHUMACK/CircuitLayout-0.07.tar.gz                                 # 16859
  65 S/SI/SIMON/Lingua-EN-Keywords-2.0.tar.gz                                #
  66 S/SI/SIMON/Mail-Miner-2.7.tar.gz                                        #
  67 );
  68 my $fh;
  69 open $fh, ">", "$0.out" or die;
  70
  71 DISTRO: for $s (@brokensig){
  72   my $d = CPAN::Shell->expand("Distribution",$s);
  73   unless ($d) {
  74     $d = CPAN::Distribution->new(ID => $s);
  75   }
  76   my $id = $d->id;
  77   print "---->[$id]<----\n";
  78   eval {$d->get;};
  79   $d->look;
  80   my $dir = $d->dir or die;
  81   rmtree $dir;
  82   last;
  83 }
  84
  85 __END__
  86 # Local Variables:
  87 # mode: cperl
  88 # cperl-indent-level: 2
  89 # End: