r11447 - /scripts/qa/packagecheck
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Fri Dec 21 00:02:54 UTC 2007
Author: gregoa-guest
Date: Fri Dec 21 00:02:53 2007
New Revision: 11447
URL: http://svn.debian.org/wsvn/?sc=1&rev=11447
Log:
only change changelog if the substition of the URL in debian/watch succeeds
Modified:
scripts/qa/packagecheck
Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=11447&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Fri Dec 21 00:02:53 2007
@@ -113,9 +113,10 @@
# 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"
- perl -pi -e "s;^(?:ht|f)tp://.*cpan.+/(.+)-(.+)$;http://search.cpan.org/dist/\$1/ .*/\$1-\$2;" $TRUNK/$p/debian/watch
- MSG_WATCH="debian/watch: use dist-based URL."
- CHANGED=1
+ if perl -pi -e "my \$changed=1; while(<>){ \$changed=0 if s{^(?:ht|f)tp://.*cpan.+/(.+)-(.+)$}{http://search.cpan.org/dist/\$1/ .*/\$1-\$2}; print;} exit \$changed" $TRUNK/$p/debian/watch ; then
+ MSG_WATCH="debian/watch: use dist-based URL."
+ CHANGED=1
+ fi
fi
# 7) changelog
More information about the Pkg-perl-cvs-commits
mailing list