Refix for bug 25693: more accurate regexp to find duplicates when generating initial duplicates table.

This commit is contained in:
dave%intrec.com 2001-03-08 17:29:09 +00:00
Родитель e78859951e
Коммит 361f3585e4
1 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -2029,7 +2029,7 @@ if (!($sth->fetchrow_arrayref()->[0])) {
print("Populating duplicates table...\n"); print("Populating duplicates table...\n");
$sth = $dbh->prepare("SELECT longdescs.bug_id, thetext FROM longdescs left JOIN bugs using(bug_id) WHERE (thetext " . $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"); " BY longdescs.bug_when");
$sth->execute(); $sth->execute();
@ -2044,9 +2044,9 @@ if (!($sth->fetchrow_arrayref()->[0])) {
foreach $key (keys(%dupes)) 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')"); $dbh->do("INSERT INTO duplicates VALUES('$dupes{$key}', '$key')");
# BugItsADupeOf Dupe # BugItsADupeOf Dupe
} }
$::regenerateshadow = 1; $::regenerateshadow = 1;