Author: jamessan
Date: 2009-08-25 17:53:06 +0000 (Tue, 25 Aug 2009)
New Revision: 1971
Modified:
trunk/scripts/tagpending.pl
Log:
Stop parsing debian/control and fix arguments for 'bts limit'.
Modified: trunk/scripts/tagpending.pl
===================================================================
--- trunk/scripts/tagpending.pl 2009-08-25 16:30:30 UTC (rev 1970)
+++ trunk/scripts/tagpending.pl 2009-08-25 17:53:06 UTC (rev 1971)
@@ -293,19 +293,6 @@
}
}
-if (@to_tag) {
- open CONTROL, "debian/control";
-
- while (<CONTROL>) {
- if (/^Source: (.*)/) {
- push (@sourcepkgs, $2);
- }
- }
-
- close CONTROL;
-}
-
-my %packages = map { $_ => 1 } @sourcepkgs;
my @bts_args = ("bts", "--toolname", $progname);
if ($opt_noact and not $opt_interactive) {
@@ -327,7 +314,7 @@
}
if (@to_tag) {
- push(@bts_args, "limit source", join " ", keys(%packages));
+ push(@bts_args, "limit", "source:$source");
if ($comments) {
$comments =~ s/\n\n/\n/sg;
--
To unsubscribe, send mail to [email protected].
