Fix hash slice syntax error
authorAbhijit Menon-Sen <ams@toroid.org>
Mon, 4 Aug 2008 05:02:47 +0000 (10:32 +0530)
committerJunio C Hamano <gitster@pobox.com>
Tue, 5 Aug 2008 04:51:23 +0000 (21:51 -0700)
Signed-off-by: Abhijit Menon-Sen <ams@toroid.org>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
perl/Git.pm

index faaa19f62e9a0f2f895853043e5aa163888bb13c..3b6707b0516dc7e27a513e09628998b411f8f10d 100644 (file)
@@ -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