From e98760989ab69ac008f20d9cbaa26988bd17f2d9 Mon Sep 17 00:00:00 2001
From: "dave%intrec.com" <>
Date: Fri, 9 Mar 2001 01:29:09 +0000
Subject: Refix for bug 25693: more accurate regexp to find duplicates when
 generating initial duplicates table.

---
 checksetup.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'checksetup.pl')

diff --git a/checksetup.pl b/checksetup.pl
index abc3fea44..8a141a067 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -2029,7 +2029,7 @@ if (!($sth->fetchrow_arrayref()->[0])) {
 	print("Populating duplicates table...\n");
 	
 	$sth = $dbh->prepare("SELECT longdescs.bug_id, thetext FROM longdescs left JOIN bugs using(bug_id) WHERE (thetext " . 
-	        "regexp 'This bug has been marked as a duplicate of') AND (resolution = 'DUPLICATE') ORDER" .
+	        "regexp '[.*.]{3,3} This bug has been marked as a duplicate of [[:digit:]]{1,5} [.*.]{3,3}') AND (resolution = 'DUPLICATE') ORDER" .
 			" BY longdescs.bug_when");
 	$sth->execute();
 
@@ -2044,9 +2044,9 @@ if (!($sth->fetchrow_arrayref()->[0])) {
 
 	foreach $key (keys(%dupes))
 	{
-		$dupes{$key} =~ s/.*This bug has been marked as a duplicate of (\d{1,5}).*/$1/sm;
+		$dupes{$key} =~ s/.*\*\*\* This bug has been marked as a duplicate of (\d{1,5}) \*\*\*.*?/$1/sm;
 		$dbh->do("INSERT INTO duplicates VALUES('$dupes{$key}', '$key')");
-		#										 BugItsADupeOf   Dupe
+		#					 BugItsADupeOf   Dupe
 	}
 	
 	$::regenerateshadow = 1;
-- 
cgit v1.2.3-24-g4f1b