From alexander.haderer@charite.de  Wed Sep 24 02:36:01 2003
Return-Path: <alexander.haderer@charite.de>
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 944B516A4B3
	for <FreeBSD-gnats-submit@freebsd.org>; Wed, 24 Sep 2003 02:36:01 -0700 (PDT)
Received: from hauptpostamt.charite.de (hauptpostamt.charite.de [193.175.66.220])
	by mx1.FreeBSD.org (Postfix) with ESMTP id EECB643FF7
	for <FreeBSD-gnats-submit@freebsd.org>; Wed, 24 Sep 2003 02:35:57 -0700 (PDT)
	(envelope-from alexander.haderer@charite.de)
Received: from postamt1.charite.de (postamt1.charite.de [193.175.66.246])
	by hauptpostamt.charite.de (Postfix) with ESMTP id D722415C010
	for <FreeBSD-gnats-submit@freebsd.org>; Wed, 24 Sep 2003 11:35:52 +0200 (CEST)
Received: from ogava.str.charite.de (ogava.str.charite.de [192.168.202.104])
	by postamt1.charite.de (Postfix) with ESMTP id C3717633B3
	for <FreeBSD-gnats-submit@freebsd.org>; Wed, 24 Sep 2003 11:35:52 +0200 (CEST)
Received: from ogava.str.charite.de (localhost.str.charite.de [127.0.0.1])
	by ogava.str.charite.de (8.12.8p1/8.12.8) with ESMTP id h8O9Zp3p000145
	for <FreeBSD-gnats-submit@freebsd.org>; Wed, 24 Sep 2003 11:35:52 +0200 (CEST)
	(envelope-from alexander.haderer@charite.de)
Received: (from afrika@localhost)
	by ogava.str.charite.de (8.12.8p1/8.12.8/Submit) id h8MD9Qul056446;
	Mon, 22 Sep 2003 15:09:26 +0200 (CEST)
	(envelope-from alexander.haderer@charite.de)
Message-Id: <200309221309.h8MD9Qul056446@ogava.str.charite.de>
Date: Mon, 22 Sep 2003 15:09:26 +0200 (CEST)
From: Alexander Haderer <alexander.haderer@charite.de>
Reply-To: Alexander Haderer <alexander.haderer@charite.de>
To: FreeBSD-gnats-submit@freebsd.org
Cc:
Subject: Port lang/perl5.8: use.perl fails to modify perldoc
X-Send-Pr-Version: 3.113
X-GNATS-Notify:

>Number:         57151
>Category:       ports
>Synopsis:       Port lang/perl5.8: use.perl fails to modify perldoc
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    tobez
>State:          closed
>Quarter:        
>Keywords:       
>Date-Required:  
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Wed Sep 24 02:40:08 PDT 2003
>Closed-Date:    Wed Feb 02 10:52:59 CET 2005
>Last-Modified:  Wed Feb 02 10:52:59 CET 2005
>Originator:     Alexander Haderer
>Release:        FreeBSD 4.8-RELEASE i386
>Organization:
Charite Hospital Berlin - Germany
>Environment:
System: FreeBSD ogava.str.charite.de 4.8-RELEASE FreeBSD 4.8-RELEASE #0: Tue May 13 20:42:13 CEST 2003 root@ogava.str.charite.de:/usr/src/sys/compile/OGAVAD i386


>Description:
The utility /usr/loca/bin/use.perl to switch between system's perl and the
perl installed from the ports does not change the perl utilities perlcc,
perlbug, and perldoc. At least for perldoc this leads into trouble when
system's perldoc tries to display the perl5.8 pod docs (probably the
pod format has changed in perl5.8). 

Some of the pod-'Meta' Codes fail to display correctly, especially the 
'perl references' sections are displayed wrong!

>How-To-Repeat:
- install perl 5.8 from the ports
- do 'use.perl port'
- call perlreftut docs:
    'perldoc perlreftut'
    move to 'Use Rule 2', the line below reads:

    ${$aref}[3] is too hard to read, so you can write < $aref-[3] >> instead.

- compare this with:
    '/usr/local/bin/perldoc perlreftut'
    move to 'Use Rule 2', the line below reads:

    "${$aref}[3]" is too hard to read, so you can write "$aref->[3]" instead.

>Fix:

The patch below modifies use.perl in this way, that perlcc, perlbug and perldoc
are changed as well when switching forth and back between system's perl and
port's perl.

------------------------- cut here ---------------------------------------
--- /usr/local/bin/use.perl.orig	Mon Sep 22 13:20:13 2003
+++ /usr/local/bin/use.perl	Mon Sep 22 14:46:05 2003
@@ -2,8 +2,6 @@
 # $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;
@@ -43,6 +41,19 @@
 		link '/usr/bin/perl5', '/usr/bin/perl';
 		link '/usr/bin/perl5', '/usr/bin/perl5.8.0';
 
+		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';
+		}
+
 		if ($ident =~ m#src/usr.bin/perl/perl.c#) {
 			link '/usr/bin/perl5', '/usr/bin/suidperl';
 		} else {
@@ -92,6 +103,19 @@
 		symlink '/usr/local/bin/perl', '/usr/bin/perl';
 		symlink '/usr/local/bin/suidperl', '/usr/bin/suidperl';
 		symlink '/usr/local/bin/perl', '/usr/bin/perl5.8.0';
+
+		if( ! -e '/usr/bin/perlbug-system' ) {
+			rename '/usr/bin/perlbug', '/usr/bin/perlbug-system';
+			symlink '/usr/local/bin/perlbug', '/usr/bin/perlbug';
+		}
+		if( ! -e '/usr/bin/perlcc-system' ) {
+			rename '/usr/bin/perlcc', '/usr/bin/perlcc-system';
+			symlink '/usr/local/bin/perlcc', '/usr/bin/perlcc';
+		}
+		if( ! -e '/usr/bin/perldoc-system' ) {
+			rename '/usr/bin/perldoc', '/usr/bin/perldoc-system';
+			symlink '/usr/local/bin/perldoc', '/usr/bin/perldoc';
+		}
 	}
 
 	open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";
>Release-Note:
>Audit-Trail:
Responsible-Changed-From-To: freebsd-ports-bugs->tobez  
Responsible-Changed-By: krion 
Responsible-Changed-When: Wed Sep 24 02:41:19 PDT 2003 
Responsible-Changed-Why:  
Over to maintainer 

http://www.freebsd.org/cgi/query-pr.cgi?pr=57151 

From: Alexander Haderer <alexander.haderer@charite.de>
To: freebsd-gnats-submit@FreeBSD.org, alexander.haderer@charite.de
Cc:  
Subject: Re: ports/57151: Port lang/perl5.8: use.perl fails to modify
  perldoc
Date: Mon, 06 Oct 2003 16:56:01 +0200

 --=====================_20914187==_
 Content-Type: text/plain; charset="us-ascii"
 
 Hello,
 
 when submitting the PR I accidently sent the patch for the installed use.perl, here is the patch for /usr/ports/lang/perl5.8.
 
 Sorry for the confusion,
 
 Alexander
 
 --=====================_20914187==_
 Content-Type: application/octet-stream; name="use.perl.diff";
  x-mac-type="42494E41"; x-mac-creator="5843454C"
 Content-Transfer-Encoding: base64
 Content-Disposition: attachment; filename="use.perl.diff"
 
 LS0tIGZpbGVzL3VzZS5wZXJsLm9yaWcJTW9uIFNlcCAyMiAxNTozNzo1MCAyMDAzCisrKyBmaWxl
 cy91c2UucGVybAlNb24gT2N0ICA2IDE2OjU1OjUzIDIwMDMKQEAgLTIsOCArMiw2IEBACiAjICRG
 cmVlQlNEOiBwb3J0cy9sYW5nL3Blcmw1LjgvZmlsZXMvdXNlLnBlcmwsdiAxLjYgMjAwMi8wNy8y
 MSAxNzowOToxMiB0b2JleiBFeHAgJAogdXNlIHN0cmljdDsKIAotIyBYWFggd2hhdCB0byBkbyB3
 aXRoIHBlcmxkb2MsIHBlbGJ1ZywgcGVybGNjID8/Ci0KIHN1YiB1c2FnZQogewogCXByaW50IFNU
 REVSUiA8PEVPRjsKQEAgLTQ4LDYgKzQ2LDE5IEBACiAJCX0gZWxzZSB7CiAJCQlsaW5rICcvdXNy
 L2Jpbi9zcGVybDUnLCAnL3Vzci9iaW4vc3VpZHBlcmwnOwogCQl9CisKKwkJaWYoIC1lICcvdXNy
 L2Jpbi9wZXJsYnVnLXN5c3RlbScpIHsKKwkJCXVubGluayAnL3Vzci9iaW4vcGVybGJ1Zyc7CisJ
 CQlyZW5hbWUgJy91c3IvYmluL3BlcmxidWctc3lzdGVtJywgJy91c3IvYmluL3BlcmxidWcnOwor
 CQl9CisJCWlmKCAtZSAnL3Vzci9iaW4vcGVybGNjLXN5c3RlbScpIHsKKwkJCXVubGluayAnL3Vz
 ci9iaW4vcGVybGNjJzsKKwkJCXJlbmFtZSAnL3Vzci9iaW4vcGVybGNjLXN5c3RlbScsICcvdXNy
 L2Jpbi9wZXJsY2MnOworCQl9CisJCWlmKCAtZSAnL3Vzci9iaW4vcGVybGRvYy1zeXN0ZW0nKSB7
 CisJCQl1bmxpbmsgJy91c3IvYmluL3Blcmxkb2MnOworCQkJcmVuYW1lICcvdXNyL2Jpbi9wZXJs
 ZG9jLXN5c3RlbScsICcvdXNyL2Jpbi9wZXJsZG9jJzsKKwkJfQogCX0KIAogCW9wZW4gTUssICI+
 PiAvZXRjL21ha2UuY29uZiIgb3IgZGllICIvZXRjL21ha2UuY29uZjogJCEiOwpAQCAtOTIsNiAr
 MTAzLDE5IEBACiAJCXN5bWxpbmsgJyUlUFJFRklYJSUvYmluL3BlcmwnLCAnL3Vzci9iaW4vcGVy
 bCc7CiAJCXN5bWxpbmsgJyUlUFJFRklYJSUvYmluL3N1aWRwZXJsJywgJy91c3IvYmluL3N1aWRw
 ZXJsJzsKIAkJc3ltbGluayAnJSVQUkVGSVglJS9iaW4vcGVybCcsICcvdXNyL2Jpbi9wZXJsJSVQ
 RVJMX1ZFUlNJT04lJSc7CisKKwkJaWYoICEgLWUgJy91c3IvYmluL3BlcmxidWctc3lzdGVtJyAp
 IHsKKwkJCXJlbmFtZSAnL3Vzci9iaW4vcGVybGJ1ZycsICcvdXNyL2Jpbi9wZXJsYnVnLXN5c3Rl
 bSc7CisJCQlzeW1saW5rICclJVBSRUZJWCUlL2Jpbi9wZXJsYnVnJywgJy91c3IvYmluL3Blcmxi
 dWcnOworCQl9CisJCWlmKCAhIC1lICcvdXNyL2Jpbi9wZXJsY2Mtc3lzdGVtJyApIHsKKwkJCXJl
 bmFtZSAnL3Vzci9iaW4vcGVybGNjJywgJy91c3IvYmluL3BlcmxjYy1zeXN0ZW0nOworCQkJc3lt
 bGluayAnJSVQUkVGSVglJS9iaW4vcGVybGNjJywgJy91c3IvYmluL3BlcmxjYyc7CisJCX0KKwkJ
 aWYoICEgLWUgJy91c3IvYmluL3Blcmxkb2Mtc3lzdGVtJyApIHsKKwkJCXJlbmFtZSAnL3Vzci9i
 aW4vcGVybGRvYycsICcvdXNyL2Jpbi9wZXJsZG9jLXN5c3RlbSc7CisJCQlzeW1saW5rICclJVBS
 RUZJWCUlL2Jpbi9wZXJsZG9jJywgJy91c3IvYmluL3Blcmxkb2MnOworCQl9CiAJfQogCiAJb3Bl
 biBNSywgIj4+IC9ldGMvbWFrZS5jb25mIiBvciBkaWUgIi9ldGMvbWFrZS5jb25mOiAkISI7Cg==
 --=====================_20914187==_--
 

From: Sergey Matveychuk <sem@ciam.ru>
To: freebsd-gnats-submit@FreeBSD.org, alexander.haderer@charite.de
Cc:  
Subject: Re: ports/57151: Port lang/perl5.8: use.perl fails to modify perldoc
Date: Tue, 16 Dec 2003 10:47:26 +0300

 can you see PR/55760?
 -- 
 Sem.
State-Changed-From-To: open->closed 
State-Changed-By: tobez 
State-Changed-When: Wed Feb 2 10:51:14 CET 2005 
State-Changed-Why:  
After the recent update of lang/perl5 and lang/perl5.8, if perldoc, a2p, 
and other perl-related binaries are detected in /usr/bin, they are 
replaced with symlinks to the versions installed by perl port, provided 
use.perl port was run. 

http://www.freebsd.org/cgi/query-pr.cgi?pr=57151 
>Unformatted:
