From: ian Date: Mon, 2 Feb 2004 00:39:12 +0000 (+0000) Subject: remove debugging output X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=f45132c534a29a6c2e009b12fb03645d3d92be54;p=trains.git remove debugging output --- diff --git a/layout/layout b/layout/layout index f40e690..381bdf5 100755 --- a/layout/layout +++ b/layout/layout @@ -749,19 +749,14 @@ sub cmd_layer { } else { $ctx->{Draw}= 'ARSCLMNO'; } - print STDERR "layer $k $l drawdef |$ctx->{Draw}|\n"; foreach $eo (@eopts) { - print STDERR "layer $k $l eo $eo->{GlobRe}\n"; next unless $k =~ m/^$eo->{GlobRe}$/; - print STDERR "layer $k $l lc $eo->{LayerCheck}\n"; next unless &{ $eo->{LayerCheck} }($l); - print STDERR "layer $k $l dm $eo->{DrawMods}\n"; foreach $cc (split //, $eo->{DrawMods}) { $ctx->{Draw} =~ s/$cc//ig; $ctx->{Draw} .= $cc if $cc =~ m/[A-Z]/; } } - print STDERR "layer $k $l drawing |$ctx->{Draw}|\n"; } sub cmd_part { cmd__obj(Part); }