1. Do not do rm -rf as a mean to deinstall this port. Instead, apart

   from normal rmdir'ing and unexec rmdir'ing, do a find | xargs rm for
   generated .ph files, since those will differ in different versions of
   FreeBSD just like .h files may not be the same.

2. Install.pm is broken in 5.6.1 and leads to the wrong .packlist
   generation, which, in turn, breaks BSDPAN.  Fix that.

3. Extend use.perl to patch /etc/manpath.config so that manpages for
   modules installed by this and other p5- ports are be available.

PR:		39108 (item 1)
Reported by:	Dan Nelson <dan@dan.emsphone.com> (item 1)

2 files changed, 40 insertions, 1 deletions

diff --git a/lang/perl5/files/patch-Install.pm b/lang/perl5/files/patch-Install.pm
new file mode 100644
index 000000000000..06bef472a7cf
--- /dev/null
+++ b/lang/perl5/files/patch-Install.pm
@@ -0,0 +1,13 @@
+$FreeBSD$
+
+--- lib/ExtUtils/Install.pm.orig	Sun Jun 16 13:36:29 2002
++++ lib/ExtUtils/Install.pm	Sun Jun 16 13:36:50 2002
+@@ -156,7 +156,7 @@
+ 	    } else {
+ 		inc_uninstall($_,$File::Find::dir,$verbose,0); # nonono set to 0
+ 	    }
+-	    $packlist->{$origfile}++;
++	    $packlist->{$targetfile}++;
+ 
+ 	}, ".");
+ 	chdir($cwd) or Carp::croak("Couldn't chdir to $cwd: $!");
diff --git a/lang/perl5/files/use.perl b/lang/perl5/files/use.perl
index 557e38b52311..7769cdd49d77 100644
--- a/lang/perl5/files/use.perl
+++ b/lang/perl5/files/use.perl
@@ -17,7 +17,7 @@ EOF
 my $port_perl = '%%PREFIX%%/bin/perl';
 $port_perl =~ tr|/|/|s;
 
-my $ident = `/usr/bin/ident /usr/bin/perl5`;
+my $ident = `/usr/bin/ident -q /usr/bin/perl5`;
 
 @ARGV == 1 or usage();
 if ($ARGV[0] eq 'port') {
@@ -63,6 +63,18 @@ sub switch_to_system
 
 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
@@ -96,4 +108,18 @@ 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*$|;
+# -- use.perl generated line -- #
+OPTIONAL_MANPATH	%%PREFIX%%/lib/perl5/%%PERL_VERSION%%/man
+EOF
+		print MPNEW;
+	}
+	close MPNEW;
+	close MPOLD;
+	rename '/etc/manpath.config', '/etc/manpath.config.bak';
+	rename '/etc/manpath.config.new', '/etc/manpath.config';
 }