r12460 - /scripts/qa/packagecheck

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Thu Jan 10 18:36:29 UTC 2008


Author: gregoa-guest
Date: Thu Jan 10 18:36:28 2008
New Revision: 12460

URL: http://svn.debian.org/wsvn/?sc=1&rev=12460
Log:
add 2 more spaces between URL and regexp in created watchfile pattern

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=12460&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Thu Jan 10 18:36:28 2008
@@ -112,7 +112,7 @@
 	# watchfile
 	if [ -e $TRUNK/$1/debian/watch ] && ! grep search\.cpan\.org/dist/ $TRUNK/$1/debian/watch >/dev/null; then
 		echo "$1: trying to change URL in debian/watch"
-		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{(?:^|\s+)(?:ht|f)tp://.*cpan.+/\s*(\S+)-(?:\S+)(\s.+)?$}{http://search.cpan.org/dist/\$1/ .*/\$1-v?(\\\\d[\\\\d_.]+)\\\\.(?:tar(?:\\\\.gz|\\\\.bz2)?|tgz|zip)\$2}i; print;} exit \$changed" $TRUNK/$1/debian/watch ; then
+		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{(?:^|\s+)(?:ht|f)tp://.*cpan.+/\s*(\S+)-(?:\S+)(\s.+)?$}{http://search.cpan.org/dist/\$1/   .*/\$1-v?(\\\\d[\\\\d_.]+)\\\\.(?:tar(?:\\\\.gz|\\\\.bz2)?|tgz|zip)\$2}i; print;} exit \$changed" $TRUNK/$1/debian/watch ; then
 			perl -pi -e "s;^version=2;version=3;" $TRUNK/$1/debian/watch
 			MSG_WATCH="debian/watch: use dist-based URL."
 			CHANGED=1




More information about the Pkg-perl-cvs-commits mailing list