--- cvsroot/Coro/Coro.pm	2007/09/26 19:27:04	1.138
+++ cvsroot/Coro/Coro.pm	2007/09/27 15:52:30	1.139
@@ -157,8 +157,12 @@
       for @{(delete $self->{destroy_cb}) || []};
 }
 
-sub _do_trace {
-   $current->{_trace_cb}->();
+sub _do_trace_sub {
+   &{$current->{_trace_sub_cb}}
+}
+
+sub _do_trace_line {
+   &{$current->{_trace_line_cb}}
 }
 
 # this coroutine is necessary because a coroutine