Merge pull request #376 from krkeegan/CODE_Definition

Allow End of Line Comments in CODE Definition
hollie · Feb 28, 2014 · 5ce062c · 5ce062c
2 parents c818575 + 1bbf54a
commit 5ce062c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/bin/mh b/bin/mh
@@ -4778,7 +4778,6 @@ sub read_table_files {
                     print TABLE_OUT $_;
                     next;
                 }
-                $_ =~ s/#.*//;      # Strip off comments                                                
                 next if (/^\s*$/);  # Skip blank lines
         }
             if ($format) {

diff --git a/lib/read_table_A.pl b/lib/read_table_A.pl
@@ -29,6 +29,7 @@ sub read_table_init_A {
 
 sub read_table_A {
     my ($record) = @_;
+    my $record_raw = $record;
 
     if($record =~ /^#/ or $record =~ /^\s*$/) {
        return;
@@ -275,7 +276,7 @@ sub read_table_A {
     }
     elsif($type eq "CODE") {
 	# This is for simple one line additions such as setting an attribute or adding an image.
-	($object) = "$record" =~ /CODE,\s+(.*)/;
+	($object) = "$record_raw" =~ /CODE,\s+(.*)/;
 	$code = "$object\n";
 	$object = '';
     }