r17162@mel: andy | 2006-08-31 00:40:44 -0500

 Added mason

Ack.pm

@@ -16,6 +16,31 @@ Version 1.27_01
 
 our $VERSION = '1.27_01';
 
+our %mappings = (
+    asm         => [qw( s S )],
+    binary      => q{Binary files, as defined by Perl's -B op (default: off)},
+    cc          => [qw( c h )],
+    css         => [qw( css )],
+    elisp       => [qw( el )],
+    haskell     => [qw( hs lhs )],
+    html        => [qw( htm html shtml )],
+    lisp        => [qw( lisp )],
+    js          => [qw( js )],
+    mason       => [qw( mas )],
+    ocaml       => [qw( ml mli )],
+    parrot      => [qw( pir pasm pmc ops pod pg tg )],
+    perl        => [qw( pl pm pod tt ttml t )],
+    php         => [qw( php phpt htm html )],
+    python      => [qw( py )],
+    ruby        => [qw( rb rhtml rjs )],
+    scheme      => [qw( scm )],
+    shell       => [qw( sh bash csh ksh zsh )],
+    sql         => [qw( sql ctl )],
+    tt          => [qw( tt tt2 )],
+    vim         => [qw( vim )],
+    yaml        => [qw( yaml yml )],
+);
+
 =head1 SYNOPSIS
 
 No user-serviceable parts inside.  F<ack> is all that should use this.