Author: adsb
Date: 2008-11-11 19:13:09 +0000 (Tue, 11 Nov 2008)
New Revision: 1722
Modified:
trunk/debian/changelog
trunk/scripts/tagpending.pl
Log:
tagpending: If an error occurs retrieving the list of bugs for the
package, suggest using "--force" in order to tag all the bugs as
pending without attempting to query the BTS.
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2008-11-09 21:42:06 UTC (rev 1721)
+++ trunk/debian/changelog 2008-11-11 19:13:09 UTC (rev 1722)
@@ -22,6 +22,9 @@
+ Check whether a SOAP call returned a valid value before attempting to
call result() on it.
+ Produce more useful error messages on failure. (Closes: #496013)
+ * tagpending: If an error occurs retrieving the list of bugs for the
+ package, suggest using "--force" in order to tag all the bugs as
+ pending without attempting to query the BTS.
-- Patrick Schoenfeld <[EMAIL PROTECTED]> Thu, 06 Nov 2008 13:39:09 +0100
Modified: trunk/scripts/tagpending.pl
===================================================================
--- trunk/scripts/tagpending.pl 2008-11-09 21:42:06 UTC (rev 1721)
+++ trunk/scripts/tagpending.pl 2008-11-11 19:13:09 UTC (rev 1722)
@@ -194,8 +194,18 @@
my $open;
if ($opt_online) {
- $pending = Devscripts::Debbugs::select( "src:$source", "status:open",
"status:forwarded", "tag:pending" );
- $open = Devscripts::Debbugs::select( "src:$source", "status:open",
"status:forwarded" );
+ if (!Devscripts::Debbugs::have_soap()) {
+ die "$progname: The libsoap-lite-perl package is required for online
operation; aborting.\n";
+ }
+
+ eval {
+ $pending = Devscripts::Debbugs::select( "src:$source", "status:open",
"status:forwarded", "tag:pending" );
+ $open = Devscripts::Debbugs::select( "src:$source", "status:open",
"status:forwarded" );
+ };
+
+ if ($@) {
+ die "[EMAIL PROTECTED] --force to tag all bugs anyway.\n";
+ }
}
my %bugs = map { $_ => 1} @closes;
--
To unsubscribe, send mail to [EMAIL PROTECTED]
