Fix bug in bind_path

Fix bug in bind_path where part of the path might evaluate to false (ex: path=/foo/bar/0)
sartak · Jun 22, 2016 · 375a716 · 375a716
1 parent 681ce97
commit 375a716
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Web/Machine/Util.pm b/lib/Web/Machine/Util.pm
@@ -37,8 +37,8 @@ sub pair_value { ( values %{ $_[0] } )[0] }
 
 sub bind_path {
     my ($spec, $path) = @_;
-    my @parts = grep { $_ } split /\// => $path;
-    my @spec  = grep { $_ } split /\// => $spec;
+    my @parts = grep defined $_, split /\// => $path;
+    my @spec  = grep defined $_, split /\// => $spec;
 
     my @results;
     foreach my $i ( 0 .. $#spec ) {