From a502cf9085f0394f91a0ae263d51a34dc8445a6b Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Fri, 30 Mar 2012 00:27:12 +0200
Subject: Fix bustage: Perl 5.8.x doesn't understand \g1 in regexp (must use \1
 instead)

---
 Bugzilla/Search/Quicksearch.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Bugzilla/Search')

diff --git a/Bugzilla/Search/Quicksearch.pm b/Bugzilla/Search/Quicksearch.pm
index 7b951d5ae..1d5965bf7 100644
--- a/Bugzilla/Search/Quicksearch.pm
+++ b/Bugzilla/Search/Quicksearch.pm
@@ -421,7 +421,7 @@ sub _handle_field_names {
                     # If the string was quoted to protect some special
                     # characters such as commas and colons, we need
                     # to remove quotes.
-                    if ($value =~ /^(["'])(.+)\g1$/) {
+                    if ($value =~ /^(["'])(.+)\1$/) {
                         $value = $2;
                         $value =~ s/\\(["'])/$1/g;
                     }
-- 
cgit v1.2.3-24-g4f1b