diff options
| author | mertz | 2001-07-06 15:39:31 +0000 |
|---|---|---|
| committer | mertz | 2001-07-06 15:39:31 +0000 |
| commit | 03553be13a9ec4026b13f230f8c10b1e19a7168d (patch) | |
| tree | f90669f453786902f8c719b757099513ab65da14 /Ivy.pm | |
| parent | 51a4c1b3c4bab11d587536abfe9301e3a850bde6 (diff) | |
| download | ivy-perl-03553be13a9ec4026b13f230f8c10b1e19a7168d.zip ivy-perl-03553be13a9ec4026b13f230f8c10b1e19a7168d.tar.gz ivy-perl-03553be13a9ec4026b13f230f8c10b1e19a7168d.tar.bz2 ivy-perl-03553be13a9ec4026b13f230f8c10b1e19a7168d.tar.xz | |
deletion of unused pragma, which triggered annoying warnings in perl 5.6
Diffstat (limited to 'Ivy.pm')
| -rw-r--r-- | Ivy.pm | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -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) = @_; |