diff options
| author | Abhijit Menon-Sen <ams@toroid.org> | 2008-08-04 09:02:47 +0400 |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2008-08-05 08:51:23 +0400 |
| commit | 452d36b1f33e10a9492eb2adad357108b26ea381 (patch) | |
| tree | c8ed9839d97d472d42f1668d02d4bb403b9f655b /perl | |
| parent | 108c2aaf7984081daa6aed6d3947c7c0952216c2 (diff) | |
Fix hash slice syntax error
Signed-off-by: Abhijit Menon-Sen <ams@toroid.org>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Git.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/Git.pm b/perl/Git.pm index faaa19f62e..3b6707b051 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 |