From: ian Date: Fri, 6 Feb 2004 23:49:32 +0000 (+0000) Subject: remove debug stuff X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=e0cdb22d0d3192b51b923bb608123f0021dc5ea7;p=trains.git remove debug stuff --- diff --git a/layout/layout b/layout/layout index 35bbcac..7bcd88a 100755 --- a/layout/layout +++ b/layout/layout @@ -945,19 +945,14 @@ sub layer_draw ($$) { $r= 'ARSCLMNO'; } foreach $eo (@eopts) { -print STDERR "layer_draw E ($k,$l) /^$eo->{GlobRe}/\n"; next unless $k =~ m/^$eo->{GlobRe}$/; -print STDERR "layer_draw E ($k,$l) lc\n"; next unless &{ $eo->{LayerCheck} }($l); -print STDERR "layer_draw E ($k,$l) amend $eo->{DrawMods}\n"; foreach $cc (split //, $eo->{DrawMods}) { $r =~ s/$cc//ig; $r .= $cc if $cc =~ m/[A-Z]/; } } -print STDERR "layer_draw A ($k,$l) = $r\n"; $r= &{ $ctx->{DrawMap} }($r); -print STDERR "layer_draw B ($k,$l) = $r\n"; return $r; }