Figured so.
After sleeping over it, I'm wondering if there's any particular reason you didn't something along the following lines?
my ($prefix, $filepath) = split '/', $path, 2;
# ...
@names = grep m!\A/?\Q$filepath\E(?:/.*)?\z!s, @names;
if(@names == 1) {
require Archive::Tar;
# ...
exit 0
}
{
my %choices = ();
# ...
The sole really significant difference I can see is that it doesn't catch the "trailing stuff after name" case. Am I missing something?
Or should I just be patient and wait for the column? :-) |