[Debtags-commits] [svn] r1416 - autodebtag/trunk/dbacl

[Enrico Zini]

Author: enrico
Date: Thu Oct 27 20:59:46 2005
New Revision: 1416

Modified:
   autodebtag/trunk/dbacl/debtags-ai
Log:
Tags need to be matched at beginning of line

Modified: autodebtag/trunk/dbacl/debtags-ai
==============================================================================
--- autodebtag/trunk/dbacl/debtags-ai	(original)
+++ autodebtag/trunk/dbacl/debtags-ai	Thu Oct 27 20:59:46 2005
@@ -223,7 +223,7 @@
 	local $/ = "\n\n";
 	while (my $rec = <IN>)
 	{
-		if ($rec =~ /^Package: (\S+).+Tag: (.+?)(?:\n|$)/so)
+		if ($rec =~ /^Package: (\S+).*\nTag: (.+?)(?:\n|$)/so)
 		{
 			my ($pkg, $tags) = ($1, $2);
 			$pkgdata{$pkg} = $rec;