diff options
| author | bbaetz%student.usyd.edu.au <> | 2002-08-15 08:30:40 +0200 |
|---|---|---|
| committer | bbaetz%student.usyd.edu.au <> | 2002-08-15 08:30:40 +0200 |
| commit | 684246432c854ffab436304470545f1da46eae07 (patch) | |
| tree | e2804735a1a299868991c20c48152b18538785c7 | |
| parent | dcb07b50e043893ff849b16890f9ea3c6aadc647 (diff) | |
| download | bugzilla-684246432c854ffab436304470545f1da46eae07.tar.gz bugzilla-684246432c854ffab436304470545f1da46eae07.tar.xz | |
Bug 151619 - Problem with the regex in checksetup.pl to find dependancies
r=jouni, joel
| -rwxr-xr-x | checksetup.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/checksetup.pl b/checksetup.pl index 7c6b7d399..4cf164f09 100755 --- 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 } |