1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
#! %%PREFIX%%/bin/perl -w
# $FreeBSD$
use strict;
# XXX what to do with perldoc, pelbug, perlcc ??
sub usage
{
print STDERR <<EOF;
Usage:
$0 port -> /usr/bin/perl is the perl5 port
$0 system -> /usr/bin/perl is the system perl
EOF
exit 2;
}
my $port_perl = '%%PREFIX%%/bin/perl';
$port_perl =~ tr|/|/|s;
my $ident = `/usr/bin/ident -q /usr/bin/perl5`;
@ARGV == 1 or usage();
if ($ARGV[0] eq 'port') {
switch_to_port();
} elsif ($ARGV[0] eq 'system') {
switch_to_system();
} else {
usage();
}
exit 0;
# Both functions depend on the idea that switch_to_port leaves
# perl5 alone. If the wrapper is installed on a -current system,
# /usr/bin/perl5 will also be the wrapper.
sub switch_to_system
{
# protect against cases where people use PREFIX=/usr
if ($port_perl ne '/usr/bin/perl') {
unlink '/usr/bin/perl', '/usr/bin/suidperl',
'/usr/bin/perl%%PERL_VERSION%%';
link '/usr/bin/perl5', '/usr/bin/perl';
link '/usr/bin/perl5', '/usr/bin/perl%%PERL_VERSION%%';
if ($ident =~ m#src/usr.bin/perl/perl.c#) {
link '/usr/bin/perl5', '/usr/bin/suidperl';
} else {
link '/usr/bin/sperl5', '/usr/bin/suidperl';
}
}
open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";
print MK <<EOF;
# -- use.perl generated deltas -- #
# Created: @{[scalar localtime]}
# Setting to use base system perl:
.undef PERL_VER
.undef PERL_VERSION
.undef PERL_ARCH
.undef NOPERL
.undef NO_PERL
EOF
close MK;
open MPOLD, "< /etc/manpath.config" or die "/etc/manpath.config: $!";
open MPNEW, "> /etc/manpath.config.new" or die "/etc/manpath.config.new: $!";
while (<MPOLD>) {
next if m|use.perl generated line|;
next if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/%%PERL_VERSION%%/man\s*$|;
print MPNEW;
}
close MPNEW;
close MPOLD;
rename '/etc/manpath.config', '/etc/manpath.config.bak';
rename '/etc/manpath.config.new', '/etc/manpath.config';
}
sub switch_to_port
{
# protect against cases where people use PREFIX=/usr
if ($port_perl ne '/usr/bin/perl') {
if ($ident =~ m#src/usr.bin/perl/perl.c#) {
rename '/usr/bin/perl', '/usr/bin/perl-wrapper';
} else {
unlink '/usr/bin/perl';
}
unlink '/usr/bin/suidperl', '/usr/bin/perl%%PERL_VERSION%%';
symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl';
symlink '%%PREFIX%%/bin/suidperl', '/usr/bin/suidperl';
symlink '%%PREFIX%%/bin/perl', '/usr/bin/perl%%PERL_VERSION%%';
}
open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";
print MK <<EOF;
# -- use.perl generated deltas -- #
# Created: @{[scalar localtime]}
# Setting to use base perl from ports:
PERL_VER=%%PERL_VER%%
PERL_VERSION=%%PERL_VERSION%%
PERL_ARCH=%%PERL_ARCH%%
NOPERL=yo
NO_PERL=yo
NO_PERL_WRAPPER=yo
EOF
close MK;
my $perl_port_manpath = <<EOF;
# -- use.perl generated line -- #
OPTIONAL_MANPATH %%PREFIX%%/lib/perl5/%%PERL_VERSION%%/man
EOF
open MPOLD, "< /etc/manpath.config" or die "/etc/manpath.config: $!";
open MPNEW, "> /etc/manpath.config.new" or die "/etc/manpath.config.new: $!";
my $modified = 0;
while (<MPOLD>) {
if (!$modified && m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|) {
print MPNEW $perl_port_manpath;
$modified = 1;
}
print MPNEW;
}
print MPNEW $perl_port_manpath unless $modified;
close MPNEW;
close MPOLD;
rename '/etc/manpath.config', '/etc/manpath.config.bak';
rename '/etc/manpath.config.new', '/etc/manpath.config';
}
|
