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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-31 22:34:07 +0000 (Sun, 31 May 2009)
New Revision: 10405

Modified:
   trunk/examples/SmokeServer/script/cpan_smoke.pl
Log:
this one hangs

Modified: trunk/examples/SmokeServer/script/cpan_smoke.pl
===================================================================
--- trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-05-31 19:53:25 UTC (rev 10404)
+++ trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-05-31 22:34:07 UTC (rev 10405)
@@ -10,6 +10,13 @@
 use File::Find::Rule;
 use IO::Handle;
 
+# these hang, or do other nasty things
+my @SKIP = (qw/
+    Catalyst-View-Reproxy
+/);
+my %SKIP;
+ at SKIP{@SKIP} = (1) x @SKIP;
+
 die("$0 http://smokeserver:3000 [extra tags]\n") unless scalar(@ARGV);
 my $uri = shift;
 my @extra_tags = @ARGV;
@@ -30,6 +37,8 @@
 $log->autoflush(1);
 
 for my $dist (@dist_names) {
+    next if exists $SKIP{$dist};
+
     my $dist_dir = $dists{$dist};
     chdir "$dir/$dist_dir" or die $!;