stupid bugfix
Matt S Trout [Fri, 15 Jun 2012 20:40:33 +0000 (20:40 +0000)]
br.pl

diff --git a/br.pl b/br.pl
index 054a5ec..88de96b 100644 (file)
--- a/br.pl
+++ b/br.pl
@@ -32,7 +32,7 @@ sub dispatch_request {
   },
   sub (/) {
     sub (?@host=) {
-      [ 302, [ 'Location', '/'.join('+', @{$_[1]}) ], [] ];
+      [ 302, [ 'Location', '/'.join('+', @{$_[1]}).'/' ], [] ];
     },
     sub () {
       $self->root_structure;