fix two leaks in Thread.xs (from Eugene Alterman

[p5sagit/p5-mst-13.2.git] / ext / Thread / Thread / Specific.pm

diff --git a/ext/Thread/Thread/Specific.pm b/ext/Thread/Thread/Specific.pm
index c3591f4..da3f937 100644 (file)
--- a/ext/Thread/Thread/Specific.pm
+++ b/ext/Thread/Thread/Specific.pm
@@ -9,16 +9,18 @@ Thread::Specific - thread-specific keys
     use Thread::Specific;
     my $k = key_create Thread::Specific;
 
+=head1 DESCRIPTION
+
+C<key_create> returns a unique thread-specific key.
+
 =cut
 
-sub import {
-    use attrs qw(locked method);
+sub import : locked, method {
     require fields;
-    fields->import(@_);
+    fields::->import(@_);
 }      
 
-sub key_create {
-    use attrs qw(locked method);
+sub key_create : locked, method {
     return ++$FIELDS{__MAX__};
 }