From: ian <ian>
Date: Sun, 11 May 2008 18:34:24 +0000 (+0000)
Subject: allow comments on the same line as non-comment
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=3e67189b437372fc9b149ca75e97d64e65ed5c44;p=trains.git

allow comments on the same line as non-comment
---

diff --git a/layout/data2safety b/layout/data2safety
index f2ea3f4..66b1e0d 100755
--- 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$/;