allow comments on the same line as non-comment

diff --git a/layout/data2safety b/layout/data2safety
index f2ea3f48aeafca36a1cac5a7fe4edbf24a212bb2..66b1e0de6687ffc9bd725178d3987c5aff9ac221 100755 (executable)
--- a/layout/data2safety
+++ b/layout/data2safety
@@ -481,8 +481,8 @@ sub so_objboob ($$;$) {
 sub mainread () {
     $mistakes= 0;
     while (<>) {
-       next if m/^\#/;
        chomp;
+       s/\#.*//;
        s/\s+$//;
        next unless m/\S/;
        last if m/^end$/;