gitweb.perl: fix %highlight_ext mappings

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 5c9cfee6343d2a4d801d247d809bdd659426f9891df00145c65f0fddcef6416f..b9ceaf90f6124187f868062e37e521ae85bf5206bc7000b7ca2d2a17823163ba 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -271,16 +271,15 @@ our %highlight_basename = (
 our %highlight_ext = (
        # main extensions, defining name of syntax;
        # see files in /usr/share/highlight/langDefs/ directory
 our %highlight_ext = (
        # main extensions, defining name of syntax;
        # see files in /usr/share/highlight/langDefs/ directory

-       map { $_ => $_ }
-               qw(py c cpp rb java css php sh pl js tex bib xml awk bat ini spec tcl sql make),
+       (map { $_ => $_ } qw(py rb java css js tex bib xml awk bat ini spec tcl sql)),

        # alternate extensions, see /etc/highlight/filetypes.conf
        # alternate extensions, see /etc/highlight/filetypes.conf

-       'h' => 'c',
-       map { $_ => 'sh'  } qw(bash zsh ksh),
-       map { $_ => 'cpp' } qw(cxx c++ cc),
-       map { $_ => 'php' } qw(php3 php4 php5 phps),
-       map { $_ => 'pl'  } qw(perl pm), # perhaps also 'cgi'
-       map { $_ => 'make'} qw(mak mk),
-       map { $_ => 'xml' } qw(xhtml html htm),
+       (map { $_ => 'c'   } qw(c h)),
+       (map { $_ => 'sh'  } qw(sh bash zsh ksh)),
+       (map { $_ => 'cpp' } qw(cpp cxx c++ cc)),
+       (map { $_ => 'php' } qw(php php3 php4 php5 phps)),
+       (map { $_ => 'pl'  } qw(pl perl pm)), # perhaps also 'cgi'
+       (map { $_ => 'make'} qw(make mak mk)),
+       (map { $_ => 'xml' } qw(xml xhtml html htm)),

 );
 
 # You define site-wide feature defaults here; override them with
 );
 
 # You define site-wide feature defaults here; override them with