reserve /^ [^ ;]/ for statements inserted for debugging purposes

[trains.git] / detpic / make-panicworthy

diff --git a/detpic/make-panicworthy b/detpic/make-panicworthy
index 9f127cf499e4c3a691fe7b63dce0b888e52d302e..94db34fefd8a70a1a7a6f4a8f60ee13afad0cfe4 100755 (executable)
--- a/detpic/make-panicworthy
+++ b/detpic/make-panicworthy
@@ -36,7 +36,7 @@ if (m/^(\w*)\s+code\b/) {
 } elsif (m/^(\w*)\s+(?:equ)\b/) {
 } elsif (m/^\s+extern\s+(\w+)\b/) {
     mangle($1);
-    print " extern $pfx$1;##\n" or die $!
+    print "  extern $pfx$1;##\n" or die $!
        unless $manglout;
 } elsif (!$inmacro && defined $codesection) {
     if (!s/^\;/;\#\#/) {
@@ -49,7 +49,7 @@ if (m/^(\w*)\s+code\b/) {
     $l= '';
 }
 if (m/^\s+include\s+(\S+)\s+$/ && exists $mapinclude{$1}) {
-    $l= " include $mapinclude{$1}\n";
+    $l= "  include $mapinclude{$1}\n";
 }    
 print $l or die $!
     unless $manglout;