--- Coro/eg/prodcons3	2001/07/15 02:35:52	1.2
+++ Coro/eg/prodcons3	2006/11/06 19:40:02	1.4
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
-# the classical producer/consumer example, using semaphores
-# one process produces items, send s a signal.
+# the classical producer/consumer example, using a channel
+# one process produces items, sends a signal.
 # another process waits for that signal and
 # consumed the item.
 
@@ -32,7 +32,7 @@
 
 print "producer finished\n";
 
-yield while $work->size;
+cede while $work->size;
 
 print "job finished\n";