From e5f7bb4fa196650230701a157bb4df4be1da3d39 Mon Sep 17 00:00:00 2001
From: Roy Storey <kiwiroy@users.noreply.github.com>
Date: Wed, 29 Nov 2017 05:49:39 +1300
Subject: [PATCH 1/2] should still pass test

---
 test/fixtures/file-variables.sh | 28 ++++++++++++++++++++++++++++
 test/markups/README.pod         |  1 +
 2 files changed, 29 insertions(+)
 create mode 100755 test/fixtures/file-variables.sh

diff --git a/test/fixtures/file-variables.sh b/test/fixtures/file-variables.sh
new file mode 100755
index 00000000..d1619583
--- /dev/null
+++ b/test/fixtures/file-variables.sh
@@ -0,0 +1,28 @@
+#!/bin/bash
+
+./lib/github/commands/pod2html <( cat - <<EOF
+=pod
+
+=head1 NAME
+
+Test
+
+=cut
+
+# -*- mode: perl; -*-
+EOF
+) | grep -q '<h1 id="NAME">' || { echo "not ok 1"; exit 1; } && { echo "ok 1"; }
+
+./lib/github/commands/pod2html <( cat - <<EOF
+#!/usr/bin/perl
+# -*- mode: perl; -*-
+
+=pod
+
+=head1 NAME
+
+Test
+
+=cut
+EOF
+) | grep -q '<h1 id="NAME">' || { echo "not ok 2"; exit 1; } && { echo "ok 2"; }
diff --git a/test/markups/README.pod b/test/markups/README.pod
index 8c92eb5b..1a38dde6 100644
--- a/test/markups/README.pod
+++ b/test/markups/README.pod
@@ -1,3 +1,4 @@
+# -*- mode: perl; -*-
 =head1 Matrixy
 
 =head2 INTRODUCTION

From 94066904924829b47d7fe2319ed948ca8e2d5a82 Mon Sep 17 00:00:00 2001
From: Roy Storey <kiwiroy@users.noreply.github.com>
Date: Wed, 29 Nov 2017 10:42:01 +1300
Subject: [PATCH 2/2] add Perl to the list of languages for POD

---
 lib/github/markups.rb           | 2 +-
 test/fixtures/file-variables.sh | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/lib/github/markups.rb b/lib/github/markups.rb
index 61138e85..b27f8ddd 100644
--- a/lib/github/markups.rb
+++ b/lib/github/markups.rb
@@ -51,4 +51,4 @@
   "restructuredtext"
 )
 
-command(::GitHub::Markups::MARKUP_POD, :pod2html, /pod/, ["Pod"], "pod")
+command(::GitHub::Markups::MARKUP_POD, :pod2html, /pod/, ["Pod", "Perl"], "pod")
diff --git a/test/fixtures/file-variables.sh b/test/fixtures/file-variables.sh
index d1619583..99792ffe 100755
--- a/test/fixtures/file-variables.sh
+++ b/test/fixtures/file-variables.sh
@@ -1,5 +1,6 @@
 #!/bin/bash
 
+t=1
 ./lib/github/commands/pod2html <( cat - <<EOF
 =pod
 
@@ -11,7 +12,8 @@ Test
 
 # -*- mode: perl; -*-
 EOF
-) | grep -q '<h1 id="NAME">' || { echo "not ok 1"; exit 1; } && { echo "ok 1"; }
+) | grep -q '<h1 id="NAME">' || { echo "not ok $t"; exit 1; } && { echo "ok $t"; }
+let t=($t + 1)
 
 ./lib/github/commands/pod2html <( cat - <<EOF
 #!/usr/bin/perl
@@ -25,4 +27,5 @@ Test
 
 =cut
 EOF
-) | grep -q '<h1 id="NAME">' || { echo "not ok 2"; exit 1; } && { echo "ok 2"; }
+) | grep -q '<h1 id="NAME">' || { echo "not ok $t"; exit 1; } && { echo "ok $t"; }
+let t=($t + 1)