[Collab-qa-commits] r428 - tools/bugs2packagelist

[lucas at alioth.debian.org]

Author: lucas
Date: 2007-09-10 20:13:21 +0000 (Mon, 10 Sep 2007)
New Revision: 428

Modified:
   tools/bugs2packagelist/bts2pkglist.pl
Log:
NNN: -> NNN in bts2pkglist.pl

Modified: tools/bugs2packagelist/bts2pkglist.pl
===================================================================
--- tools/bugs2packagelist/bts2pkglist.pl	2007-09-10 20:12:44 UTC (rev 427)
+++ tools/bugs2packagelist/bts2pkglist.pl	2007-09-10 20:13:21 UTC (rev 428)
@@ -32,11 +32,11 @@
 }
 
 open(INFILE, $pkglist) or die "unable to open Package list: $!";
-my @proc = grep(/NNN:/, <INFILE>);
+my @proc = grep(/NNN/, <INFILE>);
 close(INFILE);
 
 if ( @proc < 1 ) {
-	print "nothing to do, no entries tagged with NNN: found\n";
+	print "nothing to do, no entries tagged with NNN found\n";
 	exit 0;
 }
 
@@ -65,7 +65,7 @@
 	if( ! $bug->[0] ) {
 		print "no bug found for package: $pkg\n";
 	} else {
-		system("/bin/sed -i '/^$pkg/ s/NNN:/\#$bug->[0]:/' $pkglist");
+		system("/bin/sed -i '/^$pkg/ s/NNN/\#$bug->[0]/' $pkglist");
 		print "$pkg bug:".$bug->[0]."\n";
 	}
 }