Mercurial > hg > soundsoftware-site
changeset 737:1ce6efe3db0e feature_318
Last "fix" was completely bogus. Here's a real one (for situation where URL has nothing beyond the location)
author | Chris Cannam |
---|---|
date | Fri, 04 Nov 2011 16:42:49 +0000 |
parents | 51c97efbe241 |
children | 882917cbe8d0 8873bc7c1af5 |
files | extra/soundsoftware/SoundSoftware.pm |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/extra/soundsoftware/SoundSoftware.pm Fri Nov 04 16:32:17 2011 +0000 +++ b/extra/soundsoftware/SoundSoftware.pm Fri Nov 04 16:42:49 2011 +0000 @@ -473,7 +473,7 @@ my $dbh = shift; my $r = shift; my $location = $r->location; - my $repo = ($r->uri =~ m{$location/*([^/]+)}); + my ($repo) = $r->uri =~ m{$location/*([^/]*)}; return $repo if (!$repo); @@ -546,7 +546,7 @@ # use repo name instead (don't want to admit to user that project # doesn't exist) my $location = $r->location; - my $repo = ($r->uri =~ m{$location/*([^/]+)}); + my ($repo) = $r->uri =~ m{$location/*([^/]*)}; $name = $repo; }