YA sync with mainline
[p5sagit/p5-mst-13.2.git] / t / lib / thread.t
index edfb443..6b3c800 100755 (executable)
@@ -72,7 +72,7 @@ $t->join->join;
 {
     package Loch::Ness;
     sub new { bless [], shift }
-    sub monster : locked, method {
+    sub monster : locked : method {
        my($s, $m) = @_;
        print "ok $m\n";
     }