diff options
author | Anton Berezin <tobez@FreeBSD.org> | 2002-06-16 12:40:13 +0000 |
---|---|---|
committer | Anton Berezin <tobez@FreeBSD.org> | 2002-06-16 12:40:13 +0000 |
commit | c482b493ebd7abb0e5b9725336195a24d53e2e3a (patch) | |
tree | ef455bafbe66d108f833f61613107e60c90cad9a /lang | |
parent | 1. Do not do rm -rf as a mean to deinstall this port. Instead, apart (diff) |
Fix manpath.config patching in case there is no system perl manpath
(read: -current). No PORTREVISION bump.
Notes
Notes:
svn path=/head/; revision=61363
Diffstat (limited to 'lang')
-rw-r--r-- | lang/perl5.10/files/use.perl | 15 | ||||
-rw-r--r-- | lang/perl5.12/files/use.perl | 15 | ||||
-rw-r--r-- | lang/perl5.14/files/use.perl | 15 | ||||
-rw-r--r-- | lang/perl5.16/files/use.perl | 15 | ||||
-rw-r--r-- | lang/perl5.6/files/use.perl | 15 | ||||
-rw-r--r-- | lang/perl5.8/files/use.perl | 15 | ||||
-rw-r--r-- | lang/perl5/files/use.perl | 15 |
7 files changed, 77 insertions, 28 deletions
diff --git a/lang/perl5.10/files/use.perl b/lang/perl5.10/files/use.perl index 7769cdd49d77..bed88bd46d44 100644 --- a/lang/perl5.10/files/use.perl +++ b/lang/perl5.10/files/use.perl @@ -109,15 +109,22 @@ NO_PERL_WRAPPER=yo 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>) { - print MPNEW <<EOF if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|; + 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'; diff --git a/lang/perl5.12/files/use.perl b/lang/perl5.12/files/use.perl index 7769cdd49d77..bed88bd46d44 100644 --- a/lang/perl5.12/files/use.perl +++ b/lang/perl5.12/files/use.perl @@ -109,15 +109,22 @@ NO_PERL_WRAPPER=yo 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>) { - print MPNEW <<EOF if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|; + 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'; diff --git a/lang/perl5.14/files/use.perl b/lang/perl5.14/files/use.perl index 7769cdd49d77..bed88bd46d44 100644 --- a/lang/perl5.14/files/use.perl +++ b/lang/perl5.14/files/use.perl @@ -109,15 +109,22 @@ NO_PERL_WRAPPER=yo 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>) { - print MPNEW <<EOF if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|; + 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'; diff --git a/lang/perl5.16/files/use.perl b/lang/perl5.16/files/use.perl index 7769cdd49d77..bed88bd46d44 100644 --- a/lang/perl5.16/files/use.perl +++ b/lang/perl5.16/files/use.perl @@ -109,15 +109,22 @@ NO_PERL_WRAPPER=yo 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>) { - print MPNEW <<EOF if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|; + 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'; diff --git a/lang/perl5.6/files/use.perl b/lang/perl5.6/files/use.perl index 7769cdd49d77..bed88bd46d44 100644 --- a/lang/perl5.6/files/use.perl +++ b/lang/perl5.6/files/use.perl @@ -109,15 +109,22 @@ NO_PERL_WRAPPER=yo 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>) { - print MPNEW <<EOF if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|; + 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'; diff --git a/lang/perl5.8/files/use.perl b/lang/perl5.8/files/use.perl index 7769cdd49d77..bed88bd46d44 100644 --- a/lang/perl5.8/files/use.perl +++ b/lang/perl5.8/files/use.perl @@ -109,15 +109,22 @@ NO_PERL_WRAPPER=yo 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>) { - print MPNEW <<EOF if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|; + 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'; diff --git a/lang/perl5/files/use.perl b/lang/perl5/files/use.perl index 7769cdd49d77..bed88bd46d44 100644 --- a/lang/perl5/files/use.perl +++ b/lang/perl5/files/use.perl @@ -109,15 +109,22 @@ NO_PERL_WRAPPER=yo 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>) { - print MPNEW <<EOF if m|^\s*OPTIONAL_MANPATH\s+\S+/lib/perl5/\S+/man\s*$|; + 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'; |