From: Abhijit Menon-Sen <ams@toroid.org>
Date: Mon, 4 Aug 2008 05:02:47 +0000 (+0530)
Subject: Fix hash slice syntax error
X-Git-Tag: v1.6.0-rc2~24
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=452d36b1f33e10a9492eb2adad357108b26ea381;p=git.git

Fix hash slice syntax error

Signed-off-by: Abhijit Menon-Sen <ams@toroid.org>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
---

diff --git a/perl/Git.pm b/perl/Git.pm
index faaa19f62..3b6707b05 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -840,8 +840,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 )
@@ -929,8 +929,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