lib/linguist/heuristics.rb in github-linguist-4.3.1 vs lib/linguist/heuristics.rb in github-linguist-4.4.0

@@ -90,11 +90,11 @@
     end
 
     disambiguate "Perl", "Perl6", "Prolog" do |data|
       if data.include?("use v6")
         Language["Perl6"]
-      elsif data.include?("use strict")
+      elsif data.match(/use strict|use\s+v?5\./)
         Language["Perl"]
       elsif data.include?(":-")
         Language["Prolog"]
       end
     end
@@ -155,10 +155,10 @@
     end
 
     disambiguate "FORTRAN", "Forth" do |data|
       if /^: /.match(data)
         Language["Forth"]
-      elsif /^([c*][^a-z]|      (subroutine|program)\s|!)/i.match(data)
+      elsif /^([c*][^a-z]|      (subroutine|program)\s|\s*!)/i.match(data)
         Language["FORTRAN"]
       end
     end
 
     disambiguate "F#", "Forth", "GLSL" do |data|