[gentoo-commits] gentoo-x86 commit in dev-lang/perl/files: perl-5.8.8-darwin-cc-ld.patch perl-5.8.8-solaris11.patch perl-5.12.3-interix.patch perl-5.8.8-usr-local.patch perl-5.10.1-cleanup-paths.patch perl-5.8.8-solaris-relocation.patch perl-5.10.1-hpux.patch perl-5.14.1-cleanup-paths.patch perl-5.12.3-mint.patch perl-5.12.3-aix-soname.patch

[Fabian Groffen (grobian)]

grobian     12/03/03 12:29:38

  Added:                perl-5.8.8-darwin-cc-ld.patch
                        perl-5.8.8-solaris11.patch
                        perl-5.12.3-interix.patch
                        perl-5.8.8-usr-local.patch
                        perl-5.10.1-cleanup-paths.patch
                        perl-5.8.8-solaris-relocation.patch
                        perl-5.10.1-hpux.patch
                        perl-5.14.1-cleanup-paths.patch
                        perl-5.12.3-mint.patch perl-5.12.3-aix-soname.patch
  Log:
  Revbump of 5.12.4 for Prefix changes, same changes in 5.14.2, transferred Prefix keywords, bug #395685
  
  (Portage version: 2.2.01.20271-prefix/cvs/Darwin i386)

Revision  Changes    Path
1.1                  dev-lang/perl/files/perl-5.8.8-darwin-cc-ld.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-darwin-cc-ld.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-darwin-cc-ld.patch?rev=1.1&content-type=text/plain

Index: perl-5.8.8-darwin-cc-ld.patch
===================================================================
Use $CC to link (and check for broken compilers), such that we don't get
linked modules of a different bitness.
http://bugs.gentoo.org/show_bug.cgi?id=297751

--- hints/darwin.sh
+++ hints/darwin.sh
@@ -128,13 +128,13 @@
 ccflags="${ccflags} ${cppflags}"
 
 # Known optimizer problems.
-case "`cc -v 2>&1`" in
+case "`${cc:-gcc} -v 2>&1`" in
   *"3.1 20020105"*) toke_cflags='optimize=""' ;;
 esac
 
 # Shared library extension is .dylib.
 # Bundle extension is .bundle.
-ld='cc';
+ld="${cc:-gcc}";
 so='dylib';
 dlext='bundle';
 usedl='define';



1.1                  dev-lang/perl/files/perl-5.8.8-solaris11.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-solaris11.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-solaris11.patch?rev=1.1&content-type=text/plain

Index: perl-5.8.8-solaris11.patch
===================================================================
Thanks to the nice OpenSolaris guys, I finally figured out that on
OpenSolaris 11, the header dependencies have changed.

--- perl.h
+++ perl.h
@@ -1192,6 +1192,8 @@
  */
 
 #if defined(I_SYSMODE) && !defined(PERL_MICRO)
+#include <sys/stat.h>
+#include <sys/vnode.h>
 #include <sys/mode.h>
 #endif
 



1.1                  dev-lang/perl/files/perl-5.12.3-interix.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.12.3-interix.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.12.3-interix.patch?rev=1.1&content-type=text/plain

Index: perl-5.12.3-interix.patch
===================================================================
reported: http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2011-04/msg01014.html

diff -ru perl-5.12.3.orig/hints/interix.sh perl-5.12.3/hints/interix.sh
--- perl-5.12.3.orig/hints/interix.sh	2011-04-27 08:34:00 +0200
+++ perl-5.12.3/hints/interix.sh	2011-04-27 08:53:46 +0200
@@ -6,14 +6,13 @@
 cc='gcc'
 cccdlflags="-DPIC $cccdlflags"
 ccdlflags='-Wl,-E'
-ccflags="-D_ALL_SOURCE $ccflags"
-d_poll="$undef"
 ld='gcc'
 lddlflags="-shared $lddlflags"
 rpathflag='-Wl,-R'
 sharpbang='#!'
 usemymalloc='false'
 usenm='false'
+firstmakefile=GNUmakefile
 
 # This script UU/usethreads.cbu will get 'called-back' by Configure 
 # after it has prompted the user for whether to use threads. 



1.1                  dev-lang/perl/files/perl-5.8.8-usr-local.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-usr-local.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-usr-local.patch?rev=1.1&content-type=text/plain

Index: perl-5.8.8-usr-local.patch
===================================================================
# remove /usr/local paths from all stuff thats used
# in Configure script, locincpth, loclibpth and glibpth are sedded
# afterwards not to conflict with the lib32 and lib64 patches

diff -rubB perl-5.8.8.orig/Configure perl-5.8.8/Configure
--- perl-5.8.8.orig/Configure	Tue Jan 15 10:41:29 2008
+++ perl-5.8.8/Configure	Tue Jan 15 10:44:59 2008
@@ -4424,7 +4422,7 @@
 : Set private lib path
 case "$plibpth" in
 '') if ./mips; then
-		plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
+		plibpth="$incpath/usr/lib /usr/ccs/lib"
 	fi;;
 esac
 case "$libpth" in
@@ -19144,7 +19142,7 @@
 	case "$ranlib" in
 	:) ranlib='';;
 	'')
-		ranlib=`./loc ranlib X /usr/bin /bin /usr/local/bin`
+		ranlib=`./loc ranlib X /usr/bin /bin`
 		$test -f $ranlib || ranlib=''
 		;;
 	esac



1.1                  dev-lang/perl/files/perl-5.10.1-cleanup-paths.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.10.1-cleanup-paths.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.10.1-cleanup-paths.patch?rev=1.1&content-type=text/plain

Index: perl-5.10.1-cleanup-paths.patch
===================================================================
cut the crap of inventing paths, or adding search paths that we don't use

--- Configure
+++ Configure
@@ -102,28 +102,6 @@
 	fi
 fi
 
-: Proper PATH setting
-paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
-paths="$paths /opt/bin /opt/local/bin /opt/local /opt/lbin"
-paths="$paths /usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin"
-paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
-paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
-paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin"
-paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
-paths="$paths /sbin /usr/sbin /usr/libexec"
-paths="$paths /system/gnu_library/bin"
-
-for p in $paths
-do
-	case "$p_$PATH$p_" in
-	*$p_$p$p_*) ;;
-	*) test -d $p && PATH=$PATH$p_$p ;;
-	esac
-done
-
-PATH=.$p_$PATH
-export PATH
-
 : shall we be using ksh?
 inksh=''
 needksh=''
@@ -8282,66 +8260,6 @@
 	;;
 esac
 
-# How will the perl executable find the installed shared $libperl?
-# Add $xxx to ccdlflags.
-# If we can't figure out a command-line option, use $shrpenv to
-# set env LD_RUN_PATH.  The main perl makefile uses this.
-shrpdir=$archlibexp/CORE
-xxx=''
-tmp_shrpenv=''
-if "$useshrplib"; then
-    case "$osname" in
-	aix)
-		# We'll set it in Makefile.SH...
-		;;
-	solaris)
-		xxx="-R $shrpdir"
-		;;
-	freebsd|netbsd|openbsd|interix|dragonfly)
-		xxx="-Wl,-R$shrpdir"
-		;;
-	bsdos|linux|irix*|dec_osf|gnu*)
-		xxx="-Wl,-rpath,$shrpdir"
-		;;
-	next)
-		# next doesn't like the default...
-		;;
-	beos)
-		# beos doesn't like the default, either.
-		;;
-	haiku)
-		# Haiku doesn't like the default, either.
-		;;
-	hpux*)
-		# hpux doesn't like the default, either.
-		tmp_shrpenv="env LDOPTS=\"+s +b${shrpdir}\""
-		;;
-	cygwin)
-		# cygwin needs only ldlibpth
-		;;
-	*)
-		tmp_shrpenv="env LD_RUN_PATH=$shrpdir"
-		;;
-	esac
-	case "$xxx" in
-	'') ;;
-	*)
-		# Only add $xxx if it isn't already in ccdlflags.
-		case " $ccdlflags " in
-		*" $xxx "*)	;;
-		*)	ccdlflags="$ccdlflags $xxx"
-			cat <<EOM >&4
-
-Adding $xxx to the flags
-passed to $ld so that the perl executable will find the
-installed shared $libperl.
-
-EOM
-			;;
-		esac
-		;;
-	esac
-fi
 # Fix ccdlflags in AIX for building external extensions.
 # (For building Perl itself bare -bE:perl.exp is needed,
 #  Makefile.SH takes care of this.)



1.1                  dev-lang/perl/files/perl-5.8.8-solaris-relocation.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-solaris-relocation.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.8.8-solaris-relocation.patch?rev=1.1&content-type=text/plain

Index: perl-5.8.8-solaris-relocation.patch
===================================================================
http://sourceware.org/ml/binutils/2005-12/msg00008.html
--- hints/solaris_2.sh
+++ hints/solaris_2.sh
@@ -289,7 +289,7 @@
 
 END
 		ccdlflags="$ccdlflags -Wl,-E"
-		lddlflags="$lddlflags -Wl,-E -G"
+		lddlflags="$lddlflags -shared"
 	    fi
 	fi
 
@@ -555,7 +555,7 @@
 		    : #ccflags="$ccflags -Wa,`getconf XBS5_LP64_OFF64_CFLAGS 2>/dev/null`"
 		fi
 		ldflags="$ldflags -m64"
-		lddlflags="$lddlflags -G -m64"
+		lddlflags="$lddlflags -m64"
 		;;
 	    *)
 		ccflags="$ccflags `getconf XBS5_LP64_OFF64_CFLAGS 2>/dev/null`"



1.1                  dev-lang/perl/files/perl-5.10.1-hpux.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.10.1-hpux.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.10.1-hpux.patch?rev=1.1&content-type=text/plain

Index: perl-5.10.1-hpux.patch
===================================================================
# do not assume '.' being in PATH on hpux,
# use 'gcc' as linker, link with '-lm'.

--- hints/hpux.sh
+++ hints/hpux.sh
@@ -190,7 +190,7 @@
     $define|true|[Yy])
 	echo '#include <stdio.h>\nint main(){long l;printf("%d\\n",sizeof(l));}'>try.c
 	$cc -o try $ccflags $ldflags try.c
-	if [ "`try`" = "8" ]; then
+	if [ "`./try`" = "8" ]; then
 	    case "$use64bitall" in
 		$define|true|[Yy]) ;;
 		*)  cat <<EOM >&4
@@ -338,7 +338,7 @@
     } /* main */
 EOF
 $cc -o try $ccflags $ldflags try.c
-	maxdsiz=`try`
+	maxdsiz=`./try`
 rm -f try try.c core
 if [ $maxdsiz -le 64 ]; then
     # 64 Mb is probably not enough to optimize toke.c
@@ -363,11 +363,12 @@
 	    "")           optimize="-g -O" ;;
 	    *O[3456789]*) optimize=`echo "$optimize" | sed -e 's/O[3-9]/O2/'` ;;
 	    esac
-	#ld="$cc"
-	ld=/usr/bin/ld
+	ld="$cc"
+	#ld=/usr/bin/ld
 	cccdlflags='-fPIC'
-	#lddlflags='-shared'
-	lddlflags='-b'
+	lddlflags='-shared'
+	#lddlflags='-b'
+	libs='-lm'
 	case "$optimize" in
 	    *-g*-O*|*-O*-g*)
 		# gcc without gas will not accept -g



1.1                  dev-lang/perl/files/perl-5.14.1-cleanup-paths.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.14.1-cleanup-paths.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.14.1-cleanup-paths.patch?rev=1.1&content-type=text/plain

Index: perl-5.14.1-cleanup-paths.patch
===================================================================
cut the crap of inventing paths, or adding search paths that we don't use

--- Configure
+++ Configure
@@ -105,28 +105,6 @@
 	fi
 fi
 
-: Proper PATH setting
-paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
-paths="$paths /opt/bin /opt/local/bin /opt/local /opt/lbin"
-paths="$paths /usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin"
-paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
-paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
-paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin"
-paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
-paths="$paths /sbin /usr/sbin /usr/libexec"
-paths="$paths /system/gnu_library/bin"
-
-for p in $paths
-do
-	case "$p_$PATH$p_" in
-	*$p_$p$p_*) ;;
-	*) test -d $p && PATH=$PATH$p_$p ;;
-	esac
-done
-
-PATH=.$p_$PATH
-export PATH
-
 : shall we be using ksh?
 inksh=''
 needksh=''
@@ -8287,66 +8265,6 @@
 	;;
 esac
 
-# How will the perl executable find the installed shared $libperl?
-# Add $xxx to ccdlflags.
-# If we can't figure out a command-line option, use $shrpenv to
-# set env LD_RUN_PATH.  The main perl makefile uses this.
-shrpdir=$archlibexp/CORE
-xxx=''
-tmp_shrpenv=''
-if "$useshrplib"; then
-    case "$osname" in
-	aix)
-		# We'll set it in Makefile.SH...
-		;;
-	solaris)
-		xxx="-R $shrpdir"
-		;;
-	freebsd|mirbsd|netbsd|openbsd|interix|dragonfly)
-		xxx="-Wl,-R$shrpdir"
-		;;
-	bsdos|linux|irix*|dec_osf|gnu*)
-		xxx="-Wl,-rpath,$shrpdir"
-		;;
-	next)
-		# next doesn't like the default...
-		;;
-	beos)
-		# beos doesn't like the default, either.
-		;;
-	haiku)
-		# Haiku doesn't like the default, either.
-		;;
-	hpux*)
-		# hpux doesn't like the default, either.
-		tmp_shrpenv="env LDOPTS=\"+s +b${shrpdir}\""
-		;;
-	cygwin)
-		# cygwin needs only ldlibpth
-		;;
-	*)
-		tmp_shrpenv="env LD_RUN_PATH=$shrpdir"
-		;;
-	esac
-	case "$xxx" in
-	'') ;;
-	*)
-		# Only add $xxx if it isn't already in ccdlflags.
-		case " $ccdlflags " in
-		*" $xxx "*)	;;
-		*)	ccdlflags="$ccdlflags $xxx"
-			cat <<EOM >&4
-
-Adding $xxx to the flags
-passed to $ld so that the perl executable will find the
-installed shared $libperl.
-
-EOM
-			;;
-		esac
-		;;
-	esac
-fi
 # Fix ccdlflags in AIX for building external extensions.
 # (For building Perl itself bare -bE:perl.exp is needed,
 #  Makefile.SH takes care of this.)



1.1                  dev-lang/perl/files/perl-5.12.3-mint.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.12.3-mint.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.12.3-mint.patch?rev=1.1&content-type=text/plain

Index: perl-5.12.3-mint.patch
===================================================================
http://rt.perl.org/rt3/Ticket/Display.html?id=89502

--- perl-5.12.3/Configure	2011-02-21 09:18:09.000000000 +0000
+++ perl-5.12.3/Configure	2011-02-21 09:38:49.000000000 +0000
@@ -1275,6 +1275,9 @@ 
 elif test -n "$DJGPP"; then
 : DOS DJGPP
     _exe=".exe"
+elif test -f "/kern/cookiejar"; then
+: MiNT
+    _exe=""
 elif test -d c:/. -o -n "$is_os2" ; then
 : OS/2 or cygwin
     _exe=".exe"
@@ -1402,7 +1405,7 @@ 
 	xcat=/bin/cat
 	test -f $xcat$_exe || xcat=/usr/bin/cat
 	if test ! -f $xcat$_exe; then
-		for p in `echo $PATH | sed -e "s/$p_/ /g"` $paths; do
+		for p in `echo $PATH | sed -e 's/$p_/ /g'` $paths; do
 			if test -f $p/cat$_exe; then
 				xcat=$p/cat
 				break
--- perl-5.12.3/ext/DynaLoader/dl_dld.xs	2010-11-21 21:40:55.000000000 +0000
+++ perl-5.12.3/ext/DynaLoader/dl_dld.xs	2011-02-21 09:38:51.000000000 +0000
@@ -116,6 +116,18 @@ 
 	goto haverror;
     }
 
+    DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dld_link(libm.a)\n"));
+    if (dlderr = dld_link("/usr/lib/libm.a")) {
+	SaveError(aTHX_ "dld_link(libm.a): %s", dld_strerror(dlderr));
+	goto haverror;
+    }
+
+    DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dld_link(libc.a)\n"));
+    if (dlderr = dld_link("/usr/lib/libc.a")) {
+	SaveError(aTHX_ "dld_link(libc.a): %s", dld_strerror(dlderr));
+	goto haverror;
+    }
+
     max = AvFILL(dl_resolve_using);
     for (x = 0; x <= max; x++) {
 	char *sym = SvPVX(*av_fetch(dl_resolve_using, x, 0));
--- perl-5.12.3/malloc.c	2011-01-09 20:20:57.000000000 +0000
+++ perl-5.12.3/malloc.c	2011-02-21 09:38:51.000000000 +0000
@@ -264,7 +264,7 @@ 
 #define MIN_BUC_POW2 (sizeof(void*) > 4 ? 3 : 2) /* Allow for 4-byte arena. */
 #define MIN_BUCKET (MIN_BUC_POW2 * BUCKETS_PER_POW2)
 
-#if !(defined(I286) || defined(atarist))
+#if !defined(I286)
 	/* take 2k unless the block is bigger than that */
 #  define LOG_OF_MIN_ARENA 11
 #else
@@ -551,8 +551,8 @@ 
  */
 #define u_short unsigned short
 
-/* 286 and atarist like big chunks, which gives too much overhead. */
-#if (defined(RCHECK) || defined(I286) || defined(atarist)) && defined(PACK_MALLOC)
+/* 286 like big chunks, which gives too much overhead. */
+#if (defined(RCHECK) || defined(I286)) && defined(PACK_MALLOC)
 #  undef PACK_MALLOC
 #endif 
 
@@ -1734,16 +1734,14 @@ 
 	/* Second, check alignment. */
 	slack = 0;
 
-#if !defined(atarist) /* on the atari we dont have to worry about this */
-#  ifndef I286 	/* The sbrk(0) call on the I286 always returns the next segment */
+#ifndef I286 	/* The sbrk(0) call on the I286 always returns the next segment */
 	/* WANTED_ALIGNMENT may be more than NEEDED_ALIGNMENT, but this may
 	   improve performance of memory access. */
 	if (PTR2UV(cp) & (WANTED_ALIGNMENT - 1)) { /* Not aligned. */
 	    slack = WANTED_ALIGNMENT - (PTR2UV(cp) & (WANTED_ALIGNMENT - 1));
 	    add += slack;
 	}
-#  endif
-#endif /* !atarist */
+#endif
 		
 	if (add) {
 	    DEBUG_m(PerlIO_printf(Perl_debug_log, 
--- perl-5.12.3/miniperlmain.c	2011-01-09 20:20:57.000000000 +0000
+++ perl-5.12.3/miniperlmain.c	2011-02-21 09:38:49.000000000 +0000
@@ -45,7 +45,7 @@ 
 #if defined (atarist)
 /* The Atari operating system doesn't have a dynamic stack.  The
    stack size is determined from this value.  */
-long _stksize = 64 * 1024;
+long _stksize = 256 * 1024;
 #endif
 
 #if defined(PERL_GLOBAL_STRUCT_PRIVATE)
--- perl-5.12.3/os2/perlrexx.c	2010-11-21 21:40:56.000000000 +0000
+++ perl-5.12.3/os2/perlrexx.c	2011-02-21 09:42:49.000000000 +0000
@@ -38,7 +38,7 @@ 
 #if defined (atarist)
 /* The Atari operating system doesn't have a dynamic stack.  The
    stack size is determined from this value.  */
-long _stksize = 64 * 1024;
+long _stksize = 256 * 1024;
 #endif
 
 /* Register any extra external extensions */
--- perl-5.12.3/perl.c	2011-02-21 09:17:19.000000000 +0000
+++ perl-5.12.3/perl.c	2011-02-21 09:38:50.000000000 +0000
@@ -3272,10 +3272,6 @@ 
 		      "\n\nOS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n"
 		      "Version 5 port Copyright (c) 1994-2002, Andreas Kaiser, Ilya Zakharevich\n");
 #endif
-#ifdef atarist
-	PerlIO_printf(PerlIO_stdout(),
-		      "atariST series port, ++jrb  bammi@×××××××.com\n");
-#endif
 #ifdef __BEOS__
 	PerlIO_printf(PerlIO_stdout(),
 		      "BeOS port Copyright Tom Spindler, 1997-1999\n");
--- perl-5.12.3/perl.h	2011-01-09 20:20:57.000000000 +0000
+++ perl-5.12.3/perl.h	2011-02-21 09:38:50.000000000 +0000
@@ -497,7 +497,7 @@ 
  */
 
 /* define this once if either system, instead of cluttering up the src */
-#if defined(MSDOS) || defined(atarist) || defined(WIN32) || defined(NETWARE)
+#if defined(MSDOS) || defined(WIN32) || defined(NETWARE)
 #define DOSISH 1
 #endif
 
--- perl-5.12.3/perlio.c	2009-04-14 23:47:25.000000000 +0000
+++ perl-5.12.3/perlio.c	2010-03-23 18:36:15.000000000 +0000
@@ -135,17 +135,6 @@ 
      * This used to be contents of do_binmode in doio.c
      */
 #ifdef DOSISH
-#  if defined(atarist)
-    PERL_UNUSED_ARG(iotype);
-    if (!fflush(fp)) {
-        if (mode & O_BINARY)
-            ((FILE *) fp)->_flag |= _IOBIN;
-        else
-            ((FILE *) fp)->_flag &= ~_IOBIN;
-        return 1;
-    }
-    return 0;
-#  else
     dTHX;
     PERL_UNUSED_ARG(iotype);
 #ifdef NETWARE
@@ -153,7 +142,7 @@ 
 #else
     if (PerlLIO_setmode(fileno(fp), mode) != -1) {
 #endif
-#    if defined(WIN32) && defined(__BORLANDC__)
+#  if defined(WIN32) && defined(__BORLANDC__)
         /*
          * The translation mode of the stream is maintained independent 
 of
@@ -169,12 +158,11 @@ 
             fp->flags |= _F_BIN;
         else
             fp->flags &= ~_F_BIN;
-#    endif
+#  endif
         return 1;
     }
     else
         return 0;
-#  endif
 #else
 #  if defined(USEMYBINMODE)
     dTHX;
--- perl-5.12.3/pp_sys.c	2011-01-09 20:20:58.000000000 +0000
+++ perl-5.12.3/pp_sys.c	2011-02-21 09:38:50.000000000 +0000
@@ -3308,14 +3308,6 @@ 
     RETPUSHNO;
 }
 
-#if defined(atarist) /* this will work with atariST. Configure will
-			make guesses for other systems. */
-# define FILE_base(f) ((f)->_base)
-# define FILE_ptr(f) ((f)->_ptr)
-# define FILE_cnt(f) ((f)->_cnt)
-# define FILE_bufsiz(f) ((f)->_cnt + ((f)->_ptr - (f)->_base))
-#endif
-
 PP(pp_fttext)
 {
     dVAR;
@@ -5567,30 +5559,6 @@ 
     case 8:
 	retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7]);
 	break;
-#ifdef atarist
-    case 9:
-	retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);
-	break;
-    case 10:
-	retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9]);
-	break;
-    case 11:
-	retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-	  a[10]);
-	break;
-    case 12:
-	retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-	  a[10],a[11]);
-	break;
-    case 13:
-	retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-	  a[10],a[11],a[12]);
-	break;
-    case 14:
-	retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-	  a[10],a[11],a[12],a[13]);
-	break;
-#endif /* atarist */
     }
     SP = ORIGMARK;
     PUSHi(retval);
--- perl-5.12.3/util.c	2011-01-09 20:20:58.000000000 +0000
+++ perl-5.12.3/util.c	2011-02-21 09:38:51.000000000 +0000
@@ -2545,7 +2545,7 @@ 
     return PerlIO_fdopen(p[This], mode);
 }
 #else
-#if defined(atarist) || defined(EPOC)
+#if defined(EPOC)
 FILE *popen();
 PerlIO *
 Perl_my_popen(pTHX_ const char *cmd, const char *mode)
@@ -2994,7 +2994,7 @@ 
 }
 #endif
 
-#if defined(atarist) || defined(OS2) || defined(EPOC)
+#if defined(OS2) || defined(EPOC)
 int pclose();
 #ifdef HAS_FORK
 int					/* Cannot prototype with I32
@@ -3111,7 +3111,7 @@ 
     I32 len = 0;
     int retval;
     char *bufend;
-#if defined(DOSISH) && !defined(OS2) && !defined(atarist)
+#if defined(DOSISH) && !defined(OS2)
 #  define SEARCH_EXTS ".bat", ".cmd", NULL
 #  define MAX_EXT_LEN 4
 #endif
@@ -3234,28 +3234,25 @@ 
 
 	bufend = s + strlen(s);
 	while (s < bufend) {
-#if defined(atarist) || defined(DOSISH)
+#if defined(DOSISH)
 	    for (len = 0; *s
-#  ifdef atarist
-		    && *s != ','
-#  endif
 		    && *s != ';'; len++, s++) {
 		if (len < sizeof tmpbuf)
 		    tmpbuf[len] = *s;
 	    }
 	    if (len < sizeof tmpbuf)
 		tmpbuf[len] = '\0';
-#else  /* ! (atarist || DOSISH) */
+#else  /* ! (DOSISH) */
 	    s = delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf, s, bufend,
 			':',
 			&len);
-#endif /* ! (atarist || DOSISH) */
+#endif /* ! (DOSISH) */
 	    if (s < bufend)
 		s++;
 	    if (len + 1 + strlen(scriptname) + MAX_EXT_LEN >= sizeof tmpbuf)
 		continue;	/* don't search dir with too-long name */
 	    if (len
-#  if defined(atarist) || defined(DOSISH)
+#  if defined(DOSISH)
 		&& tmpbuf[len - 1] != '/'
 		&& tmpbuf[len - 1] != '\\'
 #  endif
--- perl-5.12.3/hints/freemint.sh	2011-01-09 20:20:58.000000000 +0000
+++ perl-5.12.3/hints/freemint.sh	2011-02-21 09:38:51.000000000 +0000
@@ -0,0 +1,34 @@ 
+# hints/freemint.sh
+#
+# talk to guido@××××××××.de if you want to change this file.
+# Please read the README.mint file.
+#
+# misc stuff
+
+archname="m68k-freemint"
+
+cccdlflags=' '; # avoid -fPIC
+ccdlflags="-Wl,-whole-archive -lgcc -lpthread -Wl,-no-whole-archive"
+
+# libs
+libpth="$prefix/lib /usr/local/lib /usr/lib"
+glibpth="$libpth"
+xlibpth="$libpth"
+
+ccflags="$ccflags -D_GNU_SOURCE"
+libswanted='m dld'
+dl_src='dl_dld.xs'
+dlext='o'
+lddlflags='-r'
+ldflags='-static'
+so='none'
+useshrplib='false'
+
+#sbrk() returns -1 (failure) somewhere in lib/unicore/mktables at
+#around 14M, so we need to use system malloc() as our sbrk()
+malloc_cflags='ccflags="-DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC $ccflags"'
+
+# Locales aren't feeling well. We crash if -Ox used.
+locale_cflags='optimize="-O0"'
+LC_ALL=C; export LC_ALL;
+LANG=C; export LANG;



1.1                  dev-lang/perl/files/perl-5.12.3-aix-soname.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.12.3-aix-soname.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lang/perl/files/perl-5.12.3-aix-soname.patch?rev=1.1&content-type=text/plain

Index: perl-5.12.3-aix-soname.patch
===================================================================
1) Match "powerpc-ibm-aix5.3.0.0-gcc" as gcc too.

2) Creating shared library on aix with full soname support, following
http://lists.gnu.org/archive/html/libtool/2011-01/msg00023.html
http://lists.gnu.org/archive/html/libtool/2011-02/msg00000.html

Once there is an agreement on that, this patch basically is designed
for upstream perl to be applied when their soname would change anyway.
However, there is 'strip' being used, and I don't know yet what to
use instead in cross-aix setups with recent binutils.

--- Makefile.SH
+++ Makefile.SH
@@ -92,12 +92,12 @@
 		;;
 	aix*)
 		case "$cc" in
-		gcc*)
-			shrpldflags="-shared -Wl,-H512 -Wl,-T512 -Wl,-bhalt:4 -Wl,-bM:SRE -Wl,-bE:perl.exp"
+		*gcc*)
+			shrpldflags="-shared -Wl,-H512 -Wl,-T512 -Wl,-bhalt:4 -Wl,-bE:perl.exp"
 			case "$osvers" in
-			3*)	shrpldflags="$shrpldflags -e _nostart"
+			3*)	shrpldflags="$shrpldflags -Wl,-bM:SRE -e _nostart"
 				;;
-			*)	shrpldflags="$shrpldflags -Wl,-bnoentry"
+			*)	shrpldflags="$shrpldflags -Wl,-G -Wl,-bernotok -Wl,-bnoentry"
 				;;
 			esac
 			shrpldflags="$shrpldflags $ldflags $perllibs $cryptlib"
@@ -105,11 +105,11 @@
 			linklibperl_nonshr='-lperl_nonshr'
 			;;
 		*)
-			shrpldflags="-H512 -T512 -bhalt:4 -bM:SRE -bE:perl.exp"
+			shrpldflags="-H512 -T512 -bhalt:4 -bE:perl.exp"
 			case "$osvers" in
-			3*)	shrpldflags="$shrpldflags -e _nostart"
+			3*)	shrpldflags="$shrpldflags -bM:SRE -e _nostart"
 				;;
-			*)	shrpldflags="$shrpldflags -b noentry"
+			*)	shrpldflags="$shrpldflags -G -bernotok -b noentry"
 				;;
 			esac
 			shrpldflags="$shrpldflags $ldflags $perllibs $cryptlib"
@@ -763,11 +763,19 @@
 !NO!SUBS!
 		case "$osname" in
 		aix)
-			$spitshell >>$Makefile <<'!NO!SUBS!'
-	rm -f libperl$(OBJ_EXT)
-	mv $@ libperl$(OBJ_EXT)
-	$(AR) qv $(LIBPERL) libperl$(OBJ_EXT)
-!NO!SUBS!
+			bits=32
+			if test X"$use64bitall" = Xdefine; then bits=64; fi
+			$spitshell >>$Makefile <<!GROK!THIS!
+	rm -f shr.imp shr.o
+	mv \$@ shr.o
+	strip -e shr.o
+	( echo '#! libperl.so.${revision}.${patchlevel}(shr.o)' \\
+	; echo '# ${bits}' \\
+	; grep -v '^#!' perl.exp \\
+	) > shr.imp
+	\$(AR) qv \$@ shr.imp shr.o
+	rm -f shr.imp shr.o
+!GROK!THIS!
 			;;
 		esac
 		;;