use &dl_error rather than &dl_load_file as the guard for calling

[p5sagit/p5-mst-13.2.git] / ext / Thread / sync2.t

diff --git a/ext/Thread/sync2.t b/ext/Thread/sync2.t
index 0901da4..ffc74b4 100644 (file)
--- a/ext/Thread/sync2.t
+++ b/ext/Thread/sync2.t
@@ -2,8 +2,7 @@ use Thread;
 
 $global = undef;
 
-sub single_file {
-    use attrs 'locked';
+sub single_file : locked {
     my $who = shift;
     my $i;