Index: /trunk/doc/misc/parseErrorCodes.pl
===================================================================
--- /trunk/doc/misc/parseErrorCodes.pl	(revision 2404)
+++ /trunk/doc/misc/parseErrorCodes.pl	(revision 2405)
@@ -36,5 +36,5 @@
 print "Datafile:\n" if $verbose;
 foreach my $record (<$dataFile>) {
-    chop $record;
+    chomp $record;
     if ($record =~ /^\s*\#/) {
         print "C $record\n" if $verbose;
@@ -63,5 +63,6 @@
     print "\nOutput File:\n" if $verbose;
     foreach my $record (<$inFile>) {
-        chop $record;
+
+        chomp $record;
         push(@result, $record);
         if ($record =~ /^\s*\/\/~Start(.*)$/) {
@@ -81,5 +82,5 @@
                 }
             }
-            chop;
+            chomp $record;
             push(@result, $record);
         }