Subject: | [PATCH] lib/Tie/Watch.pm: fixed perl syntax |
Date: | Sat, 24 Feb 2007 15:42:38 +0300 |
To: | bug-tk [...] rt.cpan.org |
From: | Alexey Tourbin <at [...] altlinux.ru> |
---
lib/Tie/Watch.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/Tie/Watch.pm b/lib/Tie/Watch.pm
index 7676c6d..732d9b1 100644
--- a/lib/Tie/Watch.pm
+++ b/lib/Tie/Watch.pm
@@ -481,7 +481,7 @@ sub Splice {
return splice @{$_[0]->{-ptr}}, $_[1], $_[2], @_[3 .. $#_] if $n >= 4;
}
sub Store {$_[0]->{-ptr}->[$_[1]] = $_[2]}
-sub Storesize {$#{@{$_[0]->{-ptr}}} = $_[1] - 1}
+sub Storesize {$#{$_[0]->{-ptr}} = $_[1] - 1}
sub Unshift {unshift @{$_[0]->{-ptr}}, @_[1 .. $#_]}
# Array access methods.
--
1.5.0.1.GIT