KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix test for Perl heuristic

Browse Source 
Improve heuristic rule for Perl6
Separate heuristic rules for .pl (with Prolog) and .pm (without Prolog)
This commit is contained in:
Paul Chaignon
2015-06-06 19:55:04 +02:00
parent b05f6f0018
commit be122ca1a5
2 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/linguist/heuristics.rb
View File

@@ -93,15 +93,23 @@ module Linguist
end
disambiguate ".pl" do |data|
if data.include?("use v6")
if /^(use v6|(my )?class|module)/.match(data)
Language["Perl6"]
elsif data.match(/use strict|use\s+v?5\./)
elsif /use strict|use\s+v?5\./.match(data)
Language["Perl"]
elsif /^[^#]+:-/.match(data)
Language["Prolog"]
end
end
disambiguate ".pm" do |data|
if /^(use v6|(my )?class|module)/.match(data)
Language["Perl6"]
elsif /use strict|use\s+v?5\./.match(data)
Language["Perl"]
end
end
disambiguate ".ecl" do |data|
if /^[^#]+:-/.match(data)
Language["Prolog"]