r6707 - /scripts/qa/versioncheck2.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Thu Aug 16 06:47:20 UTC 2007
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};
More information about the Pkg-perl-cvs-commits
mailing list