kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

gitweb: fix two warnings 

These warnings cluttered up my log.

Signed-off-by: Johannes Schindelin <Johannes.Schindelin@gmx.de>
Signed-off-by: Junio C Hamano <junkio@cox.net>
maint
Johannes Schindelin 2006-07-26 16:58:35 +02:00 committed by Junio C Hamano
parent 941ba215fb
commit 4325b4ad16
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gitweb/gitweb.cgi
View File

@ -795,7 +795,7 @@ sub git_read_projects {
if (-d $projects_list) { if (-d $projects_list) {
# search in directory # search in directory
my $dir = $projects_list; my $dir = $projects_list;
opendir my $dh, $dir or return undef; opendir my ($dh), $dir or return undef;
while (my $dir = readdir($dh)) { while (my $dir = readdir($dh)) {
if (-e "$projectroot/$dir/HEAD") { if (-e "$projectroot/$dir/HEAD") {
my $pr = { my $pr = {
@ -810,7 +810,7 @@ sub git_read_projects {
# 'git%2Fgit.git Linus+Torvalds' # 'git%2Fgit.git Linus+Torvalds'
# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin' # 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman' # 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
open my $fd , $projects_list or return undef; open my ($fd), $projects_list or return undef;
while (my $line = <$fd>) { while (my $line = <$fd>) {
chomp $line; chomp $line;
my ($path, $owner) = split ' ', $line; my ($path, $owner) = split ' ', $line;