r20263 - /scripts/qa/CPANTSdump

[tincho at users.alioth.debian.org]

Author: tincho
Date: Wed May 21 23:35:02 2008
New Revision: 20263

URL: http://svn.debian.org/wsvn/?sc=1&rev=20263
Log:
Detect native packages; detect v-prefixed versions

Modified:
    scripts/qa/CPANTSdump

Modified: scripts/qa/CPANTSdump
URL: http://svn.debian.org/wsvn/scripts/qa/CPANTSdump?rev=20263&op=diff
==============================================================================
--- scripts/qa/CPANTSdump (original)
+++ scripts/qa/CPANTSdump Wed May 21 23:35:02 2008
@@ -28,6 +28,9 @@
 print "debian_pkg, CPAN_dist, CPAN_vers, N_bugs, N_patches\n";
 
 foreach my $pkg (@pkglist) {
+    next if($data->{svn}{$pkg}{watch_error} and
+        $data->{svn}{$pkg}{watch_error} eq 'Native');
+
     my $ups_dir = $data->{watch}{$pkg}{upstream_dir};
     my $ups_url = $data->{watch}{$pkg}{upstream_url};
     my $dist;
@@ -35,7 +38,7 @@
             and $ups_dir =~ m#http://search.cpan.org/dist/(.+?)(?:/|$|\s)#) {
         $dist = $1;
     } elsif($ups_url
-            and $ups_url =~ qr#^((?:http|ftp)://\S*(?:cpan|backpan)\S*)/(?:modules/by-module|(?:by-)?authors/id)\b.*/(.*?)-\d#i) {
+            and $ups_url =~ qr#^(?:(?:http|ftp)://\S*(?:cpan|backpan)\S*)/(?:modules/by-module|(?:by-)?authors/id)\b.*/(.*?)-v?\d#i) {
         $dist = $1;
     } else {
         $dist = $ups_url || "unknown";