# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1425793777 -7200
# Node ID 09e3f16fbf630b3e1a51655a3acb5dafdd28e9fe
# Parent  a3270c80e3c0f2b9545a3a549256ee8f9854d37c
Cosmetics.

diff -r a3270c80e3c0 -r 09e3f16fbf63 materials/parsematerial.pl
--- a/materials/parsematerial.pl	Sun Mar 08 06:24:38 2015 +0200
+++ b/materials/parsematerial.pl	Sun Mar 08 07:49:37 2015 +0200
@@ -495,7 +495,8 @@
 }
 
 # Print CSV list
-elsif ($opt_mode eq "-csv") {
+elsif ($opt_mode eq "-csv")
+{
   foreach my $name (@entries)
   {
     my $str = "";
@@ -585,7 +586,7 @@
   print "$str\n";
   $str =~ s/[^|]/-/g;
   $str =~ s/\|/+/g;
-  print "$str\n";
+  print $str."\n";
 
   foreach my $name (@entries)
   {
@@ -613,9 +614,13 @@
   $Data::Dumper::Useqq  = 1; 
   $Data::Dumper::Purity = 1;
 
-  print "package Materials;\nrequire Exporter;\n".
-  "\@ISA = qw(Exporter);\n\n".
-  "\@EXPORT = qw(matTable transTable matByType matTypes);\n\n";
+  print
+    "package Materials;\n".
+    "require Exporter;\n".
+    "\@ISA = qw(Exporter);\n".
+    "\n".
+    "\@EXPORT = qw(matTable transTable revTransTable matByType matTypes);\n".
+    "\n";
 
   my $dumper = Data::Dumper->new([\%data], ["matTable"]);
   print "our ".$dumper->Dump()."\n\n";