Modified generate-mime-types from [ce8a54e188] to [64211e4a81].

    77     77   	set hash_id [filed_hash $extension $modulus]
    78     78   
    79     79   	lappend hashinfo($hash_id) $extension
    80     80   
    81     81   }
    82     82   
    83     83   # Emit a C fragment to take a pointer (p) to an extension determine the mime type
    84         -puts "\tswitch (filed_hash((const unsigned char *) p, $modulus)) \{"
    85         -foreach hash [lsort -integer -increasing [array names hashinfo]] {
    86         -	puts "\t\tcase $hash:"
    87         -	foreach extension $hashinfo($hash) {
    88         -		puts "\t\t\tif (strcmp(p, \"$extension\") == 0) \{"
    89         -		puts "\t\t\t\treturn(\"$extensioninfo($extension)\");"
    90         -		puts "\t\t\t\}"
           84  +if {[llength [array names hashinfo]] > 0} {
           85  +	puts "\tswitch (filed_hash((const unsigned char *) p, $modulus)) \{"
           86  +	foreach hash [lsort -integer -increasing [array names hashinfo]] {
           87  +		puts "\t\tcase $hash:"
           88  +		foreach extension $hashinfo($hash) {
           89  +			puts "\t\t\tif (strcmp(p, \"$extension\") == 0) \{"
           90  +			puts "\t\t\t\treturn(\"$extensioninfo($extension)\");"
           91  +			puts "\t\t\t\}"
           92  +		}
           93  +		puts "\t\t\treturn(FILED_DEFAULT_TYPE);"
    91     94   	}
    92         -	puts "\t\t\treturn(FILED_DEFAULT_TYPE);"
           95  +	puts "\t\}"
    93     96   }
    94         -puts "\t\}"
    95     97   
    96     98   # Declare victory
    97     99   exit 0