KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-12-08 20:38:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Reorder Perl heuristic rules

Browse Source 
Order heuristic rules by accuracy
Heuristic rules which are expected to generated
less false positives should be tested first
This commit is contained in:
Paul Chaignon
2015-12-23 21:43:55 +01:00
parent efdc790374
commit 9a070d7bb3
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/linguist/heuristics.rb
View File

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