Added version numbers ot the shebang detection

Ack.pm

@@ -539,7 +539,7 @@ sub filetypes {
     close $fh;
 
     if ( $header =~ /^#!/ ) {
-        return ($1,TEXT)       if $header =~ /\b(ruby|lua|p(?:erl|hp|ython))\d*\b/;
+        return ($1,TEXT)       if $header =~ /\b(ruby|lua|p(?:erl|hp|ython))-?(\d[\d.]*)?\b/;
         return ('shell',TEXT)  if $header =~ /\b(?:ba|t?c|k|z)?sh\b/;
     }
     else {

Changes

@@ -9,6 +9,12 @@ NEXT
 
     Added .pm6 as a --perl extension.
 
+    Lua can now get detected from the shebang line.  Thanks, Matthew Wild.
+
+    Added support for version numbers in executables in shebang
+    detection.  Now if your Perl program's shebang refers to
+    /usr/local/bin/perl-5.14.1, ack will find it.
+
 
 1.94        Mon Nov 15 22:38:48 CST 2010
 

ack

@@ -908,6 +908,7 @@ L<http://github.com/petdance/ack>
 How appropriate to have I<ack>nowledgements!
 
 Thanks to everyone who has contributed to ack in any way, including
+Matthew Wild,
 Scott Kyle,
 Nick Hooey,
 Bo Borgerson,
@@ -1623,7 +1624,7 @@ sub filetypes {
     close $fh;
 
     if ( $header =~ /^#!/ ) {
-        return ($1,TEXT)       if $header =~ /\b(ruby|p(?:erl|hp|ython))\b/;
+        return ($1,TEXT)       if $header =~ /\b(ruby|lua|p(?:erl|hp|ython))-?(\d[\d.]*)?\b/;
         return ('shell',TEXT)  if $header =~ /\b(?:ba|t?c|k|z)?sh\b/;
     }
     else {

ack-base

@@ -900,6 +900,7 @@ L<http://github.com/petdance/ack>
 How appropriate to have I<ack>nowledgements!
 
 Thanks to everyone who has contributed to ack in any way, including
+Matthew Wild,
 Scott Kyle,
 Nick Hooey,
 Bo Borgerson,

t/swamp/perl-without-extension

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl-5.14.1 -w
 
 use strict;
 use warnings;