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