On Wednesday, April 11, 2007, at 12:04PM, "Craig Berry" <[EMAIL PROTECTED]>
wrote:
>
>On Wednesday, April 11, 2007, at 09:48AM, "John E. Malmberg" <[EMAIL
>PROTECTED]> wrote:
>>Andrew Black wrote:
>>> print STDERR "******* \$thisperl=$thisperl\n" ;
>>> if ($proto->os_type eq 'VMS') {
>>> # VMS might have a file version at the end
>>> $thisperl .= $exe unless $thisperl =~ m/$exe(;\d+)?$/i;
>>> } elsif (defined $exe) {
>>> $thisperl .= $exe unless $thisperl =~ m/$exe$/i;
>>> }
>>> print STDERR "******* \$thisperl becomes $thisperl\n" ;
>The code in question is a fallback and is only used if two or three other
>methods for locating Perl fail. The first thing it tries is $^X and checks if
>it's considered an absolute file spec. It clearly is, so why that didn't work
>is of more interest than any discussions of extension pasting.
>
>
Sorry, it's not a fallback. It pastes an extension on all the candidates
(including the fallbacks) and does not allow for a case where there is no
extension on the executable or the extension is different from the conventional
one. Not sure what the rationale is for that, but that situation is unlikely
to occur in the wild and now no longer occurs in the core test suite.
