From e3846a222a5e715935b943f1d5de8ccb410e24dc Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Wed, 8 Jun 2016 22:40:28 +0200
Subject: [PATCH] workaround for "Unescaped left brace in regex" issue (RT
 #115109)

---
 t/anchors.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/anchors.t b/t/anchors.t
index a98d13d..a8402cd 100644
--- a/t/anchors.t
+++ b/t/anchors.t
@@ -54,7 +54,7 @@ my $output;
 
 $toc->setOptions({
     #header => '',  # by default, \n<!-- Table of Contents generated by Perl - HTML::Toc -->\n
-    insertionPoint => 'replace {{toc}}',
+    insertionPoint => 'replace \{\{toc}}',
     doLinkToId => 0,
     levelToToc => "[1-6]",
     templateAnchorName => \&assembleAnchorName,
@@ -333,7 +333,7 @@ $toc->setOptions({
     header => '',  # by default, \n<!-- Table of Contents generated by Perl - HTML::Toc -->\n
     templateAnchorName => \&assembleAnchorName,
     levelToToc => "[1-1]",
-    insertionPoint => 'replace {{toc \[?\d*-?\d*\]?}}'
+    insertionPoint => 'replace \{\{toc \[?\d*-?\d*\]?}}'
 });
 $tocInsertor->insert($toc, $content, {output => \$output});
 eq_or_diff($output, <<'HTML', 'range of header levels to make TOC out of: 1-1', {max_width => 120});
@@ -374,7 +374,7 @@ $toc->setOptions({
     header => '',  # by default, \n<!-- Table of Contents generated by Perl - HTML::Toc -->\n
     templateAnchorName => \&assembleAnchorName,
     levelToToc => "[5-8]",
-    insertionPoint => 'replace {{toc \[?\d*-?\d*\]?}}'
+    insertionPoint => 'replace \{\{toc \[?\d*-?\d*\]?}}'
 });
 $tocInsertor->insert($toc, $content, {output => \$output});
 eq_or_diff($output, <<'HTML', 'range of header levels to make TOC out of: 5-', {max_width => 120});
-- 
2.1.4