bug#23466: file command bug

[Djoudi]

Hi

The *file* command probably reports some text files ending with 'end.' 
as Pascal source files like in the following example:

     % file /usr/lib/erlang/**/*.* | grep -i pascal

   /usr/lib/erlang/lib/ic-4.3.6/src/ic_codegen.erl: Pascal source,
   ASCII text
   /usr/lib/erlang/lib/kernel-3.2/src/inet_dns.erl: Pascal source,
   ASCII text
   /usr/lib/erlang/lib/stdlib-2.4/examples/erl_id_trans.erl: Pascal
   source, ASCII text
   /usr/lib/erlang/lib/stdlib-2.4/src/erl_expand_records.erl: Pascal
   source, ASCII text
   /usr/lib/erlang/lib/stdlib-2.4/src/erl_parse.erl: Pascal source,
   ASCII text
   /usr/lib/erlang/lib/stdlib-2.4/src/qlc_pt.erl: Pascal source, ASCII text


Erlang files may end with the string "end." since the dot marker is used 
to terminate expressions.
So, the *file* command should take into account file extensions (.p or 
.pas)  or file MIME types to report Pascal source files.

Best regards.
Brahim Djoudi