From 1bc9d9c097bf75e0d210bdf3109f445e85308a39 Mon Sep 17 00:00:00 2001
From: petdance <petdance@0c8536a8-3c1a-0410-a247-91dcf638db7e>
Date: Mon, 4 Sep 2006 06:24:30 +0000
Subject: [PATCH]  r17162@mel:  andy | 2006-08-31 00:40:44 -0500  Added mason

---
 Ack.pm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/Ack.pm b/Ack.pm
index 347178d..669f4b7 100644
--- a/Ack.pm
+++ b/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.