From 77afc93b17ebab9161ba2bd1389566492abe185d Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Wed, 29 Mar 2017 14:57:50 +0200
Subject: Fix escape curly quotes in regex (Fatal error since perl 2.24.

---
 pandoc-cs1 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pandoc-cs1 b/pandoc-cs1
index 614e2ae..0eafbc3 100755
--- a/pandoc-cs1
+++ b/pandoc-cs1
@@ -26,7 +26,7 @@ pandoc_filter sub {
 	return unless ($self->name eq 'RawInline' and $self->format eq 'mediawiki');
 
 	given ($self->content) {
-		when (/^{{cite\s+(\w+)\s*\|([^}]*)}}$/) {
+		when (/^\{\{cite\s+(\w+)\s*\|([^}]*)\}}$/) {
 			my $id = 'ref'.++$i;
 			my @data = pairmap { $b =~ s/"/\\"/g; "$a=\"$b\"" }
 				map { /^\s*(\w+)\s*=\s*"?(.*?)"?\s*$/ }
@@ -61,7 +61,7 @@ pandoc_filter sub {
 				[ Str $id ],
 			);
 		}
-		when (/^{{citation needed}}$/) {
+		when (/^\{\{citation needed\}\}$/) {
 			say STDERR "WARNING: Mediawiki citation needed.";
 			return [
 				Str "citation",
-- 
cgit v1.2.3