зеркало из https://github.com/microsoft/git.git
gitweb: Quote hash keys, and do not use barewords keys
Ensure that in all references to an element of a hash, the key is singlequoted, instead of using bareword: use $hash{'key'} instead of $hash{key} Signed-off-by: Jakub Narebski <jnareb@gmail.com> Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Родитель
a23f0a73d1
Коммит
3be8e720d9
|
@ -19,7 +19,7 @@ use File::Basename qw(basename);
|
||||||
binmode STDOUT, ':utf8';
|
binmode STDOUT, ':utf8';
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
CGI->compile() if $ENV{MOD_PERL};
|
CGI->compile() if $ENV{'MOD_PERL'};
|
||||||
}
|
}
|
||||||
|
|
||||||
our $cgi = new CGI;
|
our $cgi = new CGI;
|
||||||
|
@ -1870,16 +1870,16 @@ sub git_print_page_nav {
|
||||||
my %arg = map { $_ => {action=>$_} } @navs;
|
my %arg = map { $_ => {action=>$_} } @navs;
|
||||||
if (defined $head) {
|
if (defined $head) {
|
||||||
for (qw(commit commitdiff)) {
|
for (qw(commit commitdiff)) {
|
||||||
$arg{$_}{hash} = $head;
|
$arg{$_}{'hash'} = $head;
|
||||||
}
|
}
|
||||||
if ($current =~ m/^(tree | log | shortlog | commit | commitdiff | search)$/x) {
|
if ($current =~ m/^(tree | log | shortlog | commit | commitdiff | search)$/x) {
|
||||||
for (qw(shortlog log)) {
|
for (qw(shortlog log)) {
|
||||||
$arg{$_}{hash} = $head;
|
$arg{$_}{'hash'} = $head;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$arg{tree}{hash} = $treehead if defined $treehead;
|
$arg{'tree'}{'hash'} = $treehead if defined $treehead;
|
||||||
$arg{tree}{hash_base} = $treebase if defined $treebase;
|
$arg{'tree'}{'hash_base'} = $treebase if defined $treebase;
|
||||||
|
|
||||||
print "<div class=\"page_nav\">\n" .
|
print "<div class=\"page_nav\">\n" .
|
||||||
(join " | ",
|
(join " | ",
|
||||||
|
@ -1927,9 +1927,9 @@ sub git_print_header_div {
|
||||||
my ($action, $title, $hash, $hash_base) = @_;
|
my ($action, $title, $hash, $hash_base) = @_;
|
||||||
my %args = ();
|
my %args = ();
|
||||||
|
|
||||||
$args{action} = $action;
|
$args{'action'} = $action;
|
||||||
$args{hash} = $hash if $hash;
|
$args{'hash'} = $hash if $hash;
|
||||||
$args{hash_base} = $hash_base if $hash_base;
|
$args{'hash_base'} = $hash_base if $hash_base;
|
||||||
|
|
||||||
print "<div class=\"header\">\n" .
|
print "<div class=\"header\">\n" .
|
||||||
$cgi->a({-href => href(%args), -class => "title"},
|
$cgi->a({-href => href(%args), -class => "title"},
|
||||||
|
|
Загрузка…
Ссылка в новой задаче