r7943 - /scripts/qa/packagecheck

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

Author: gregoa-guest
Date: Tue Sep 25 18:57:58 2007
New Revision: 7943

URL: http://svn.debian.org/wsvn/?sc=1&rev=7943
Log:
check if contructed URL returns what we expect

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=7943&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Tue Sep 25 18:57:58 2007
@@ -71,7 +71,9 @@
 			PERLNAME=$(perl -n -e "print if s;^name:.* ([a-zA-Z0-9:_-]+).*\$;\$1;" trunk/$p/META.yml | head -n 1)
 		fi
 		if [ -n "$PERLNAME" ]; then
-			NEWHP="http://search.cpan.org/dist/$PERLNAME/"
+			if curl --silent http://search.cpan.org/dist/$PERLNAME/ grep '<title>.*</title>' | grep --silent $PERLNAME; then
+				NEWHP="http://search.cpan.org/dist/$PERLNAME/"
+			fi
 		fi
 		
 		# get NEWHP from somewhere else? debian/watch? debian/copyright?