# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1425785708 -7200
# Node ID 57ded86f87b7e35c6bb3522108ed291509a4e139
# Parent  34a4806821399c7a8d966b12ef763a0ae3a6c7ff
Cleanups.

diff -r 34a480682139 -r 57ded86f87b7 materials/parsematerial.pl
--- a/materials/parsematerial.pl	Sun Mar 08 05:01:58 2015 +0200
+++ b/materials/parsematerial.pl	Sun Mar 08 05:35:08 2015 +0200
@@ -636,28 +636,19 @@
 elsif ($opt_mode eq "-php")
 {
   print "<?\n".
-  "\$transNameTable = array(";
-  foreach my $info (@fieldInfo) {
-    print "\"".$$info{"l"}."\",";
-  }
-  print ");\n\n".
+  "\$transNameTable = array(".
+  join(",", map { "\"".$$_{"l"}."\"" } @fieldInfo).
+  ");\n\n".
   "\$transTable = array(\n";
   foreach my $i (sort { $a <=> $b } keys %transTable)
   {
     print "  array(";
     foreach my $j (keys %{$transTable{$i}})
     {
-      if (defined($transTable{$i}{$j}))
-      {
-        print $transTable{$i}{$j};
-        $j =~ s/very /v./;
-        $j =~ s/incredibly /incr./;
-        print " => \"$j\","
-      }
-      else
-      {
-        print STDERR "$0: Unknown transTable type $i : $j\n";
-      }
+      print $transTable{$i}{$j};
+      $j =~ s/very /v./;
+      $j =~ s/incredibly /incr./;
+      print " => \"".$j."\","
     }
     print "),\n";
   }