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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-02 18:35:15 +0000 (Tue, 02 Jun 2009)
New Revision: 10421

Modified:
   trunk/examples/SmokeServer/script/cpan_smoke.pl
Log:
regexp fail

Modified: trunk/examples/SmokeServer/script/cpan_smoke.pl
===================================================================
--- trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-06-02 16:13:51 UTC (rev 10420)
+++ trunk/examples/SmokeServer/script/cpan_smoke.pl	2009-06-02 18:35:15 UTC (rev 10421)
@@ -48,7 +48,8 @@
 for my $dist_dir (@dists) {
     chdir "$dir/$dist_dir" or die $!;
 
-    my ($dist, $dist_version) = $dist_dir =~ /^(.+)-?(\d.*)?/;
+    my ($dist, $dist_version) = $dist_dir =~ /^(.+)-(\d[^-]+)/;
+    $dist ||= $dist_dir;
     next if exists $SKIP{$dist};
 
     my $tarball;