Attachment #35393 for bug #57151




# $FreeBSD: ports/lang/perl5.8/files/use.perl,v 1.6 2002/07/21 17:09:12 tobez Exp $
use strict;

# XXX what to do with perldoc, pelbug, perlcc ??

sub usage
{
	print STDERR <<EOF;

		link '/usr/bin/perl5', '/usr/bin/perl';
		link '/usr/bin/perl5', '/usr/bin/perl5.8.0';

		if( -e '/usr/bin/perlbug-system') {
			unlink '/usr/bin/perlbug';
			rename '/usr/bin/perlbug-system', '/usr/bin/perlbug';
		}
		if( -e '/usr/bin/perlcc-system') {
			unlink '/usr/bin/perlcc';
			rename '/usr/bin/perlcc-system', '/usr/bin/perlcc';
		}
		if( -e '/usr/bin/perldoc-system') {
			unlink '/usr/bin/perldoc';
			rename '/usr/bin/perldoc-system', '/usr/bin/perldoc';
		}

		if ($ident =~ m#src/usr.bin/perl/perl.c#) {
			link '/usr/bin/perl5', '/usr/bin/suidperl';
		} else {

		symlink '/usr/local/bin/perl', '/usr/bin/perl';
		symlink '/usr/local/bin/suidperl', '/usr/bin/suidperl';
		symlink '/usr/local/bin/perl', '/usr/bin/perl5.8.0';

		if( ! -e '/usr/bin/perlbug-system' ) {
			rename '/usr/bin/perlbug', '/usr/bin/perlbug-system';
			symlink '/usr/local/bin/perlbug', '/usr/bin/perlbug';
		}
		if( ! -e '/usr/bin/perlcc-system' ) {
			rename '/usr/bin/perlcc', '/usr/bin/perlcc-system';
			symlink '/usr/local/bin/perlcc', '/usr/bin/perlcc';
		}
		if( ! -e '/usr/bin/perldoc-system' ) {
			rename '/usr/bin/perldoc', '/usr/bin/perldoc-system';
			symlink '/usr/local/bin/perldoc', '/usr/bin/perldoc';
		}
	}

	open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";

Return to bug 57151

Lines 2-9 Link Here

(-)/usr/local/bin/use.perl (-2 / +26 lines)
2	# $FreeBSD: ports/lang/perl5.8/files/use.perl,v 1.6 2002/07/21 17:09:12 tobez Exp $	2	# $FreeBSD: ports/lang/perl5.8/files/use.perl,v 1.6 2002/07/21 17:09:12 tobez Exp $
3	use strict;	3	use strict;
4		4
5	# XXX what to do with perldoc, pelbug, perlcc ??
6
7	sub usage	5	sub usage
8	{	6	{
9	print STDERR <<EOF;	7	print STDERR <<EOF;
Lines 43-48 Link Here
43	link '/usr/bin/perl5', '/usr/bin/perl';	41	link '/usr/bin/perl5', '/usr/bin/perl';
44	link '/usr/bin/perl5', '/usr/bin/perl5.8.0';	42	link '/usr/bin/perl5', '/usr/bin/perl5.8.0';
45		43
		44	if( -e '/usr/bin/perlbug-system') {
		45	unlink '/usr/bin/perlbug';
		46	rename '/usr/bin/perlbug-system', '/usr/bin/perlbug';
		47	}
		48	if( -e '/usr/bin/perlcc-system') {
		49	unlink '/usr/bin/perlcc';
		50	rename '/usr/bin/perlcc-system', '/usr/bin/perlcc';
		51	}
		52	if( -e '/usr/bin/perldoc-system') {
		53	unlink '/usr/bin/perldoc';
		54	rename '/usr/bin/perldoc-system', '/usr/bin/perldoc';
		55	}
		56
46	if ($ident =~ m#src/usr.bin/perl/perl.c#) {	57	if ($ident =~ m#src/usr.bin/perl/perl.c#) {
47	link '/usr/bin/perl5', '/usr/bin/suidperl';	58	link '/usr/bin/perl5', '/usr/bin/suidperl';
48	} else {	59	} else {
Lines 92-97 Link Here
92	symlink '/usr/local/bin/perl', '/usr/bin/perl';	103	symlink '/usr/local/bin/perl', '/usr/bin/perl';
93	symlink '/usr/local/bin/suidperl', '/usr/bin/suidperl';	104	symlink '/usr/local/bin/suidperl', '/usr/bin/suidperl';
94	symlink '/usr/local/bin/perl', '/usr/bin/perl5.8.0';	105	symlink '/usr/local/bin/perl', '/usr/bin/perl5.8.0';
		106
		107	if( ! -e '/usr/bin/perlbug-system' ) {
		108	rename '/usr/bin/perlbug', '/usr/bin/perlbug-system';
		109	symlink '/usr/local/bin/perlbug', '/usr/bin/perlbug';
		110	}
		111	if( ! -e '/usr/bin/perlcc-system' ) {
		112	rename '/usr/bin/perlcc', '/usr/bin/perlcc-system';
		113	symlink '/usr/local/bin/perlcc', '/usr/bin/perlcc';
		114	}
		115	if( ! -e '/usr/bin/perldoc-system' ) {
		116	rename '/usr/bin/perldoc', '/usr/bin/perldoc-system';
		117	symlink '/usr/local/bin/perldoc', '/usr/bin/perldoc';
		118	}
95	}	119	}
96		120
97	open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";	121	open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";