r8986 - /scripts/qa/DebianQA/Watch.pm

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Wed Nov 7 18:29:03 UTC 2007


Author: tincho-guest
Date: Wed Nov  7 18:29:03 2007
New Revision: 8986

URL: http://svn.debian.org/wsvn/?sc=1&rev=8986
Log:
Better watch error

Modified:
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8986&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Wed Nov  7 18:29:03 2007
@@ -180,7 +180,8 @@
         my $res = $ua->get($dir);
         unless($res->is_success) {
             error("Unable to get $dir: " . $res->message());
-            return ("Network");
+            return ("NotFound") if($res->code == 404);
+            return ("DownloadError");
         }
         my $page = $res->decoded_content();
         if($dir =~ /^http/) {




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