From a98df9627d19bd75c4b1132fc26e037aab5a7879 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 2 Oct 1999 02:36:55 +0000
Subject: deprecate C<use attrs>

p4raw-id: //depot/perl@4278
---
 t/lib/thread.t | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 't/lib')

diff --git a/t/lib/thread.t b/t/lib/thread.t
index 3bca8ba726..6c25407853 100755
--- a/t/lib/thread.t
+++ b/t/lib/thread.t
@@ -55,9 +55,7 @@ sleep 6;
 print "ok 12\n";
 $t->join;
 
-sub islocked
-{
- use attrs 'locked';
+sub islocked : locked {
  my $val = shift;
  my $ret;
  print $val;
@@ -74,8 +72,7 @@ $t->join->join;
 {
     package Loch::Ness;
     sub new { bless [], shift }
-    sub monster {
-	use attrs qw(locked method);
+    sub monster : locked, method {
 	my($s, $m) = @_;
 	print "ok $m\n";
     }
-- 
cgit v1.2.1