Minor improvement for detecting Perl files.

blackducksoftware · Aug 9, 2011 · a18e88c · a18e88c
1 parent de940f2
commit a18e88c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/detector.c b/src/detector.c
@@ -693,6 +693,8 @@ const char *disambiguate_pl(SourceFile *sourcefile) {
 	char *contents = ohcount_sourcefile_get_contents(sourcefile);
   if (contents && strstr(contents, "#!/usr/bin/perl"))
     return LANG_PERL;
+  else if (contents && strstr(contents, "#!/usr/local/bin/perl"))
+    return LANG_PERL;
   else if (contents && strstr(contents, ":-"))
     return LANG_PROLOG;
   else