r11450 - /scripts/qa/packagecheck

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Fri Dec 21 01:06:14 2007
New Revision: 11450

URL: http://svn.debian.org/wsvn/?sc=1&rev=11450
Log:
1) create regex to match version string from scratch; 2) preserve version/action parameter

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=11450&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Fri Dec 21 01:06:14 2007
@@ -113,7 +113,7 @@
 	# 6) watchfile
 	if [ -e $TRUNK/$p/debian/watch ] && ! grep search\.cpan\.org/dist/ $TRUNK/$p/debian/watch >/dev/null; then
 		echo "$p: changing URL in debian/watch"
-		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{^(?:ht|f)tp://.*cpan.+/(\S+)-(\S+)$}{http://search.cpan.org/dist/\$1/ .*/\$1-\$2}; print;} exit \$changed" $TRUNK/$p/debian/watch ; then
+		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{^(?:ht|f)tp://.*cpan.+/(\S+)-(?:\S+)(\s.+)?$}{http://search.cpan.org/dist/\$1/ .*/\$1-v?([\\\\d._]+)(?:\\\\.tar\\\\.gz|\\\\.tgz)\$2}; print;} exit \$changed" $TRUNK/$p/debian/watch ; then
 			MSG_WATCH="debian/watch: use dist-based URL."
 			CHANGED=1
 		fi