# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1425874586 -7200
# Node ID 635da7cf43b658c23fb631d1bfd54fbca3d5c5ef
# Parent  f749342539dee6d106285e15a495117f39b338d8
Fixes.

diff -r f749342539de -r 635da7cf43b6 materials/parsematerial.pl
--- a/materials/parsematerial.pl	Mon Mar 09 06:09:52 2015 +0200
+++ b/materials/parsematerial.pl	Mon Mar 09 06:16:26 2015 +0200
@@ -375,10 +375,10 @@
 my %data = ();
 my $name = "";
 my $nline = 0;
-while (defined($line = <STDIN>))
+while (defined(my $line = <STDIN>))
 {
   $nline++;
-  chomp;
+  chomp($line);
   if ($line =~ /MATERIAL STATS \(([a-z ]+)\)\:/)
   {
     $name = $1;