Create Perl6 heuristic

This commit is contained in:
Rob Hoelz
2014-11-26 16:28:00 -06:00
parent 837e9a6325
commit ed3d38cf05

View File

@@ -70,8 +70,10 @@ module Linguist
end end
end end
disambiguate "Perl", "Prolog" do |data| disambiguate "Perl", "Perl6", "Prolog" do |data|
if data.include?("use strict") if data.include?("use v6")
Language["Perl6"]
elsif data.include?("use strict")
Language["Perl"] Language["Perl"]
elsif data.include?(":-") elsif data.include?(":-")
Language["Prolog"] Language["Prolog"]