Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 25120
Status: resolved
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: at [...] altlinux.ru
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 804.027_500



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
On Sat Feb 24 07:33:24 2007, at@altlinux.ru wrote: Show quoted text
> --- > 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.
Thank you. I believe this is already fixed in the development version of Tk, Tk 804.027_500 Regards, Slaven