chiark / gitweb /
remove debug stuff
authorian <ian>
Fri, 6 Feb 2004 23:49:32 +0000 (23:49 +0000)
committerian <ian>
Fri, 6 Feb 2004 23:49:32 +0000 (23:49 +0000)
layout/layout

index 35bbcac5c0dc151250b76e79ca189afd814525ba..7bcd88a5c05d47ff57928fd135517b24997cee45 100755 (executable)
@@ -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;
 }