[47111] trunk/base/src/port1.0/portdestroot.tcl

[perry at macports.org]

Revision: 47111
          http://trac.macports.org/changeset/47111
Author:   perry at macports.org
Date:     2009-02-22 00:40:35 -0800 (Sun, 22 Feb 2009)
Log Message:
-----------
port1.0/portdestroot.tcl - Committed a possible fix for #18302.

Modified Paths:
--------------
    trunk/base/src/port1.0/portdestroot.tcl

Modified: trunk/base/src/port1.0/portdestroot.tcl
===================================================================
--- trunk/base/src/port1.0/portdestroot.tcl	2009-02-22 07:24:11 UTC (rev 47110)
+++ trunk/base/src/port1.0/portdestroot.tcl	2009-02-22 08:40:35 UTC (rev 47111)
@@ -222,6 +222,11 @@
                     set manlinkpath [file join $manpath $manlink]
                     # if link destination is not gzipped, check it
                     set manlinksrc [file readlink $manlinkpath]
+                    # if link destination is an absolute path, convert it to a
+                    # relative path
+                    if {[file pathtype $manlinksrc] eq "absolute"} {
+                        set manlinksrc [file tail $manlinksrc]
+                    }
                     if {![regexp "\[.\]gz\$" ${manlinksrc}]} {
                         set mandir [file dirname $manlink]
                         set mandirpath [file join $manpath $mandir]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090222/30a82c8f/attachment.html>