Changeset 10526

Timestamp:

04/27/08 13:23:05 (5 years ago)

Author:

tokuhirom

Message:

empty string is false value... perl--

Location:

lang/perl/HTTPx-Dispatcher/trunk

Files:

• lib/HTTPx/Dispatcher/Rule.pm (modified) (1 diff)
• t/02_uri_for.t (modified) (1 diff)

lang/perl/HTTPx-Dispatcher/trunk/lib/HTTPx/Dispatcher/Rule.pm

@@ -127 +127 @@
     my %args = %$args;
     while (my ($key, $val) = each %args) {
-         $uri = $self->_uri_for_match($uri, $key, $val) or return;
+         $uri = $self->_uri_for_match($uri, $key, $val);
+         return unless defined $uri;
     }
     return "/$uri";

lang/perl/HTTPx-Dispatcher/trunk/t/02_uri_for.t

@@ -60 +60 @@
 --- expected:   /content/3
 
+===
+--- dispatcher
+connect '' => { controller => 'Root', action => 'index'  };
+--- uri_for:  { controller => 'Root', action => 'index' }
+--- expected:   /
+