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;
     }