From 9a070d7bb3c7f1fa1a5958ed42cf5e30606db652 Mon Sep 17 00:00:00 2001 From: Paul Chaignon Date: Wed, 23 Dec 2015 21:43:55 +0100 Subject: [PATCH 1/2] Reorder Perl heuristic rules Order heuristic rules by accuracy Heuristic rules which are expected to generated less false positives should be tested first --- lib/linguist/heuristics.rb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lib/linguist/heuristics.rb b/lib/linguist/heuristics.rb index 7c1c7db1..01be4e33 100644 --- a/lib/linguist/heuristics.rb +++ b/lib/linguist/heuristics.rb @@ -276,20 +276,20 @@ module Linguist end disambiguate ".pl" do |data| - if /^(use v6|(my )?class|module)/.match(data) - Language["Perl6"] + if /^[^#]+:-/.match(data) + Language["Prolog"] elsif /use strict|use\s+v?5\./.match(data) Language["Perl"] - elsif /^[^#]+:-/.match(data) - Language["Prolog"] + elsif /^(use v6|(my )?class|module)/.match(data) + Language["Perl6"] end end disambiguate ".pm", ".t" do |data| - if /^(use v6|(my )?class|module)/.match(data) - Language["Perl6"] - elsif /use strict|use\s+v?5\./.match(data) + if /use strict|use\s+v?5\./.match(data) Language["Perl"] + elsif /^(use v6|(my )?class|module)/.match(data) + Language["Perl6"] end end From ca4bc6110f2a99bc54072d4924c28dec5e3b101a Mon Sep 17 00:00:00 2001 From: Paul Chaignon Date: Sun, 3 Jan 2016 11:47:09 +0100 Subject: [PATCH 2/2] Remove 'use strict' from Perl6 sample --- samples/Perl6/hash.t | 1 - 1 file changed, 1 deletion(-) diff --git a/samples/Perl6/hash.t b/samples/Perl6/hash.t index 7bff849e..24ba2b50 100644 --- a/samples/Perl6/hash.t +++ b/samples/Perl6/hash.t @@ -12,7 +12,6 @@ unless EVAL 'EVAL("1", :lang)' { die unless EVAL(q/ package My::Hash; -use strict; sub new { my ($class, $ref) = @_;