Changeset 2405

Timestamp:

Nov 22, 2004, 7:08:35 PM (22 years ago)

Author:

jhoblitt

Message:

change chop to chomp

File:

• trunk/doc/misc/parseErrorCodes.pl (modified) (3 diffs)

trunk/doc/misc/parseErrorCodes.pl

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