Attachment #35394 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;

		} else {
			link '/usr/bin/sperl5', '/usr/bin/suidperl';
		}

		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';
		}
	}

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

		symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl';
		symlink '%%PREFIX%%/bin/suidperl', '/usr/bin/suidperl';
		symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl%%PERL_VERSION%%';

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

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

Return to bug 57151

Lines 2-9 Link Here

(-)files/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 48-53 Link Here
48	} else {	46	} else {
49	link '/usr/bin/sperl5', '/usr/bin/suidperl';	47	link '/usr/bin/sperl5', '/usr/bin/suidperl';
50	}	48	}
		49
		50	if( -e '/usr/bin/perlbug-system') {
		51	unlink '/usr/bin/perlbug';
		52	rename '/usr/bin/perlbug-system', '/usr/bin/perlbug';
		53	}
		54	if( -e '/usr/bin/perlcc-system') {
		55	unlink '/usr/bin/perlcc';
		56	rename '/usr/bin/perlcc-system', '/usr/bin/perlcc';
		57	}
		58	if( -e '/usr/bin/perldoc-system') {
		59	unlink '/usr/bin/perldoc';
		60	rename '/usr/bin/perldoc-system', '/usr/bin/perldoc';
		61	}
51	}	62	}
52		63
53	open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";	64	open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";
Lines 92-97 Link Here
92	symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl';	103	symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl';
93	symlink '%%PREFIX%%/bin/suidperl', '/usr/bin/suidperl';	104	symlink '%%PREFIX%%/bin/suidperl', '/usr/bin/suidperl';
94	symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl%%PERL_VERSION%%';	105	symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl%%PERL_VERSION%%';
		106
		107	if( ! -e '/usr/bin/perlbug-system' ) {
		108	rename '/usr/bin/perlbug', '/usr/bin/perlbug-system';
		109	symlink '%%PREFIX%%/bin/perlbug', '/usr/bin/perlbug';
		110	}
		111	if( ! -e '/usr/bin/perlcc-system' ) {
		112	rename '/usr/bin/perlcc', '/usr/bin/perlcc-system';
		113	symlink '%%PREFIX%%/bin/perlcc', '/usr/bin/perlcc';
		114	}
		115	if( ! -e '/usr/bin/perldoc-system' ) {
		116	rename '/usr/bin/perldoc', '/usr/bin/perldoc-system';
		117	symlink '%%PREFIX%%/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: $!";