remove debug printf's
authorLove Hornquist Astrand <lha@h5l.org>
Tue, 7 May 2013 20:27:10 +0000 (13:27 -0700)
committerLove Hornquist Astrand <lha@h5l.org>
Tue, 7 May 2013 20:27:10 +0000 (13:27 -0700)
cf/make-proto.pl

index b38d1c354b2cca154b0ccfbc241cbd3b781aaf22..4ac88de6fe4e71debd871fb4386363116b7031a7 100644 (file)
@@ -296,10 +296,6 @@ if($oproto) {
 }
 $private_h_trailer = "";
 
-foreach(sort keys %exported){
-    printf(" exported $_\n");
-}
-
 foreach(sort keys %funcs){
     if(/^(main)$/) { next }
     if ($funcs{$_} =~ /\^/) {
@@ -309,7 +305,6 @@ foreach(sort keys %funcs){
        $beginblock = $endblock = "";
     }
     # if we have an export table and doesn't have content, or matches private RE
-    print "exported $_ " . scalar(keys(%exported)) . " " . keys(%exported) . "\n";
     if((scalar(keys(%exported)) ne 0 && !exists $exported{$_} ) || /$private_func_re/) {
        $private_h .= $beginblock;
        $private_h .= $funcs{$_} . "\n" ;