view release on metacpan or  search on metacpan

git-server  view on Meta::CPAN

my $dir = undef;
if ($cmd =~ /^(git-[\w\-]+) (.+)$/) {
    my $op = $1;
    my $repo = $2;
    if ($repo =~ /^'(.+)'$/) {
        $repo = $1;
        $repo =~ s/\'\\\'\'/\'/g;
    }
    $repo =~ s/\.git$//;
    $repo =~ s/\/+$//;
    my $home = $ENV{HOME} || (getpwuid $<)[7];
    foreach my $try ("$repo.git/.git", "$repo.git", "$repo/.git", $repo) {
        if (-d $try) {
            $dir = $try;
            $ENV{GIT_DIR} = abs_path $dir;
            last;
        }
        if ($try =~ s{^/+}{} and -d $try) {
            $dir = $try;
            $ENV{GIT_DIR} = abs_path $dir;
            last;