Searched refs:usrbinperl (Results 1 – 1 of 1) sorted by relevance
411 my($usrbinperl) = "$mainperldir/$perl$exe_ext";417 if (-x $usrbinperl) {421 samepath($usrbinperl, $instperl) ||422 samepath($usrbinperl, $expinstperl) ||424 (-l $usrbinperl) &&425 ((readlink $usrbinperl) eq $expinstperl));428 unlink($usrbinperl);430 eval { CORE::link $instperl, $usrbinperl } ) ||431 eval { symlink $expinstperl, $usrbinperl } ||432 copy($instperl, $usrbinperl);[all …]