From 84e57979aac524917d4b7a1a15c536fa9ba82ecf Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Sun, 1 Nov 2009 01:13:05 +0100
Subject: [PATCH] Girocco::Project: Fix config lookup

---
 Girocco/Project.pm | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/Girocco/Project.pm b/Girocco/Project.pm
index f469f37..b3c8fe9 100644
--- a/Girocco/Project.pm
+++ b/Girocco/Project.pm
@@ -47,12 +47,13 @@ sub _property_path {
 sub _property_fget {
 	my $self = shift;
 	my ($name) = @_;
-	$propmap{$name} or die "unknown property: $name";
-	if ($propmap{$name} =~ /^:/) {
-		return `git --git-dir="$self->{path}" config "gitweb.$name"`
+	my $pname = $propmap{$name};
+	$pname or die "unknown property: $name";
+	if ($pname =~ s/^://) {
+		return `git --git-dir="$self->{path}" config "gitweb.$pname"`
 	}
 
-	open P, $self->_property_path($propmap{$name}) or return undef;
+	open P, $self->_property_path($pname) or return undef;
 	my @value = <P>;
 	close P;
 	my $value = join('', @value); chomp $value;
@@ -62,16 +63,17 @@ sub _property_fget {
 sub _property_fput {
 	my $self = shift;
 	my ($name, $value) = @_;
-	$propmap{$name} or die "unknown property: $name";
+	my $pname = $propmap{$name};
+	$pname or die "unknown property: $name";
 	$value ||= '';
-	if ($propmap{$name} =~ /^:/) {
-		return `git --git-dir="$self->{path}" config "gitweb.$name" "$value"`
+	if ($pname =~ s/^://) {
+		return `git --git-dir="$self->{path}" config "gitweb.$pname" "$value"`
 	}
 
-	my $P = lock_file($self->_property_path($propmap{$name}));
+	my $P = lock_file($self->_property_path($pname));
 	$value ne '' and print $P "$value\n";
 	close $P;
-	unlock_file($self->_property_path($propmap{$name}));
+	unlock_file($self->_property_path($pname));
 }
 
 sub _properties_load {
-- 
2.11.4.GIT