r8890 - /scripts/qa/DebianQA/Watch.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Nov 6 06:32:30 UTC 2007
Author: tincho-guest
Date: Tue Nov 6 06:32:30 2007
New Revision: 8890
URL: http://svn.debian.org/wsvn/?sc=1&rev=8890
Log:
Add debugging
Modified:
scripts/qa/DebianQA/Watch.pm
Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8890&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Tue Nov 6 06:32:30 2007
@@ -67,8 +67,11 @@
$watch{$md5} = $cdata->{$md5};
} else {
my ($watcherr, $ups_ver, $ups_mangled) = uscan($wline);
- warn("Error while processing $pkg watch file: $watcherr") if(
- $watcherr);
+ if($watcherr) {
+ warn("Error while processing $pkg watch file: $watcherr");
+ } else {
+ debug("Found: version $ups_ver (mangled: $ups_mangled)");
+ }
$watch{$md5} = {
watch_error => $watcherr,
upstream_version => $ups_ver,
More information about the Pkg-perl-cvs-commits
mailing list