r6707 - /scripts/qa/versioncheck2.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Aug 16 06:47:20 2007
New Revision: 6707

URL: http://svn.debian.org/wsvn/?sc=1&rev=6707
Log:
Catch ftp watch URLs too. Complain loudly if it goes wrong

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=6707&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Thu Aug 16 06:47:20 2007
@@ -23,6 +23,7 @@
 };
 
 use strict;
+use Carp qw(confess);
 use Common;
 use LWP::Simple ();
 use Compress::Zlib ();
@@ -350,8 +351,8 @@
     {
         my( $wline, $opts ) = @$_;
 
-        $wline =~ m{^(http://\S+)/};
-        my $url = $1;
+        $wline =~ m{^((?:http|ftp)://\S+)/};
+        my $url = $1 or confess "Invalid watch line given? '$wline'";
         $url =~ s{^http://sf.net/}{http://sf.net.projects/};
 
         $wline =~ s{^http://sf\.net/(\S+)}{http://qa.debian.org/watch/sf.php/$1};