From 452d36b1f33e10a9492eb2adad357108b26ea381 Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Mon, 4 Aug 2008 10:32:47 +0530 Subject: [PATCH] Fix hash slice syntax error Signed-off-by: Abhijit Menon-Sen Signed-off-by: Junio C Hamano --- perl/Git.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.30.2