Bug 151619 - Problem with the regex in checksetup.pl to find dependancies

r=jouni, joel

Bug 151619 - Problem with the regex in checksetup.pl to find dependancies
68424643 · bbaetz%student.usyd.edu.au · dcb07b50 · 68424643
Commit 68424643 authored Aug 15, 2002 by bbaetz%student.usyd.edu.au
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

checksetup.pl checksetup.pl +2 -1

No files found.
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -2782,7 +2782,8 @@ 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} =~ /^.*\*\*\* This bug has been marked as a duplicate of (\d+) \*\*\*$/ms;
+                $dupes{$key} = $1;
                $dbh->do("INSERT INTO duplicates VALUES('$dupes{$key}', '$key')");
                #                                        BugItsADupeOf   Dupe
        }