Mercurial > hg > batmud > misc

changeset 264:09e3f16fbf63 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetics.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Mar 2015 07:49:37 +0200
parents a3270c80e3c0
children acb168049adf
files materials/parsematerial.pl
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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";