Merge branch 'master' of https://github.com/samcv/linguist into master

lib/linguist/heuristics.rb

@@ -175,7 +175,7 @@ def call(data)
         Language["ECL"]
       end
     end
-    
+
     disambiguate ".es" do |data|
       if /^\s*(?:%%|main\s*\(.*?\)\s*->)/.match(data)
         Language["Erlang"]
@@ -380,6 +380,22 @@ def call(data)
       end
     end
 
+    disambiguate ".pod" do |data|
+      if /^\s*=\w+$/.match(data)
+        if /^=pod|=cut/.match(data)
+          Language["Pod"]
+        elsif /^\s*=begin pod/.match(data)
+          Language["Perl 6"]
+        else
+          Language["Pod"]
+        end
+      elsif Perl6Regex.match(data)
+        Language["Perl 6"]
+      elsif /^\s*\/\* XPM \*\//.match(data)
+        Language["XPM"]
+      end
+    end
+
     disambiguate ".pro" do |data|
       if /^[^\[#]+:-/.match(data)
         Language["Prolog"]
@@ -455,13 +471,13 @@ def call(data)
         Language["SQL"]
       end
     end
-    
+
     disambiguate ".srt" do |data|
       if /^(\d{2}:\d{2}:\d{2},\d{3})\s*(-->)\s*(\d{2}:\d{2}:\d{2},\d{3})$/.match(data)
         Language["SubRip Text"]
       end
     end
-    
+
     disambiguate ".t" do |data|
       if Perl5Regex.match(data)
         Language["Perl"]
@@ -471,7 +487,7 @@ def call(data)
         Language["Turing"]
       end
     end
-    
+
     disambiguate ".toc" do |data|
       if /^## |@no-lib-strip@/.match(data)
         Language["World of Warcraft Addon Data"]
@@ -504,15 +520,15 @@ def call(data)
         Language["XML"]
       end
     end
-  
+
     disambiguate ".w" do |data|
       if (data.include?("&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS"))
         Language["OpenEdge ABL"]
       elsif /^@(<|\w+\.)/.match(data)
         Language["CWeb"]
       end
     end
-  
+
     disambiguate ".x" do |data|
       if /\b(program|version)\s+\w+\s*{|\bunion\s+\w+\s+switch\s*\(/.match(data)
         Language["RPC"]

lib/linguist/languages.yml

@@ -3401,6 +3401,8 @@ Perl 6:
   - ".pl6"
   - ".pm"
   - ".pm6"
+  - ".pod"
+  - ".pod6"
   - ".t"
   filenames:
   - Rexfile