From da5189e7fbfb8b65bde85adae85695abcfa8f28a Mon Sep 17 00:00:00 2001
From: mattn <mattn.jp@gmail.com>
Date: Wed, 1 Jul 2015 16:23:38 +0900
Subject: [PATCH 1/2] Append Test::More into strict.t. Because, most of tap
 scripts on Perl5 are detected as Perl6.

---
 samples/Perl/strict.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/samples/Perl/strict.t b/samples/Perl/strict.t
index 04cea2f8..a9d4ec8c 100644
--- a/samples/Perl/strict.t
+++ b/samples/Perl/strict.t
@@ -1,4 +1,5 @@
 use Test::Base;
+use Test::More;
 
 __DATA__
 === Strict Test

From 6a185a3d3a05e285f69f6ae20f99b1211af39aa6 Mon Sep 17 00:00:00 2001
From: mattn <mattn.jp@gmail.com>
Date: Sat, 4 Jul 2015 02:29:01 +0900
Subject: [PATCH 2/2] remove some text contents from test.pl since it affect to
 heuristic search.

---
 samples/Perl6/test.p6 | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/samples/Perl6/test.p6 b/samples/Perl6/test.p6
index 3d12b56c..65073eb9 100644
--- a/samples/Perl6/test.p6
+++ b/samples/Perl6/test.p6
@@ -73,26 +73,6 @@ Here's some POD!  Wooo
 
 say('this is not!');
 
-=table
-    Of role things
-
-say('not in your table');
-#= A single line declarator "block" (with a keyword like role)
-#| Another single line declarator "block" (with a keyword like role)
-#={
-    A declarator block (with a keyword like role)
-  }
-#|{
-    Another declarator block (with a keyword like role)
-  }
-#= { A single line declarator "block" with a brace (with a keyword like role)
-#=«
-    More declarator blocks! (with a keyword like role)
-  »
-#|«
-    More declarator blocks! (with a keyword like role)
-  »
-
 say 'Moar code!';
 
 my $don't = 16;