I have been writing tests for previously untested statements in
Parrot::Configure::Step. In genfile(), there is the following block:
# documented as removing any .-based suffix
if (
$line =~ s{\$ \( basename \s+ ([^)]+) \)}{
join (' ',
map {
my @split = File::Spec->splitpath($_);
$split[2] =~ s/\.[^.]*$//;
File::Spec->catpath(@split);
} split(' ', $1)
)
}egx
)
{
$any_gmake++;
}
On the OSes available to me, this code is never reached either during
the normal operation of Configure.pl or in the tests I've written so
far. My questions therefore are:
(1) What is it for? (coke, ptc: svn annotate indicates you've worked
on this code)
(2) Is there any OS on which the code is reached?
(3) If the answer to (2) is 'No' and no one can come up with a good
answer for (1), then is there any reason why we shouldn't cut it out?
kid51
