Patch for perl to compile/work on DragonFlyBSD

Message-ID: <4a1e16420602140827w17fd6595w@mail.gmail.com>

p4raw-id: //depot/metaconfig@27188

diff --git a/U/modified/Oldconfig.U b/U/modified/Oldconfig.U
index 9b6a821..5fc2189 100644 (file)
--- a/U/modified/Oldconfig.U
+++ b/U/modified/Oldconfig.U
@@ -1,7 +1,7 @@
 ?RCS: $Id: Oldconfig.U,v 3.0.1.10 1997/02/28 15:06:39 ram Exp $
 ?RCS:
 ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
+?RCS:
 ?RCS: You may redistribute only under the terms of the Artistic Licence,
 ?RCS: as specified in the README file that comes with the distribution.
 ?RCS: You may reuse parts of this distribution only within the terms of
@@ -273,7 +273,7 @@ EOM
 ?X:  $3 and $4 are version/subversion
 ?X:  $5 is always "pc", but that might not be unique to DJGPP.
 ?X: (e.g. Solaris_x86 has $5 = i86pc, which doesn't actually conflict,
-?X: but it's close enought that I can easily imagine other vendors also 
+?X: but it's close enought that I can easily imagine other vendors also
 ?X: using variants of pc* in $5.)
 ?X:  The "DJGPP" environment variable is always set when djgpp is active.
                pc*)
@@ -287,7 +287,7 @@ EOM
                case "$1" in
                aix) osname=aix
 ?X: aix 4.1 uname -a output looks like
-?X:            AIX  foo  1 4 000123456789   
+?X:            AIX  foo  1 4 000123456789
 ?X: where $4 is the major release number and $3 is the (minor) version.
 ?X: More detail on the version is available with the oslevel command.
 ?X: in 3.2.x, it output a string (see case statements below).  In 4.1,
@@ -318,7 +318,10 @@ EOM
                domainos) osname=apollo
                        osvers="$3"
                        ;;
-               dgux)   osname=dgux 
+               dgux)   osname=dgux
+                       osvers="$3"
+                       ;;
+               dragonfly) osname=dragonfly
                        osvers="$3"
                        ;;
 ?X:            uname -a returns
@@ -326,7 +329,7 @@ EOM
                dynixptx*) osname=dynixptx
                        osvers=`echo "$4"|sed 's/^v//'`
                        ;;
-               freebsd) osname=freebsd 
+               freebsd) osname=freebsd
                        osvers="$3" ;;
                genix)  osname=genix ;;
 ?X: GNU/Hurd uname -a gives something like:
@@ -340,7 +343,7 @@ EOM
 ?X: HP-UX foobar B.10.20 A 9000/735 2016483812 two-user license
 ?X: Preserve the full 10.20 string instead of the previous plain '10'.
 ?X:  Thanks to Graham Barr.    --AD 6/30/1998
-               hp*)    osname=hpux 
+               hp*)    osname=hpux
                        osvers=`echo "$3" | $sed 's,.*\.\([0-9]*\.[0-9]*\),\1,'`
                        ;;
                irix*)  osname=irix
@@ -440,7 +443,7 @@ EOM
                        *freebsd*) ;;
                        svr*)
                                : svr4.x or possibly later
-                               case "svr$3" in 
+                               case "svr$3" in
                                ${osname}*)
                                        osname=svr$3
                                        osvers=$4
@@ -505,7 +508,7 @@ EOM
                        osvers="$5"
                fi
        fi
-       
+
         case "$targetarch" in
         '') ;;
         *)  hostarch=$osname

diff --git a/U/perl/libperl.U b/U/perl/libperl.U
index 91b54c2..4aa4c8d 100644 (file)
--- a/U/perl/libperl.U
+++ b/U/perl/libperl.U
@@ -212,7 +212,7 @@ if "$useshrplib"; then
        solaris)
                xxx="-R $shrpdir"
                ;;
-       freebsd|netbsd|openbsd|interix)
+       freebsd|netbsd|openbsd|interix|dragonfly)
                xxx="-Wl,-R$shrpdir"
                ;;
        bsdos|linux|irix*|dec_osf|gnu*)