Lines Matching refs:usrbinperl

493     my($usrbinperl)	= "$mainperldir/$perl$exe_ext";
497     # First make sure $usrbinperl is not already the same as the perl we
499     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 }	||
514 	copy($instperl, $usrbinperl);