gitweb: allow space as delimiter in mime.types

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index cd1a01959713e7501dac401d90613b6d2ddefdbfbae8cbf9d8f1c65038db4d71..dacd4dc0b1f8b589c8d7538a373eba969835d81b6e9f87940b2f6cd480e6886d 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -2645,7 +2645,7 @@ sub git_get_project_ctags {
                        close $ct;
 
                        (my $ctag = $tagfile) =~ s#.*/##;
-                       if ($val =~ /\d+/) {
+                       if ($val =~ /^\d+$/) {
                                $ctags->{$ctag} = $val;
                        } else {
                                $ctags->{$ctag} = 1;
@@ -3561,12 +3561,9 @@ sub mimetype_guess_file {
        open(my $mh, '<', $mimemap) or return undef;
        while (<$mh>) {
                next if m/^#/; # skip comments
-               my ($mimetype, $exts) = split(/\t+/);
-               if (defined $exts) {
-                       my @exts = split(/\s+/, $exts);
-                       foreach my $ext (@exts) {
-                               $mimemap{$ext} = $mimetype;
-                       }
+               my ($mimetype, @exts) = split(/\s+/);
+               foreach my $ext (@exts) {
+                       $mimemap{$ext} = $mimetype;
                }
        }
        close($mh);