[PATCH] Fix hash slice syntax error

From

AMAbhijit Menon-Sen <ams@toroid.org>

Date

Aug 4, 2008, 05:02 UTC

Message-ID

<20080804050247.GA13539@toroid.org>

In-Reply-To

<be6fef0d0808032149p651309a8o773dca5f16923ee1@mail.gmail.com>

Signed-off-by: Abhijit Menon-Sen <ams@toroid.org>
---

At 2008-08-04 12:49:27 +0800, rctay89@gmail.com wrote:

>
> $self->{@vars} evaluates to undef. i can't find any mention of using
> arrays to dereference objects in the manual and elsewhere; is this a
> mistake?

-- ams

 perl/Git.pm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/perl/Git.pm b/perl/Git.pm
index 087d3d0..2ef437f 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -839,8 +839,8 @@ sub _close_hash_and_insert_object {
 
 	my @vars = map { 'hash_object_' . $_ } qw(pid in out ctx);
 
-	command_close_bidi_pipe($self->{@vars});
-	delete $self->{@vars};
+	command_close_bidi_pipe(@$self{@vars});
+	delete @$self{@vars};
 }
 
 =item cat_blob ( SHA1, FILEHANDLE )
@@ -928,8 +928,8 @@ sub _close_cat_blob {
 
 	my @vars = map { 'cat_blob_' . $_ } qw(pid in out ctx);
 
-	command_close_bidi_pipe($self->{@vars});
-	delete $self->{@vars};
+	command_close_bidi_pipe(@$self{@vars});
+	delete @$self{@vars};
 }
 
 =back

-- 
1.6.0.rc0.43.g2aa74