From e7071b22f339cc64d66bebc3be63119cc4cd285d Mon Sep 17 00:00:00 2001
From: "cls%seawood.org" <cls%seawood.org>
Date: Wed, 5 Jul 2006 21:39:18 +0000
Subject: [PATCH] Use $1 instead of \1 to avoid perl warnings in log files. Bug
 #325453

---
 webtools/bonsai/cvsquery.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/webtools/bonsai/cvsquery.cgi b/webtools/bonsai/cvsquery.cgi
index 6ae56e504ec9..23c7e653fe89 100755
--- a/webtools/bonsai/cvsquery.cgi
+++ b/webtools/bonsai/cvsquery.cgi
@@ -193,7 +193,7 @@ $::query_branch = $::FORM{'branch'};
 $::query_branchtype = &ExpectMatchtype($::FORM{'branchtype'});
 $::query_branch = 'HEAD' if !defined($::query_branch);
 if ($::query_branchtype eq 'notregexp' || $::query_branchtype eq 'regexp') {
-    $::query_branch =~ s/\W*([\w-]+).*/\1/;
+    $::query_branch =~ s/\W*([\w-]+).*/$1/;
 } else {
     $::query_branch = &SanitizeRevision($::query_branch);
 }