Fix escape curly quotes in regex (Fatal error since perl 2.24.

1 files 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",