comparison extra/soundsoftware/SoundSoftware.pm @ 737:1ce6efe3db0e feature_318

Last "fix" was completely bogus. Here's a real one (for situation where URL has nothing beyond the location)

 
 sub get_project_identifier {
     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);
 
     $repo =~ s/[^a-zA-Z0-9\._-]//g;
     

     if ($name =~ m/^\s*$/) {
         # nothing even in $project_id -- probably a nonexistent project.
         # 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;
     }
 
     my $realm = '"Mercurial repository for ' . "'$name'" . '"';