develooper Front page | perl.perl5.porters | Postings from March 2001

Re: [gsar@ActiveState.com: v5.6.1 trial2 is available]

Thread Previous | Thread Next
From:
Jarkko Hietaniemi
Date:
March 13, 2001 15:11
Subject:
Re: [gsar@ActiveState.com: v5.6.1 trial2 is available]
Message ID:
20010313171041.O4533@chaos.wustl.edu
Hi,

sorry for not answering sooner.  The suggested patch seems to work
find with the development branch of Perl, and I believe Sarathy
will apply the patch also to the maintenance branch.

On Wed, Feb 21, 2001 at 09:32:04PM +0100, Jens-Uwe Mager wrote:
> On Fri, Feb 16, 2001 at 05:44:34PM +0100, Ciaran.Deignan@bull.net wrote:
> > On Fri, 16 Feb 2001 Ciaran.Deignan@bull.net wrote:
> > 
> > > Hi Jarkko,
> > >
> > > > > I'll try to do one or two more builds. I'd really like to try it with
> > > > > Apache's mod_perl and mod_embed, these really didn't work at all with
> > > > > perl-5.6.0, but I'm not sure I'll find the time.
> > 
> > [AIX-4.3.2, IBM's C compiler, Apache apxs shared modules]
> > 
> > I tried to get mod_perl-1.25 (an Apache/perl module that's
> > supposed to let you use perl to implement script-based apache modules)
> > working with perl-5.6.1-trial2, and failed. I can get mod_perl
> > working with perl-5.5.3, but I never succeeded with perl-5.6.0.
> > 
> > With perl-5.6.1-trial2, the mod-perl initialisation is successful, but I
> > get a segmentation fault as soon as I try to access the perl script
> > (test.pl or test.perl).
> 
> A short while ago the Apache distribution did change over to the native
> dlopen library if the AIX version 4.3 and above. For previous versions
> the dlopen emulation layer is still used. Perl does always use the
> emulation, which produces a conflict if Apache uses the native one in
> the modperl case. I attach a patch below that changes the perl
> distribution to also use the native AIX dlopen on AIX 4.3 and above as
> in the Apache case.
> 
> For getting some more involved modperl modules like Embperl to work we
> probably need to change the modperl.exp file to include the magic "#! ."
> instead of simply "#!" at the beginning, this signals the native dlopen
> to import symbols from the main program. The patch already does that in
> makedef.pl for the perl.exp file, but only on AIX 4.3 and above because
> the older AIX linkers do strange things if this option is used.
> 
> -- 
> Jens-Uwe Mager
> 
> HELIOS Software GmbH
> Steinriede 3
> 30827 Garbsen
> Germany
> 
> Phone:		+49 5131 709320
> FAX:		+49 5131 709325
> Internet:	jum@helios.de

> --- perl-5.6.1-TRIAL2/ext/DynaLoader/dl_aix.xs.orig	Wed Feb 21 19:45:18 2001
> +++ perl-5.6.1-TRIAL2/ext/DynaLoader/dl_aix.xs	Wed Feb 21 21:16:53 2001
> @@ -14,6 +14,21 @@
>  #define PERLIO_NOT_STDIO 0
>  
>  /*
> + * On AIX 4.3 and above the emulation layer is not needed any more, and
> + * indeed if perl uses its emulation and perl is linked into apache
> + * which is supposed to use the native dlopen conflicts arise.
> + * Jens-Uwe Mager jum@helios.de
> + */
> +#ifdef USE_NATIVE_DLOPEN
> +
> +#include "EXTERN.h"
> +#include "perl.h"
> +#include "XSUB.h"
> +#include <dlfcn.h>
> +
> +#else
> +
> +/*
>   * @(#)dlfcn.c	1.5 revision of 93/02/14  20:14:17
>   * This is an unpublished work copyright (c) 1992 Helios Software GmbH
>   * 3000 Hannover 1, Germany
> @@ -89,6 +104,13 @@
>  # define FREAD(p,s,n,ldptr)	fread(p,s,n,IOPTR(ldptr))
>  #endif
>  
> +#ifndef RTLD_LAZY
> +# define RTLD_LAZY 0
> +#endif
> +#ifndef RTLD_GLOBAL
> +# define RTLD_GLOBAL 0
> +#endif
> +
>  /*
>   * We simulate dlopen() et al. through a call to load. Because AIX has
>   * no call to find an exported symbol we read the loader section of the
> @@ -627,6 +649,7 @@
>  	safefree(buf);
>  	return ret;
>  }
> +#endif /* USE_NATIVE_DLOPEN */
>  
>  /* dl_dlopen.xs
>   * 
> @@ -672,7 +695,7 @@
>  	DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dl_load_file(%s,%x):\n", filename,flags));
>  	if (flags & 0x01)
>  	    Perl_warn(aTHX_ "Can't make loaded symbols global on this platform while loading %s",filename);
> -	RETVAL = dlopen(filename, 1) ;
> +	RETVAL = dlopen(filename, RTLD_GLOBAL|RTLD_LAZY) ;
>  	DLDEBUG(2,PerlIO_printf(Perl_debug_log, " libref=%x\n", RETVAL));
>  	ST(0) = sv_newmortal() ;
>  	if (RETVAL == NULL)
> --- perl-5.6.1-TRIAL2/hints/aix.sh.orig	Wed Feb 21 19:39:30 2001
> +++ perl-5.6.1-TRIAL2/hints/aix.sh	Wed Feb 21 19:45:00 2001
> @@ -55,9 +55,11 @@
>  case "$osvers" in
>     3.*|4.1.*|4.2.*)
>        usenm='undef'
> +      usenativedlopen='false'
>        ;;
>     *)
>        usenm='true'
> +      usenativedlopen='true'
>        ;;
>  esac
>  
> @@ -405,20 +407,25 @@
>  esac
>  EOCBU
>  
> -# If the C++ libraries, libC and libC_r, are available we will prefer them
> -# over the vanilla libc, because the libC contain loadAndInit() and
> -# terminateAndUnload() which work correctly with C++ statics while libc
> -# load() and unload() do not.  See ext/DynaLoader/dl_aix.xs.
> -# The C-to-C_r switch is done by usethreads.cbu, if needed.
> -if test -f /lib/libC.a -a X"`$cc -v 2>&1 | grep gcc`" = X; then
> -    # Cify libswanted.
> -    set `echo X "$libswanted "| sed -e 's/ c / C c /'`
> -    shift
> -    libswanted="$*"
> -    # Cify lddlflags.
> -    set `echo X "$lddlflags "| sed -e 's/ -lc / -lC -lc /'`
> -    shift
> -    lddlflags="$*"
> +if test $usenativedlopen = 'true'
> +then
> +        ccflags="$ccflags -DUSE_NATIVE_DLOPEN"
> +else
> +    # If the C++ libraries, libC and libC_r, are available we will prefer them
> +    # over the vanilla libc, because the libC contain loadAndInit() and
> +    # terminateAndUnload() which work correctly with C++ statics while libc
> +    # load() and unload() do not.  See ext/DynaLoader/dl_aix.xs.
> +    # The C-to-C_r switch is done by usethreads.cbu, if needed.
> +    if test -f /lib/libC.a -a X"`$cc -v 2>&1 | grep gcc`" = X; then
> +	# Cify libswanted.
> +	set `echo X "$libswanted "| sed -e 's/ c / C c /'`
> +	shift
> +	libswanted="$*"
> +	# Cify lddlflags.
> +	set `echo X "$lddlflags "| sed -e 's/ -lc / -lC -lc /'`
> +	shift
> +	lddlflags="$*"
> +    fi
>  fi
>  
>  # EOF
> --- perl-5.6.1-TRIAL2/makedef.pl.orig	Wed Feb 21 19:06:38 2001
> +++ perl-5.6.1-TRIAL2/makedef.pl	Wed Feb 21 19:06:42 2001
> @@ -165,7 +165,15 @@
>  ---EOP---
>  }
>  elsif ($PLATFORM eq 'aix') {
> -    print "#!\n";
> +    $OSVER = `uname -v`;
> +    chop $OSVER;
> +    $OSREL = `uname -r`;
> +    chop $OSREL;
> +    if ($OSVER > 4 || ($OSVER == 4 && $OSREL >= 3)) {
> +	print "#! .\n";
> +    } else {
> +	print "#!\n";
> +    }
>  }
>  
>  my %skip;


-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About