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

Merge pull request #2782 from pchaigno/perl-heuristic-order

Browse Source 
Reorder Perl heuristic rules
This commit is contained in:
Arfon Smith
2016-01-03 07:44:54 -05:00
parent a944769d61 ca4bc6110f
commit 1b2f574af2
2 changed files with 7 additions and 8 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

1
samples/Perl6/hash.t
View File

@@ -12,7 +12,6 @@ unless EVAL 'EVAL("1", :lang<perl5>)' {
die unless die unless
EVAL(q/ EVAL(q/
package My::Hash; package My::Hash;
use strict;
sub new { sub new {
my ($class, $ref) = @_; my ($class, $ref) = @_;