From a18e88cf444da89b0b41243f03d1f08ff7681576 Mon Sep 17 00:00:00 2001
From: Paulo Moura <pmoura@logtalk.org>
Date: Tue, 9 Aug 2011 11:11:04 -0500
Subject: [PATCH] Minor improvement for detecting Perl files.

---
 src/detector.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/detector.c b/src/detector.c
index 87f634cc..0aa71fc0 100644
--- 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