[Catalyst-commits] r10419 - trunk/examples/SmokeServer/script

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-02 13:25:20 +0000 (Tue, 02 Jun 2009)
New Revision: 10419

Modified:
   trunk/examples/SmokeServer/script/cpan_smoke.pl
Log:
fix bug with multiple versions of dist in smoker

Modified: trunk/examples/SmokeServer/script/cpan_smoke.pl
===================================================================
--- trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-06-02 12:41:20 UTC (rev 10418)
+++ trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-06-02 13:25:20 UTC (rev 10419)
@@ -28,10 +28,6 @@
     or die "run $Bin/cpan_download && $Bin/cpan_installdeps.pl first\n";
 
 my @dists = grep !/^\.\.?\z/, readdir $dists;
-my @dist_names = @dists;
-s/-\d.*// for @dist_names;
-my %dists;
- at dists{@dist_names} = @dists;
 closedir $dists;
 
 # install latest runtime trunk
@@ -49,14 +45,14 @@
 open my $log, '>', "$Bin/../cpan_smoke.log" or die $!;
 $log->autoflush(1);
 
-for my $dist (@dist_names) {
-    next if exists $SKIP{$dist};
-
-    my $dist_dir = $dists{$dist};
+for my $dist_dir (@dists) {
     chdir "$dir/$dist_dir" or die $!;
 
-    my ($dir) = File::Find::Rule->file->name("${dist_dir}.*")->in("$Bin/../cpan/authors");
-    my $uploader = (splitdir $dir)[-2];
+    my ($dist) = $dist_dir =~ /^(.+)-\d/;
+    next if exists $SKIP{$dist};
+
+    my ($author_dir) = File::Find::Rule->file->name("${dist_dir}.*")->in("$Bin/../cpan/authors");
+    my $uploader = (splitdir $author_dir)[-2];
     my ($dist_version) = $dist_dir =~ /^${dist}-(.*)/;
     my @test_files = File::Find::Rule->file->name('*.t')->in('t/');