From c482b493ebd7abb0e5b9725336195a24d53e2e3a Mon Sep 17 00:00:00 2001
From: Anton Berezin <tobez@FreeBSD.org>
Date: Sun, 16 Jun 2002 12:40:13 +0000
Subject: Fix manpath.config patching in case there is no system perl manpath
 (read: -current).  No PORTREVISION bump.

---
 lang/perl5/files/use.perl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'lang/perl5')

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';
-- 
cgit v1.2.3