From: Frédéric Buclin <LpSolit@gmail.com>
Date: Thu, 29 Mar 2012 22:23:26 +0000 (+0200)
Subject: Fix bustage: Perl 5.8.x doesn't understand \g1 in regexp (must use \1 instead)
X-Git-Tag: bugzilla-4.3.1~37
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=29416b9fc691e0af9ba8974c5f24f8ad4b9f8c16;p=thirdparty%2Fbugzilla.git

Fix bustage: Perl 5.8.x doesn't understand \g1 in regexp (must use \1 instead)
---

diff --git a/Bugzilla/Search/Quicksearch.pm b/Bugzilla/Search/Quicksearch.pm
index cd4deb94c8..5c079c66d2 100644
--- a/Bugzilla/Search/Quicksearch.pm
+++ b/Bugzilla/Search/Quicksearch.pm
@@ -408,7 +408,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;
                     }