deletion of unused pragma, which triggered annoying warnings in perl 5.6

1 files changed, 0 insertions, 6 deletions

diff --git a/Ivy.pm b/Ivy.pm
index da21ad4..3f496a4 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -718,8 +718,6 @@ sub bindDirect
 ############### PROCEDURE	SEND MSGS	    
 sub sendMsgs
 {
-  use attrs qw(locked);
-
   my $self = ref($_[0]) eq __PACKAGE__  ? shift : $globalIvy;
   my @msgs = @_;
   my $total = 0;
@@ -744,8 +742,6 @@ sub sendMsgs
 ############### PROCEDURE	SEND MSGS	    
 sub sendAppNameMsgs
 {
-  use attrs qw(locked);
-
   my $self = ref($_[0]) eq __PACKAGE__  ? shift : $globalIvy;
   my @msgs = @_;
   my $total = 0;
@@ -796,7 +792,6 @@ sub sendDirectMsgs
 ############### METHOD	SEND DIE TO	    
 sub sendDieTo
 {
-  use attrs qw(locked);
   my $self = ref($_[0]) eq __PACKAGE__  ? shift : $globalIvy;
   my ($to) = @_;
     
@@ -822,7 +817,6 @@ sub sendDieTo
 ############### METHOD	PING    
 sub ping
 {
-  use attrs qw(locked);
   my $self = ref($_[0]) eq __PACKAGE__  ? shift : $globalIvy;
   my ($to, $timeout) = @_;