| Subject: | subsumes() does not understand . |
These should both return true:
$ perl -MPath::Class::Dir -wle'print Path::Class::Dir->new(".")->subsumes(Path::Class::File->new("foo"))'
0
$ perl -MPath::Class::Dir -wle'print Path::Class::Dir->new("")->subsumes(Path::Class::File->new("foo"))'
1