# HG changeset patch
# User Chris Cannam
# Date 1320424969 0
# Node ID 1ce6efe3db0eaf3957221bd5b9934cf5b655a86e
# Parent  51c97efbe241853386c26d4d771670c96e145449
Last "fix" was completely bogus. Here's a real one (for situation where URL has nothing beyond the location)

diff -r 51c97efbe241 -r 1ce6efe3db0e extra/soundsoftware/SoundSoftware.pm
--- 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;
     }