Searched refs:usrbinperl (Results 1 – 1 of 1) sorted by relevance
493 my($usrbinperl) = "$mainperldir/$perl$exe_ext";497 # First make sure $usrbinperl is not already the same as the perl we499 if (-x $usrbinperl) {503 samepath($usrbinperl, $instperl) ||504 samepath($usrbinperl, $expinstperl) ||506 (-l $usrbinperl) &&507 ((readlink $usrbinperl) eq $expinstperl));510 unlink($usrbinperl);512 eval { CORE::link $instperl, $usrbinperl } ) ||513 eval { symlink $expinstperl, $usrbinperl } ||[all …]