This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
better explanation of C<> tags (from Wolfgang Laun)
[perl5.git] / fakethr.h
index 8b1e76f..098fefe 100644 (file)
--- a/fakethr.h
+++ b/fakethr.h
@@ -34,7 +34,7 @@ struct thread_intern {
  * something a bit different for XS code.
  */
 
-#define SCHEDULE() return schedule(), op
+#define SCHEDULE() return schedule(), PL_op
 
 #define MUTEX_LOCK(m)
 #define MUTEX_UNLOCK(m)