[PATCH] gitweb: Fix setting $/ in parse_commit()
- From
Petr Baudis <pasky@suse.cz>
- Date
- Oct 24, 2006, 00:39 UTC
- Message-ID
- <20061024003913.21247.70740.stgit@rover>
If the commit couldn't have been read, $/ wasn't restored to \n properly, causing random havoc like git_get_ref_list() returning the ref names with trailing \n.
Aside of potential confusion in the body of git_search(), no other $/ surprises are hopefully hidden in the code.
Signed-off-by: Petr Baudis <pasky@suse.cz> ---
gitweb/gitweb.perl | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-)
diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl index 13f04d6..9868485 100755 --- a/gitweb/gitweb.perl +++ b/gitweb/gitweb.perl @@ -1165,12 +1165,11 @@ sub parse_commit { if (defined $commit_text) { @commit_lines = @$commit_text; } else { - $/ = "\0"; + local $/ = "\0"; open my $fd, "-|", git_cmd(), "rev-list", "--header", "--parents", "--max-count=1", $commit_id or return; @commit_lines = split '\n', <$fd>; close $fd or return; - $/ = "\n"; pop @commit_lines; } my $header = shift @commit_lines;