Fix hash slice syntax error

Signed-off-by: Abhijit Menon-Sen <[email protected]> Signed-off-by: Junio C Hamano <[email protected]>
neshume · Aug 5, 2008 · 452d36b · 452d36b
1 parent 108c2aa
commit 452d36b
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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