From 277fc58f3d29a79f7a772fe284bd07a440c95c99 Mon Sep 17 00:00:00 2001
From: Steve McIntyre <93sam@debian.org>
Date: Mon, 11 Dec 2006 15:47:18 +0000
Subject: [PATCH] When rolling back, cope with package names that are not
 regexp friendly

---
 tools/add_packages | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tools/add_packages b/tools/add_packages
index b2d18cfc..0a137ef8 100755
--- a/tools/add_packages
+++ b/tools/add_packages
@@ -151,7 +151,7 @@ sub remove_Packages_entry {
 	$gz = gzopen("$pkgfile.gz", "wb9");
 
 	while (defined($match = <IFILE>)) {
-		if (! ($match =~ /^Package: $p$/m)) {
+		if (! ($match =~ /^Package: \Q$p\E$/m)) {
 			print OFILE $match;
 			$gz->gzwrite($match) or die "Failed to write $pkgfile.gz: $gzerrno\n";
 		}
@@ -196,9 +196,9 @@ sub remove_md5_entry {
 	while (defined($match = <IFILE>)) {
 		$present = 0;
 		foreach my $entry (@fileslist) {
-			if (($match =~ /$entry$/m)) {
-				$present++;
-			}
+		    if (($match =~ /\Q$entry\E$/m)) {
+			$present++;
+		    }
 		}
 		if (!$present) {
 			print OFILE $match;