chiark / gitweb /
remove debugging output
authorian <ian>
Mon, 2 Feb 2004 00:39:12 +0000 (00:39 +0000)
committerian <ian>
Mon, 2 Feb 2004 00:39:12 +0000 (00:39 +0000)
layout/layout

index f40e690a7ad90500a389714290b0703fdda16d2d..381bdf5df286529f3e006a83d2d611981d3ee5d5 100755 (executable)
@@ -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); }